Question

Viết giùm mình code các bài sau:

1/ Min4so - Lập trình đọc vào 4 số a,b,c,d từ file

- In ra giá trị nhỏ nhất trong 4 số đó

2/ Tongtich - Lập trình đọc vào 2 số a,b từ file

- Xuất ra file tổng của a,b nếu a và b cùng chẵn

- Xuất ra file tích của a,b nếu a và b không cùng chẵn

3/SoCP2 - Lập trình đọc vào số nguyên N trong file

- Xuất ra file chữ YES và giá trị x với x*x=N nếu N là số chính phương

- Xuất ra file chữ NO nếu N không phải là số chính phương

4/ KTTG2 - Lập trình đọc vào 3 số nguyên a,b,c là số đo 3 cạnh tam giac trong file

- Lập trình kiểm tra xem tam giác đó là tam giác gì? (Thường, Cân, Đều)

Answer 1

1:

uses crt;
const fi='min4so.inp';
var f1:text;
a,b,c,d,min:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b,c,d);
min:=a;
if min>b then min:=b;
if min>c then min:=c;
if min>d then min:=d;
writeln('so nho nhat la: ',min);
close(f1);
readln;
end.

2:

const fi='tongtich.inp';
fo='tongtich.out';
var f1,f2:text;
a,b:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,b);
if (a mod 2=0) and (b mod 2=0) then writeln(f2,'tong cua hai so la: ',a+b)
else writeln(f2,'tich cua hai so la: ',a*b);
close(f1);
close(f2);
end.

3:

const fi='socp2.inp';
fo='socp2.out';
var f1,f2:text;
n:integer;
x:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
if trunc(sqrt(n))=sqrt(n) then
begin
writeln(f2,'YES');
x:=sqrt(n);
writeln(f2,x:4:2);
end
else writeln(f2,'NO');
close(f1);
close(f2);
end.

4:

const fi='kttg2.inp';

fo='kttg2.out';
var a,b,c,kt:integer;

f1,f2:text;

begin
assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
write(f2,'day la tam giac ');
kt:=0;
if ((a=b)and(a<>c)and(b<>c)) or ((b=c)and(b<>a)and(b<>c)) or ((a=c)and(a<>b)and(c<>b)) then kt:=1;
if (a=b) and (b=c) then kt:=2;
if (sqr(a)=sqr(b)+sqr(c)) or (sqr(b)=sqr(a)+sqr(c)) or (sqr(c)=sqr(a)+sqr(b)) then kt:=3;
if kt=0 then write(f2,'thuong');
if kt=1 then write(f2,'can');
if kt=2 then write(f2,'deu');
if kt=3 then write(f2,'vuong');
end
else writeln(f2,'day khong phai la tam giac');
close(f1);
close(f2);
end.