program Dien_tich;

uses crt;

var a,b,h: real;

begin

clrscr;

write('nhap day nho ='); readln(a);

write('nhap day lon ='); readln(b);

write('nhap chieu cao ='); readln(h);

while ( a < 0 ) and ( b < 0) and (c < 0) do

write('nhap lai day nho ='); readln(a);

write('nhap lai day lon ='); readln(b);

write('nhap lai chieu cao ='); readln(h);

writeln;

writeln('Dien tich hinh thang = ', 1/2 * (a+b) * h :4:2);

readln;

end.

Lời giải :

program hotrotinhoc ;

var a,b,h : integer ;;

s: real;

begin

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

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

write('Nhap chieu cao h='); readln(h);

s:=((a+b)/2)*h ;

write('Dien tich hinh thang la :',s);

readln

end.

2)

Program Cvi_Dtich_Hthang;

Var a, b, c, d, h, S, P : Real;

Begin

writeln ('nhap a');

readln (a);

writeln ('nhap b');

readln (b);

writeln ('nhap c');

readln (c);

writeln ('nhap d');

readln (d);

writeln ('nhap h');

readln (h);

P = a + b + c + d

S = (a + b ) * h / 2

writeln ( 'Chu vi cua hinh thang la, P : 6 : 1);

writeln ( 'Dien tich cua hình thang la, S : 6 : 1);

readln;

readln

End.

(Mk ko bt đúng hết toàn bộ ko nhưg mk nghĩa là đúng >90% !! ^^)

(Mk hi vọng bn sẽ bấm tick cho mk! Mk đã cố gắng hết sức dù chỉ 1 câu!!)

Nếu có j thắc mắc thì bình luận bên dưới cho mk nhé! Thank you!! ^o^

1;

program bai1;

uses crt;

var a,b,c:longint;

begin

clrsrc;

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

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

c:=a+b;

writeln(a,'+',b,'= ',c);

readln

end.

ok bạn.............

program kiem_tra;

ues crt;

var a,b,c:integer;

begin

write('nhap so a');readln(a);

write('nhap so b');readln(b);

write('nhap so c');readln(c);

if(a*a=b*b+c*c)or(b*b=c*c+a*a)or(c*c=b*b+a*a)then writeln('day la tam giac vuong')else writeln('day la tam giac thuong');

readln;

end.

var a,b,c:real;

begin

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

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

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

if ((a+b)>c) or ((a+c)>b) or ((b+c)>a) then writeln('la 3 canh cua tam giac')

else writeln('khong phai la 3 canh cua tam giac');

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

else writeln(' khong phai la tam giac can ');

readln;

end.

E cảm ơn

Thuật toán:

B1. Nhập ba số dương a,b,c

B2. Nếu a+b>c và b+c>a và c+a>b thì in ra màn hình a,b,c là ba cạnh của tam giác. Ngược lại in ra a,b,c không là ba cạnh của tam giác.

B3. Kết thúc.

Chương trình:

var a,b,c: real;

begin

writeln('Nhap ba canh lan luot: '); read(a,b,c);

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

repeat

writeln('Khong hop le. Nhap lai ba canh lan luot: '); read(a,b,c);

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (b+c>a) and (c+a>b) then writeln('Ba so nay la do dai ba canh tam giac') else writeln('Ba so nay khong la ba canh cua tam giac');

end.

Program ba_canh_cua_tam_giac;

uses crt;

var a,b,c: real;

BEGIN

Write('nhap do dai canh a'); Readln(a);

Write('nhap do dai canh b'); Readln(b);

Write('nhap do dai canh c'); Readln(c);

If (a<(b+c)) and (b<(c+a)) and (c<(b+a)) then write('do la do dai cua mot tam giac')

else write('do khong la do dai cua mot tam giac');

Readln;

END.

Thanks

bạn ơi viết chương trình bằng chữ hay là ở trong pascal z bạn

#include<iostream>

using namespace std;

float chuvi(int a, int b, int c)

{    

return a + b + c;

}

int main()

{    

float a, b, c;    

cout << "Nhap canh a: ";    

cin >> a;    

cout << "Nhap canh b: ";    

cin >> b;    

cout << "Nhap canh c: ";    

cin >> c;    

if (a >= b + c || b >= a + c || c >= a + b)        

cout << "Ba canh vua nhap khong phai la canh cua tam giac";    

else {        

cout << "Chu vi cua tam giac la: "<<chuvi(a,b,c);    

}    

system("pause");    

return 0;

}