1. Khai báo 2 biến: a và b (trong đó: a là chiều dài, b là chiều rộng)
Cho người dùng nhập giá trị vào 2 biến trên

Công thức chu vi:(a+b)*2
Công thức diện tích: a*b

Điều kiện bổ sung:
+ Nếu a <= 0 hoặc b <=0 hoặc cả a,b <=0 => Báo lỗi (Chiều dài không bao giờ âm)!
+ Nếu a=b => Báo lỗi (Hình chữ nhật thì chiều dài không thể bằng chiều rộng)

de 3

program bt;

uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.

- Sự khác nhau giữa thủ tục chuẩn đưa dữ liệu ra màn hình Write và Writeln là:
+ Với thủ tục write() sau khi đưa kết quả con trỏ ở cuối dòng văn bản
+ Thủ tục writeln() sau khi đưa kết quả con trỏ chuyển xuống đầu dòng tiếp theo
"Ln" trong ReadLn() hoặc WriteLn() là viết tắt của Line, nghĩa là xong lệnh đó thì xuống dòng.

(* Date & Time: 13/01/13 01:37am Author: NV Nhan *) Program doingay_calender; Uses Crt; {Unit} Type kq=string[25]; Var cont: char; {Variable to repeat program} d, m, y, j, k: integer; Function doithu(d, m, y: integer):kq; {Ham nay tra ve thu cua ngay can xem} Const ngaythang: array[0..11] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); Var tong, i: integer; Begin tong := (y-1)*365 + (y-1) div 4; If (y mod 4) = 0 then ngaythang[1]:=29; {Nam nhuan} For i:=0 to m-2 do tong := tong + ngaythang[i]; tong := tong+d; {tong so ngay tu 01/01/01 den dd/mm/yyyy} Case (tong mod 7) of 0: doithu:='Thu Bay'; 1: doithu:='Chu Nhat'; 2: doithu:='Thu Hai'; 3: doithu:='Thu Ba'; 4: doithu:='Thu Tu'; 5: doithu:='Thu Nam'; 6: doithu:='Thu Sau'; End; {End case} End; {End function} Function doingayi(d, m, y:integer):integer; {Ham nay tra ve 1 so: neu la t2 thi tra ve 0, t3 thi tra ve 1...} Const ngaythang: array[0..11] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); Var tong, i: integer; Begin tong := (y-1)*365 + (y-1) div 4; If (y mod 4) = 0 then ngaythang[1]:=29; {Nam nhuan} For i:=0 to m-2 do tong := tong + ngaythang[i]; tong := tong+d; {tong so ngay tu 01/01/01 den dd/mm/yyyy} Case (tong mod 7) of 2: doingayi:=0; {Monday} 3: doingayi:=1; 4: doingayi:=2; 5: doingayi:=3; 6: doingayi:=4; 0: doingayi:=5; 1: doingayi:=6; {Sunday} End; {End case} End; {End function} Function max_day(m, y:integer):integer; {Number day of a month in year} Begin Case m of 1, 3, 5, 7, 8, 10, 12: max_day:=31; 4, 6, 9, 11: max_day:=30; 2: If y mod 4 = 0 then max_day:=29 else max_day:=28; End; {End case} End; {End function} {Main program} Begin Repeat {To repeat application until viewer press 'k'} Clrscr; {Clear screen} {Main code} gotoxy((80-length('Nhap ngay muon xem: ')) div 2, 3); {Center align} textcolor(white); {Text color} write('Nhap ngay muon xem: '); read(d, m, y); If (y<=0) or (m>12) or (m<1) or (d<1) or (d>31) or (((m=4) or (m=6) or (m=9) or (m=11)) and (d=31)) or (((y mod 4)<>0) and (m=2) and (d>28)) or ((m=2) and (d>29)) then {Dong dieu kien ghep kiem tra dung dinh dang ngay} Begin gotoxy((80-length('Nhap lai ngay thang nam!')) div 2, 5); {Center Align} textcolor(3); {Color: aqua} writeln('Nhap lai ngay thang nam!'); delay(1000); cont:='c'; End else {When date, month, year are true} Begin gotoxy((80-length('Ngay 00/00/0000 la thu xxx ')) div 2, 5); {Center Align} textcolor(2); {color: Green} write('Ngay '); If d<10 then write('0', d) else write(d); write('/'); If m<10 then write('0', m) else write(m); write('/'); write(y, ' la '); {Write Ngay xx/xx/xxx la thu xxx} textcolor(red); {Color: Red} write(doithu(d, m, y)); {In ra thu can xem} textcolor(7); {Color: Gray} writeln('.'); gotoxy((80-length('-----')) div 2, 6); write('-----'); gotoxy((80-length('Lich thang xx nam xxxx')) div 2, 7); {Center Align} writeln('Lich thang ', m, ' nam ', y); writeln; gotoxy(28, 9); textcolor(yellow); writeln(' 2 3 4 5 6 7 CN'); {Print month's calender} gotoxy(28, 11); For j:=0 to doingayi(1, m, y)-1 do write(' '); For k:=1 to max_day(m, y) do Begin If k=d then Begin textcolor(red); write(k:3); End else Begin textcolor(white); write(k:3); End; If doingayi(k, m, y)=6 then Begin writeln; writeln; write(' '); End; End; writeln; writeln; {End program and play again?} write('Muon tiep tuc nua khong? c/k '); cont:=readkey; End; Until cont='k'; {End repeat} End. {End Code}

Cái này mình tham khảo trên mạng nha, ko phải của mình làm!

program ct_dautien;

uses crt;

var x:integer;

begin

writeln('moi nhap a,b');readln(a,b);

if a>b then write(a) else write (b);

readln

end.

minh viet lon, sua lai: var a,b: integer;

program CT_dautien;

uses crt;

var

begin

clrscr;

writeln('moi nhap diem'); readln(x);

if x>= 8.0 then write(x, ' la loai gioi');

if x>=6.5 then write(x, ' la loai kha');

if x>=5.0 then write(x, ' la loai trung binh');

if x>=3.4 then write(x, ' la loai yeu');

if x<3.4 then write(x, ' la loai kem');

readln

end.

y quen cho var ban ghi la: var x: integer

#include <bits/stdc++.h>

using namespace std;

long long x,i,n,t,h,s,dem;

int main()

{

cin>>n;

t=0;

h=0;

s=1;

dem=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%2!=0)

{

t=t+x;

h=h-x;

s=s*x;

dem++;

}

}

cout<<t<<" "<<h<<" "<<s<<" "<<dem;

return 0;

}

pascal hả bn??

mình thấy ở trang 71 SGK có bài tương tự

program Tinh_trung_binh_cong;

uses crt;

var n, dem : integer;

a, TB : real;

begin clrscr;

dem:= 0; TB:=0;

write('Nhap so cac so can tinh n = '); realn(n);

write dem < n do

begin dem:= dem + 1;

write('Nhap so thu ', dem,' = '); realn(a);

TB:= TB + a;

end;

TB:= TB/n;

writeln('Trung binh cua ', n, ' so la = ', TB:10:3);

writeln('Nhan Enter de thoat ...');

readln;

end.

Thay đổi giá trị của x và y

Vậy là hoán đổi giá trị của x và y

Giải thích :

x:=x+y nên y := x-y = (x + y ) - y = x và x := x-y = x - ( x -y ) = y

bài 1:

var i,n : integer;

writeln('nhap n');

readln(n);

for i:=1 to 100 do

s:=s+i;

writeln('tong la",s);

readln;

end.

bài 2:

var n:real;

begin

writeln('nhap n');

if n (mod 2=0) and (n mod 3=0) then

writeln('chia het roi')

else writeln(khong chia het');

readln;

end.

Uses CRT;

Var TB : real;

BEGIN

clrscr;

repeat

begin

write('Moi ban nhap diem trung binh: ');

Readln(TB);

end;

until (TB>0) and (TB<10);

If (TB >= 8) then write('hoc luc gioi') else

If (TB>=6.5) then write('hoc luc kha') else

If (TB>5) then write('hoc luc trung binh') else

If (TB>3.5) then write('hoc luc yeu') else

write('hoc luc kem');

Readln;

END.

Uses CRT;

Var TB : real;

Begin

clrscr;

Readln(TB);

If TB >= 8 then write('hoc luc gioi') else

If 6.5<=TB<8 then write('hoc luc kha') else

If 5<=TB<6.5 then write('hoc luc trung binh') else

If 3.5<=TB<5 then write('hoc luc yeu') else

write('hoc luc kem');

Readln;

End.