Chương trình đơn giản

var a,b,s:integer;

c:word;

begin

write('nhap avà b ');

read(a,b);

s:=a*b*1/2;

c:=(a+b)*2;

writeln('dien tich la '; s );

write('chu vi la 'c);

readln

end

program CVDT;

uses crt;

var a,b,c,P,S;

begin

Writeln('Nhap a va b');

Readln(a,b);

c:= a*a +b*b; S:= (a*b)/2;

Writeln('Dien tich tam giac vuong la ',S);

writeln('Chu vi tam giac vuong la ', SQRT(c);

Readln;

end.

var n,i:real ;

begin

write('nhập n'); read(n);

write('can bat 2 cua n la :',sqrt(h));

end.

quên khai báo h=>i

nhầm bỏ biến i

o tôi xin 1 bài mẫu dạng này

Program So_Nguyen;

Uses crt;

Var x,y:integer;

Begin

Clrscr;

Write ('Nhap so nguyen x,y:');

Readln(x,y);

If x>y then Write('x,y');

else then write('y,x');

Readln;

End.

Prgram Dien_Tich;

Uses crt;

var l,b,c,dt:real;

Begin

Clrscr;

Write(' Nhập đáy lớn và đáy bé:');

Readln(l,b);

dt:= (l+b)*c/2;

Writeln('Diện tích hình thanh là',dt);

readln;

End.

program bai1;

var a,b,s:longint;

begin

write('Nhap so nguyen thu nhat ');readln(a);

write('Nhap so nguyen htu hai ');readln(b);

s:=a+b;

writeln('Tong la ',s);

readln

end.

phynit thầy giúp e với

program bai1;

var

begin

write('Ten cua ban la ');readln(ten);

write('Nam hien tai la ');readln(nht);

write('Nhap nam sinh ');readln(ns);

write('Ban hoc lop ');readln(lop);

tuoi:=nht-ns;

writeln('Ten cua ban la ',tuoi);

readln

end.

uses crt;

var s:string;

function kt(s:string):boolean;

var i,dem:byte;

begin

dem:=0;

for i:=2 to length(s)-1 do

if ((s[i-1]<s[i]) and (s[i]>s[i+1])) or ((s[i-1]>s[i]) and (s[i]<s[i+1])) then

dem:=dem+1;

if dem=length(s)-2 then kt:=true else kt:=false;

end;

begin

clrscr;

write('nhap so nguyen duong: '); readln(s);

if kt(s)=true then write('so vua nhap la so don dieu') else

write('so vua nhap khong phai so don dieu');

readln;

end.

chúc bạn học tốt

Lâu rồi mình chưa viết pas, bài này mình cũng chưa test thử, bạn tham khảo:

uses crt;

var a, b, c, dt, p: real;

begin

clrscr;

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 (a+c)>b then

begin

p=(a+b+c)/2;

dt=sqrt(p*(p-a)*(p-b)*(p-c));

write('Day la tam giac. Co dien tich la: ',dt:4:2);

end

else write('Day khong phai la tam giac.');

readln

end.

* Hàm sqrt() là hàm tính căn bậc hai. Còn công thức tính diện tích tam giác trên mạng có đó bạn.

À phép gán là :=, mình gõ thiếu.

chỉ nhập 1 số hoa hay nhập nhiều số hoa đã bán?

program bai1;

var

begin

write('So hoa ban la ');readln(hoa);

if hoa>=100 then

begin

tien:=3000;

thanhtien:=tien*hoa;

writeln('So tien la ',thanhtien);

end;

else

begin

tien:=5000;

thanhtien:=tien*hoa;

writeln('So tien la ',thanhtien);

end;

readln

end.