(------------------------------------------1--------------------------------------)

program bai_1;

uses crt;

var a,b,c,max: real;

begin

clrscr;

writeln(' nhap 3 so:'); readln(a,b,c);

max:=a;

max:=b;

max:=c;

if max<a then max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln(' so lon nhat la:',max):

readln;

end.

mình tách ra nhé.

program bai_1;

uses crt;

var a,b,c,min: real;

begin

clrscr;

writeln(' nhap 3 so:'); readln(a,b,c);

min:=a;

min:=b;

min:=c;

if min<a then min:=a;

if min<b then min:=b;

if min<c then min:=c;

writeln(' so lon nhat la:',min):

readln;

1:

uses crt;

var a,b,c,ln,nn:integer;

begin

clrscr;

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

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

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

ln:=a;

nn:=a;

if ln<b then ln:=b;

if ln<c then ln:=c;

if nn>b then nn:=b;

if nn>c then nn:=c;

writeln('so lon nhat la: ',ln);

writeln('so nho nhat la: ',nn);

readln;

end.

2:

uses crt;

var m,n,i,t:integer;

begin

clrscr;

write('m='); readln(m);

write('n='); readln(n);

if (m<n) and (m>0) and (n>0) then

begin

t:=0;

for i:=m to n do

t:=t+i;

writeln('tong cua cac so tu ',m,' toi ',n,' la: ',t);

end

else writeln('vui long nhap lai');

readln;

end.

quay lui ik

Tức tìm GTNN trong 3 số đó hả bạn?

program tim_gtnn;

uses crt;

var min,a,b,c: real;

begin

clrscr;

writeln('nhap so thu nhat:'); readln(a);

writeln('nhap so thu hai:'); readln(b);

writeln('nhap so thu ba:'); readln(c);

min:=a;

min:=b;

min:=c;

if min>a then min:=a;

if min>b then min:=b;

if min>c then min:=c;

writeln(' gia tri nho nhat la:',min:6:2);

readln;

end.

*Dạng đầy đủ:

If a>b then max:=b else max:=a;

If b>c then max:=c else max:=b;

if c>a then max:=a else max:=c;

*Dạng thiếu:

If a>b then max:=b;

If b>c then max:=c;

if c>a then max:=a;

Min chứ chị nhỉ?

Số hoàn toàn là sao bạn?

PROGRAM SoHoanHao;
USES CRT;
VAR n:INTEGER;

FUNCTION KiemTra(x:INTEGER):BOOLEAN;
VAR tam,i:INTEGER;
BEGIN
tam:=0;
FOR i:= 1 TO (x DIV 2) DO
IF x MOD i = 0 THEN tam:=tam+i;
IF tam = x THEN KiemTra:=TRUE
Else KiemTra:=False;
END;

BEGIN
Clrscr;
Write('Nhap so can kiem tra ');Readln(n);
IF KiemTra(n) THEN
Writeln('So ',n,' la so hoan hao')
ELSE
Writeln('So ',n,' khong phai la so hoan hao');
Readln;
END.

- Div là chia lấy phần nguyên.

VD:

5 div 4 = 1

8 div 3 = 2

15 div 8 = 1

...

- mod là chia lấy phần dư.

VD:

5 mod 2 = 1

9 mod 6 = 3

23 mod 5 = 3

...

Thank kiu bạn nhiều nha :3

program giaiptbac3;

uses crt;

{----------------chuong-trinh-con--------------------------Ư

function arccos(k:real):real;

var alpha:real;

begin

ifk>0 then alpha:=arctan(sqrt(1/k/k-1))

else if k<0 then alpha:=arctan(-sqrt(1/k/k-1))

else alpha:=pi/2;

arccos:=alpha;

end;

{--------------chuong-trinh-con-thu-2-----------------------}

function can(k:real):real;

var ex:real;

begin

if k<0 then ex:=-exp(ln(abs(k))/3)
else if k>0 then ex:=exp(ln(k)/3)
else ex:=0;
can:=ex;
end;
{----------chuong-trinh-con-thu-ba---------------------}
procedure nghiemphuc(a,b,c:real);
var d:real;
x,y:real;
begin
d:=-b*b+4*a*c;
x:=-b/2/a;
y:=sqrt(d)/2/a;
writeln(' Nghiem Phuc: x2 = ',x,' + ',y,'i');
writeln(' x3 = ',x,' - ',y,'i');
end;
{-------------chuong-trinh-chinh-----------------------}
uses crt;
var a,b,c,d:real;
s,k:real;
x1,x2,x3:real;
begin
clrscr;
write('Nhap a,b,c,d = ');readln(a,b,c,d);
s:=b*b-3*a*c;
writeln(s);
if s<>0 then
begin
k:=(9*a*b*c-2*b*b*b-27*a*a*d)/2/sqrt(abs(s*s*s));
writeln(k);
if s>0 then
begin
if abs(k)<=1 then
begin
writeln('PT co 3 nghiem thuc: ');
x1:=(2*sqrt(s)*cos(arccos(k)/3)-b)/(3*a);
x2:=(2*sqrt(s)*cos(arccos(k)/3-2*pi/3)-b)/(3*a);
x3:=(2*sqrt(s)*cos(arccos(k)/3+2*pi/3)-b)/(3*a);
writeln('x1 = ',x1:10:12);
writeln('x2 = ',x2:10:12);
writeln('x3 = ',x3:10:12);
end
else begin
x1:=sqrt(abs(s))*abs(k)/3/a/k*(can(abs(k)+sqrt(k*k-1))+can(abs(k)-sqrt(k*k-1)))-b/3/a;
writeln(' Nghiem thuc: x1 = ',x1:10:12);
a:=a;
b:=x1*a+b;
c:=x1*b+c;
nghiemphuc(a,b,c);
end;
end
else begin
x1:=sqrt(abs(s))/(3*a)*(can(k+sqrt(k*k+1))+can(k-sqrt(k*k+1)))-b/3/a;
writeln(' Nghiem thuc: x1 = ',x1:10:12);
a:=a;b:=x1*a+b;c:=x1*b+c;
nghiemphuc(a,b,c);
end;
end
else begin
x1:=(-b+can(b*b*b-27*a*a*d))/3/a;
writeln(' Nghiem thuc: x = ',x1:10:12);
end;
readln;
end.

program diem_thi;

uses crt;

var dt: real;

begin

clrscr;

writeln(' nhap diem thi:'); readln(dt);

if dt=>8 then writeln('loai gioi:');

if (6.5 <= dt) and (dt<8.0) writeln(' loai kha:');

if (5<=dt) and (dt<6,5) then writeln(' loai trung binh:');

if dt<5 then writeln('loai ken:');

readln;

end.

uses crt;

Var t,l,h,v,s,d,tb: real;

begin

Write ('Diem Toan: '); readln (t);

Write ('Diem Ly: '); readln (l);

Write ('Diem Hoa: '); readln (h);

Write ('Diem Van: '); readln (v);

Write ('Diem Su: '); readln (s);

Write ('Diem Dia: '); readln (d);

Tb:=(t + l + h + v + s + d)/6;

Writeln('Diem trung binh: ',tb);

readln;

end.

Xét học lực thì bạn phải đưa ra thang điểm để xét học lực tốt, khá...