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

3.
program So_sanh_chieu_cao;
uses Crt;
var Van, Nguyen: Real;
begin
clrscr;
write('Nhap chieu cao cua Van:'); readln (Van);
write('Nhap chieu cao cua Nguyen:'); readln (Nguyen);
If Van>Nguyen then writeln ('Ban Van cao hon') else
If Van<Nguyen then writeln ('Ban Nguyen cao hon')
else writeln ('Hai ban cao bang nhau');
readln
end.

1.

program bai1;

uses crt;

var t1,t2,max: integer;

begin

clrscr;

write('nhap so thu nhat ='); readln(t1);

write('nhap so thu hai ='); readln(t2);

max:=t1;

if max > t2 then write('so lon nhat la so thu nhat ') else

write('so lon nhat la so thu 2 hai ');

readln;

end.

2.

program bai2 ;

uses cer;

var a,b,c,d,max: integer;

begin

clrscr;

write('nhap so thu nhat ='); readln(a);

write('nhap so thu hai ='); readln(b);

write('nhap so thu ba ='); readln(c);

write('nhap so thu tu ='); readln(d):

max:=a;

if max > b then write('so lon nhat la so ',a,' ') else

write('so lon nhat la so ',b,'');

if max > c then write('so lon nhat la so ',a,' ') else

write('so lon nhat la so ',c,' ');

if max > d then write('so lon nhat la so ',a,' ') else

write('so lon nhat la so ',d,'');

readln;

end.

câu 4,5,6.

program tam_giac;

uses crt;

var a,b,c: real;

begin

clrscr;

write(' nhap canh a ='); readln(a);

write('nhap canh b ='); readln(b);

write('nhap canh c ='); readln(c);

if ( a+b < c) or ( a+c < b) or ( b+c < a) then

write('khong phai ba canh cua tam giac ') else

if ( a=b) and (b=c) then writeln('la tam giac deu ') else

if (a=b) or (b=c) or (c=a) then writeln('la tam giac can ') else

if (a*a=b*b+c*c) or (b*b=a*a+c*c) or ( c*c=a*a+b*b) then

writeln('la tam giac vuong') else

writeln('khong phai so do 3 canh cua tam giac deu ',' tam giac can ',' tam giac vuong');

readln;

end.

uses crt;

var n,i,s :integer;

begin

clrscr;

writeln('Nhap n'); readln(n);

s:=0;

for i:=1 to n do

if n mod i:=0 then

begin

s:=s+i;

writeln(s);

end;

readln;

end.

Chỉ làm đc vs số dương thôi nha

thieu dk:

the nay dung ne:

if c^2=a^2+b^2 or a^2=b^2+c^2 or b^2=a^2+c^2

then

writeln('tam giac do co 1 goc vuong') else writeln('tam giac do khong co goc vuong')

Program Đổi_Tiền;

var

loai5000,loai2000,loai1000,m,n: integer;

write('nhap so tien can doi :'); readln(n);

M:=n;

loai5000:= n div 5000; n:=n-loai5000*5000;

if n<>0 then

begin

loai2000 :=n div 2000; n:=n-loai2000*2000;

if n<>0 then

begin

loai1000:=n div 1000 ; n:=n-loai1000*1000;

end;

writeln(M , 'doi duoc thanh :' ,loai5000,' to 5000,' ,loai2000,' to 2000 ,' ,loai1000,' to 1000 ,');

readln;

end.

với cấu truc rẽ nhánh IF <điều kiện> THEN <câu lệnh>, câu lệnh đứng sau THENđược thực hiện khi

A. điều kiện được tính toán xong;

B. điều kiện được tính toán và cho giá trị đúng;

C. điều kiện không tính được;

D. điều kiện được tính toán và cho giá trị sai;

b

B

Thêm dấu ";" sau MAX:=a nhé

Uses CRT;

Var a,b,c,d,MAX : integer;

Begin

clrscr;

Readln(a,b,c,d);

MAX:=a

If MAX<b then MAX:=b;

If MAX<c then MAX:=c;

If MAX<d then MAX:=d;

Writeln('So lon nhat la',MAX);

Readln

End.

( Chưa học nhưng mình đọc trước :v Sai thì mong được bổ sung )

(* Date & Time: 13/01/13 01:37am Author: NV Nhan *) Program doingay_calender; Uses Crt; {Unit} Type kq=string[25]; Var cont: char; {Variable to repeat program} d, m, y, j, k: integer; Function doithu(d, m, y: integer):kq; {Ham nay tra ve thu cua ngay can xem} Const ngaythang: array[0..11] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); Var tong, i: integer; Begin tong := (y-1)*365 + (y-1) div 4; If (y mod 4) = 0 then ngaythang[1]:=29; {Nam nhuan} For i:=0 to m-2 do tong := tong + ngaythang[i]; tong := tong+d; {tong so ngay tu 01/01/01 den dd/mm/yyyy} Case (tong mod 7) of 0: doithu:='Thu Bay'; 1: doithu:='Chu Nhat'; 2: doithu:='Thu Hai'; 3: doithu:='Thu Ba'; 4: doithu:='Thu Tu'; 5: doithu:='Thu Nam'; 6: doithu:='Thu Sau'; End; {End case} End; {End function} Function doingayi(d, m, y:integer):integer; {Ham nay tra ve 1 so: neu la t2 thi tra ve 0, t3 thi tra ve 1...} Const ngaythang: array[0..11] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); Var tong, i: integer; Begin tong := (y-1)*365 + (y-1) div 4; If (y mod 4) = 0 then ngaythang[1]:=29; {Nam nhuan} For i:=0 to m-2 do tong := tong + ngaythang[i]; tong := tong+d; {tong so ngay tu 01/01/01 den dd/mm/yyyy} Case (tong mod 7) of 2: doingayi:=0; {Monday} 3: doingayi:=1; 4: doingayi:=2; 5: doingayi:=3; 6: doingayi:=4; 0: doingayi:=5; 1: doingayi:=6; {Sunday} End; {End case} End; {End function} Function max_day(m, y:integer):integer; {Number day of a month in year} Begin Case m of 1, 3, 5, 7, 8, 10, 12: max_day:=31; 4, 6, 9, 11: max_day:=30; 2: If y mod 4 = 0 then max_day:=29 else max_day:=28; End; {End case} End; {End function} {Main program} Begin Repeat {To repeat application until viewer press 'k'} Clrscr; {Clear screen} {Main code} gotoxy((80-length('Nhap ngay muon xem: ')) div 2, 3); {Center align} textcolor(white); {Text color} write('Nhap ngay muon xem: '); read(d, m, y); If (y<=0) or (m>12) or (m<1) or (d<1) or (d>31) or (((m=4) or (m=6) or (m=9) or (m=11)) and (d=31)) or (((y mod 4)<>0) and (m=2) and (d>28)) or ((m=2) and (d>29)) then {Dong dieu kien ghep kiem tra dung dinh dang ngay} Begin gotoxy((80-length('Nhap lai ngay thang nam!')) div 2, 5); {Center Align} textcolor(3); {Color: aqua} writeln('Nhap lai ngay thang nam!'); delay(1000); cont:='c'; End else {When date, month, year are true} Begin gotoxy((80-length('Ngay 00/00/0000 la thu xxx ')) div 2, 5); {Center Align} textcolor(2); {color: Green} write('Ngay '); If d<10 then write('0', d) else write(d); write('/'); If m<10 then write('0', m) else write(m); write('/'); write(y, ' la '); {Write Ngay xx/xx/xxx la thu xxx} textcolor(red); {Color: Red} write(doithu(d, m, y)); {In ra thu can xem} textcolor(7); {Color: Gray} writeln('.'); gotoxy((80-length('-----')) div 2, 6); write('-----'); gotoxy((80-length('Lich thang xx nam xxxx')) div 2, 7); {Center Align} writeln('Lich thang ', m, ' nam ', y); writeln; gotoxy(28, 9); textcolor(yellow); writeln(' 2 3 4 5 6 7 CN'); {Print month's calender} gotoxy(28, 11); For j:=0 to doingayi(1, m, y)-1 do write(' '); For k:=1 to max_day(m, y) do Begin If k=d then Begin textcolor(red); write(k:3); End else Begin textcolor(white); write(k:3); End; If doingayi(k, m, y)=6 then Begin writeln; writeln; write(' '); End; End; writeln; writeln; {End program and play again?} write('Muon tiep tuc nua khong? c/k '); cont:=readkey; End; Until cont='k'; {End repeat} End. {End Code}

Cái này mình tham khảo trên mạng nha, ko phải của mình làm!

thieu dk:

the nay dung ne:

if c^2=a^2+b^2 or a^2=b^2+c^2 or b^2=a^2+c^2

then

writeln('tam giac do co 1 goc vuong') else writeln('tam giac do khong co goc vuong')

INPUT:Dãy các số từ 1 đến n
OUTPUT:Tổng các số đó
Mô tả thuật toán:
b1: SUM<--1; i,<--1
b2:SUM<--SUM +i; i<--i+1
b3: Nếu i<= n thì quay lại bước 2, ngược lại thông báo giá trị và kết thúc thuật toán