1.Viết chương trình nhập vào 3 số thực a, b ,c từ bàn phím. Tính tổng của 3 số đó 2.Tính chu vi và diện tích hình chữ nhật có chiều dài a chiều rộng b. Hãy xác định bài toán và mô tả thuật toán Giúp mình với ạ ❤️❤️❤️❤️❤️❤️❤️😘

$#chitring12883$

Câu 1: Viết chương trình nhập vào 3 số thực a, b ,c từ bàn phím. Tính tổng của 3 số đó

Giải:

uses crt;

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

begin

clrscr;

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

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

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

max:=a;

if max<b then max:=b;

if max<c then max:=c;

t:=a+b+c;

writeln('Tong cua 3 so la: ',t);

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

readln;

end.

Câu 2: Tính chu vi và diện tích hình chữ nhật có chiều dài a chiều rộng b. Hãy xác định bài toán và mô tả thuật toán.

Giải:

a) Mô tả thuật toán:

InPut: chiều dài, chiều rộng

OutPut: chu vi, diện tích hình chữ nhật

Các bước thực hiện:

Bước 1: Nhập chiều dài x và chiều rộng y

Bước 2: CV <--- (x+y)*2

Bước 3: S<--- x*y

Bước 4: Kết thúc thuật toán.

b) Viết chương trình

program HCN;

uses crt;

var x,y,CV,S : Real;

begin

clrscr;

writeln('Hay nhap chieu dai:');readln(x);

writeln('Hay nhap chieu rong');readln(y);

CV:=(x+y)*2;

writeln('Vay chu vi hinh chu nhat la:',CV);

S:=x*y;

writeln('Vay dien tich hinh chu nhat la:',S);

readln

end.

Cho mình xin hay nhất ạ!!!