

Bài tập 1: Viết chương trình tính tổng 3 số a, b, c với Pascal
Tìm số lớn nhất:
Bài tập 2: Viết chương trình tính chu vi, diện tích hình vuông.
Mã:
program tongabc;
uses crt;
var T, a, b, c:interger;
begin
write('gia tri cua a');
read(a);
write('gia tri cua b');
read(b);
write('gia tri cua c');
read(c);
T:=a+b+c ;
write ('tong ba so a, b, c la':, T);
Readln
End.
Tìm số lớn nhất:
Mã:
program tim _so_lon_nhat;
uses crt;
var a, b, c: integer;
Begin
write ("Nhap so nguyen a = "); readln(a);
write ("Nhap so nguyen b = "); readln(b);
write ("Nhap so nguyen c = "); readln(c);
max:=a;
if max < b then max:=b;
if max < c then max:=c;
writeln ("So lon nhat trong 3 so la :",max);
readln;
End.
Bài tập 2: Viết chương trình tính chu vi, diện tích hình vuông.
Mã:
program cv_hinh_vuong;
uses crt;
var a, cv, dt:interger;
begin
clrscr;
write('nhap do dai a');
readln(a);
cv:= a*4, dt:= a*a.
Write ('Chu vi hinh vuong: ', cv);
Write ('Dien tich hinh vuong la: ', dt) ;
readln
end.
Last edited by a moderator: