Welcome! You have been invited by Lê Gia Hoài to join our community. Please click here to register.
1 người đang xem
Bài viết: 7 Tìm chủ đề
11421 4,160
Bài tập 1: Viết chương trình tính tổng 3 số a, b, c với Pascal

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:

Những người đang xem chủ đề này

Xu hướng nội dung

Back