Тема: введення/виведення з файлу
1.) ось створив програму, повинна працювати, але не знаю як записати в txt файл ось ці дані (прикріплені в зображенні) щоб програма правильно їх зчитала, саме завдання звучить так: "Вхідні величини представити у вигляді зовнішнього текстового файлу, вивести їх з файлу у змінні, а потім - вивести на екран у форматі". масив прикріплений в вигляді зображення.
program sdfsdf;
const k=5;
var
n:array[1..k] of real;
m:integer;
a:real;
b,c,d:string[4];
i:integer;
f:text;
begin
assign(f,'lab.txt');
reset(f);
readln(f,n,m,a);
for i:=1 to k do
read(f,n[i]);
readln(f:text,b,c,d);
close(f);
writeln('rezylt in file:');
write('n=');
for i:=1 to k do write(n[i]:2);
writeln('m=',w:2,' a=',a:3);
writeln('WHILE=',b,' REPEAT=',c,' for=',d);
readln;
end.
2.) у мене ще є програма, чисто теоретично вона працює, але так же як і у першій не знаю як записати масив в txt файл. саме завдання звучить так : "ввести масив даних з текстового файлу, вивести його в природному вигляді, вивести результат (знайти різницю між максимальним та мінімальним значенням) та записати в текстовий файл.
program sd;
const m=3;
type
mas=array[1..m,1..m] of integer;
var i,j:integer;
r:integer;
amax,amin:integer;
a:mas;
fi,fo:text;
begin
assign(fi,'lab2.txt');
reset(fi);
assign(fo,'lab2.txt');
rewrite(fo);
for i:=1 to m do
for j:=1 to m do
read(fi,a[i,j]);
close(fi);
amax:=a[1.1]; amin:=a[1.1];
for i:=1 to m do
for j:=1 to m do
begin
if amax<a[i,j] then amax:=a[i,j];
if amin>a[i,j] then amin:=a[i,j];
end;
r:=amax-amin;
writeln(fo,'rezult R=',r:4);
close(fo);
readln;
end.