Помогите составить листинг программы в паскале.
Ввести файл F . Каждый элемент в файле, чьё значение лежит вне
диапазона [ 8; 6] − возвести в квадрат. Файл вывести до и после
преобразования

Ответы (1)

Омеляна 18.10.2024 2

//Pascal ABC.NET v3.1 сборка 1172

//Ввод файла в текстовом редакторе
Var
f:text;
s:string;
a:integer;
begin
writeln('First file:');
assign(f,'text.txt');
reset(f);
while not Eof(f) do
begin
read(f,a);
write(a:4);
if (a>8) or (a<6) then
a:=sqr(a);
s:=s+a+' ';
end;
close(f);
writeln;
writeln('Final file:');
write(s);
assign(f,'text.txt');
rewrite(f);
write(f,s);
close(f);
end.

Пример работы программы:
First file:
1 2 3 4 5 6 7 8
Final file:
1 4 9 16 25 6 7 8

//Ввод файла программе

Var
f:text;
s,s1:string;
a,i:integer;
begin
assign(f,'text.txt');
rewrite(f);
for i:=1 to 10 do
begin
read(a);
write(f,a);
s1:=s1+inttostr(a)+' ';
if (a>8) or (a<6) then a:=sqr(a);
s:=s+inttostr(a)+' ';
end;
close(f);
writeln('First file:');
writeln(s1);
writeln('Final file:');
write(s);
assign(f,'text.txt');
rewrite(f);
write(f,s);
close(f);
end.

Пример ввода:
1
2
3
4
5
6
7
8
9
10
Пример вывода:
First file:
1 2 3 4 5 6 7 8 9 10
Final file:
1 4 9 16 25 6 7 8 81 100

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ