Bài 6. Câu lệnh điều kiện

var a:array[1..100]of longint;

      n,i,max:longint;

begin

read(n);   {nhập số phần tử trong dãy}

for i:=1 to n do read(a[i]);   {nhập giá trị các phần tử}

max:=a[1];  {gán max=giá trị của phần tử thứ nhất}

for i:=2 to n do

if a[i]>max then max:=a[i];

write('gia tri lon nhat trong day la: ',max);

end.

Ấn đồng thời alt+f5 để xem kq nhé!!!

Đánh giá zùm nhe :)

uses crt;

var a:array[1..100]of integer;

i,n,max:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do 

  if max<a[i] then max:=a[i];

writeln('So lon nhat la: ',max);

readln;

end.

*For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh> ;

*For <biến đếm> := <giá trị cuối> downto <giá trị đầu> do <câu lệnh>

Chúc bạn học tốt!! ^^

Câu lệnh xuôi: For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh> ;

Câu lệnh ngược: For <biến đếm> := <giá trị cuối> downto <giá trị đầu> do <câu lệnh>;

Câu 2: 

uses crt;

var a,b:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

if (a+b>0) and (a+b mod 3=0) then writeln('Phai')

else writeln('Khong phai');

readln;

end.

Cho mình hỏi bài 2 làm sao vậy mn mong đc giúp

Nếu chỉ là lệnh If..then chỉ với "Đạt" và "Chưa đạt" đơn giản thì:

Uses Crt;
Var diemtb:real;
Begin
   Clrscr;
Writeln('Nhap diem tb vao day:'); Readln(diemtb);
If diemtb>=8.0 then writeln('Dat') else if diemtb<8.0 then writeln('Chua dat');
Readln
End.
*Còn nếu có các câu lệnh như "HS giỏi", "HS khá", HS tb" thì có thể viết Ctrinh tương tự. GOOD LUCK FOR YOU :D

Bài 1:

Uses crt;
Var I: real; x,n:integer;
Begin
 Clrscr;
Writeln('Nhap so n vao day:'); Readln(n);
I:=0;
 For x:= 1 to n do I:=I+1/x;
Writeln('Vay tong cua I la:',I);
Readln
End.

uses crt;

var a,b:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

if a>b then writeln(a)

else writeln(b);

readln;

end.

+) Với \(m=-1\) phương trình trở thành :

\(-2x+2=0\Leftrightarrow x=1\)

+) Với \(m\ne-1\) Ta có :

\(\Delta'=\left(-1\right)^2-2\left(m+1\right)=-2m\)

+ Nếu \(m=0\Leftrightarrow\) pt có 2 nghiệm kép

+ Nếu \(m>0\Leftrightarrow\) pt vô nghiệm 

+ Nếu \(m< 0\) pt có 2 nghiệm phân biệt

Vậy...

cú pháp: if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

cách thực hiện:

 Dạng đủ: Chương trình sẽ kiểm tra điều kiện nếu điều kiện đúng thì  làm câu lệnh 1 sau đó làm câu lệnh tiếp theo, nếu điều kiện sai thì chương trình sẽ bỏ qua câu lệnh 1 và làm câu lệnh 2 sau đó làm câu lệnh tiếp theo.

Vd: Câu lệnh sau:uses crt;

var i,n: integer;

begin

clrscr;

writeln('nhap i: '); readln(i);

writeln(nhap n: '); readln(n);

if i>5 then writeln(i) else writeln(n);

{trong trường hợp này nếu nhập i lớn hơn 5 thì sẽ xuất i ra màn hình nếu không thì xuất n ra màn hình.}

Cú pháp: if <điều kiện> then <câu lệnh 1>

else <câu lệnh 2>;

Vd: If a[i] mod 2=0 then inc(dem)

else inc(dem1);

program tinhtong;

uses crt;

var i, s, n : integer;

a : array [1..100] of integer;

begin

clrscr;

write('So thu n la: '); readln(n);

s:=0

for i:=1 to n do begin

write('Nhap so thu ',i); readln(a[i]);

s:=s+a[i]; end;

writeln('Tong cac so do la: ',s);

readln

end.

uses crt;

var a:array[1..100]of integer;

n,i,dem,x,kt,t:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until n>0;

dem:=1;

a[1]:=2;

x:=2;

repeat

x:=x+1;

kt:=0;

for i:=2 to trunc(sqrt(x)) do 

  if x mod i=0 then

begin

kt:=1;

break;

end;

if kt=0 then 

begin

inc(dem);

a[dem]:=x;

end;

until dem=n;

t:=0;

for i:=1 to dem do 

  t:=t+a[i];

writeln('Tong cua ',n,' so nguyen to dau tien la: ',t);

readln;

end.

Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

if (a>0) and (b>0) then writeln('Cung duong');

if (a<0) and (b<0) then writeln('Cung am');

if (a>0) and (b<0) then writeln('Duong am');

if (a<0) and (b>0) then writeln('Am duong');

readln;

end.

Câu 2: 

uses crt;

var a,b:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

if (a mod 2=0) and (b mod 2=0) then writeln('Cung chan');

if (a mod 2<>0) and (b mod 2<>0) then writeln('Cung le');

if (a mod 2=0) and (b mod 2<>0) then writeln('Chan le');

if (a mod 2<>0) and (b mod 2=0) then writeln('Le chan');

readln;

end.