TK

program bt;
uses crt;
var a,b,S,P:real;
begin
clrscr;
writeln('hay nhap chieu dai hinh chu nhat: ');readln(a);
writeln('hay nhap chieu rong hinh chu nhat: ');readln(b);
S:=a*b;
P:=(a+b)*2;
writeln('dien tich hinh chu nhat la: ',S);
writeln('chu vi hinh chu nhat la: ',P);
readln;
end.

Uses crt;

Var dai,rong:integer;

     Procedure Nhap(Var dai:integer;rong:integer);

     Begin

     Write('Chieu dai: ');readln(dai);

     Write('Chieu rong: ');readln(rong);

     End;

     Procedure Ve(var dai:integer;rong:integer);

     var i,j:integer;

     Begin

     for i:= 1 to dai do write('*');writeln;

     For i:= 1 to rong-2 do 

        Begin

        Write('*');

        for j:=1 to dai-2 do write(' ');

        writeln('*');

        end;

     for i:= 1 to dai do write('*');

     End;

Begin

clrscr;

Nhap(dai,rong);

Ve(dai,rong);

readln;

End.          

uses crt;

var a,b:integer;

{-----------------chuong-trinh-con--------------------}

procedure ve(x,y:integer);

var i,j:integer;

begin

for i:=1 to x do 

  begin

for j:=1 to y do 

  write('*');

writeln;

end;

end;

{----------------------chuong-trinh-chinh----------------------}

begin

clrscr;

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

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

ve(a,b);

readln;

end.

Var cd,cr,cv,dt:real;

Begin

Write('Chieu dai = ');readln(cd);

Write('Chieu rong = ');readln(cr);

cv:=(cd+cr)*2;

dt:=cd*cr;

Writeln('Chu vi la ',cv:10:2);

Write('Dien tich la ',dt:10:2);

Readln

End.

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<(a+b)*2<<endl;

cout<<a*b;

return 0;

}

câu 1 

program hieu_thuong;

uses crt;

var a,b,h,t:real;

begin

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

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

if a>=b then h:=a-b else h:=b-a;

t:=a/b;

writeln('hieu cua hai so ',a,'',b,' la ',h);

writeln('thuong cua hai so ',a,'',b,' la ',t);

readln;

end.

câu 2

program chuvi_dientich;

uses crt;

var cv,dt,d,r:real;

begin

write('nhap chieu dai d:');readln(d);

write('nhap chieu rong r:');readln(r);

cv:=( d + r ) * 2 ;

dt:= d * r ;

writeln('chu vi thua ruong la : ',cv);

writeln('dien tich thua ruong la : ',dt);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

int a,b,dt;

int main()

{

cout<<"Nhap chieu dai: ";

cin>>a;

cout<<"Nhap chieu rong: ";

cin>>b;

dt=a*b;

cout<<"Dien tich la: "<<dt;

Return 0;

}

program hinh_chu_nhat;

uses crt;

var a,b:integer;

begin 

clrscr;

write('nhap gia tri cua chieu dai: ');readln(a);

write('nhap gia tri cua chieu rong: ');readln(b);
writeln('chu vi la: ',(a+b)*2);

write('dien tich la: ',a*b);

readln;

end.

uses crt;

var r,cd,cr,s,p: real;

begin

clrscr;

write('Nhap ban kinh: '); readln(r);

cd:=r*2*3.14;

cr:=1/3*cd;

s:=cd*cr;

p:=(cd+cr)*2;

writeln('Dien tich la: ',s);

writeln('Chu vi la: ',p);

readln;

end.

Mình cần gấp!! Cảm ơn ạ

Câu 1: 

a) (x+y)/(x-y)

b) sqr(b)-4*a*c;

Câu 2: 

uses crt;

var a,b:integer;

begin

clrscr;

write('Nhap chieu dai:'); readln(a);

write('Nhap chieu rong:'); readln(b);

writeln('Chu vi la: ',(a+b)*2);

writeln('Dien tich la: ',a*b);

readln;

end.

Câu 3: 

Biến là công cụ trong lập trình. Trong lập trình, biến là tên của vùng nhớ được dùng để lưu trữ dữ liệu và dữ liệu được biến lưu trữ có thể thay đổi trong khi thực hiện chương trình. 

Cú pháp khai báo biến: Var <tên biến>:<kiểu dữ liệu>;

Ví dụ: var a:integer;