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
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.