Question

[Vũ Nam Anh]

Mọi người giải giúp mình bài này với

Mình cảm ơn

1. Viết chương trình bằng NNLT Pascal

- đọc từ tệp dayso.Txt mỗi lần ra một số nguyên (tệp dayso.Txt có 1 dòng chứa các số nguyên mỗi số cách nhau 1 dấu cách)

- hiện ra màn hình bình phương số nguyên đó

2. Viết chương trình bằng NNLT Pascal

- nhập từ bàn phím số do chiều dài và chiều rộng của một hình chữ nhật

- ghi vào tệp văn bản hcn.Txt 4 dòng văn bản

+ dòng 1: số đo chiều dài

+ dòng 2: số đo chiều rộng

+ dòng 3: chu vi

+ dòng 4: diện tích

Answer 1

[Nguyễn Lê Phước Thịnh]

Câu 1:

uses crt;

const fi='dayso.txt';

var f1:text;

a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

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

n:=0;

while not eoln(f1) do

begin

inc(n);

read(f1,a[n]);

end;

writeln('Binh phuong cua cac phan tu trong day so la: ');

for i:=1 to n do

write(sqr(a[i]):4);

close(f1);

readln;

end.

Câu 2:

uses crt;
const fo='hcn.txt';
var f:text;
d,r,cv,dt:real;
begin
clrscr;
assign(f,fo); rewrite(f);
write('nhap chieu dai:'); readln(d);
write('nhap chieu rong:'); readln(r);
if (d>0) and (r>0) and (d>=r) then
begin
cv:=(d+r)*2;
dt:=d*r;
writeln(f,'chieu dai la: ',d:4:2);
writeln(f,'chieu rong la: ',r:4:2);
writeln(f,'chu vi la: ',cv:4:2);
writeln(f,'dien tich la: ',dt:4:2);
end
else writeln('Vui long nhap lai');
close(f);
readln;
end.