Напишите программу для записи в файл десяти чисел вводимых с клавиатуры.
Answers & Comments
karasikov
Var i, temp :integer; begin assign(output, 'output.txt'); rewrite(output); for i to 10 do begin read(temp); write(temp); end; end. файл output.txt должен быть создан.
1 votes Thanks 1
Maximason
Var f:text ; c:array [1..10] of integer; i:integer; begin for i:=1 to 10 do begin writeln ('Введите ',i,' число'); read(c[i]); end; assign (f,'res.txt'); rewrite(f); for i:=1 to 10 do write (f,' ',c[i]); close (f); end.
Писал на Pascal ABC. Для того, чтобы работала, тебе нужно создать папку, и в этой папке сохранить данную программу. После запуска, тебе нужно будет ввести 10 чисел. Результат сохранится в той папке, в которой будет сохранена программа !
2 votes Thanks 1
Maximason
Или же в 9 строчке указывай подробный путь, в какую папку нужно сохранить файл.
Answers & Comments
i, temp :integer;
begin
assign(output, 'output.txt'); rewrite(output);
for i to 10 do begin
read(temp);
write(temp);
end;
end.
файл output.txt должен быть создан.
c:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
writeln ('Введите ',i,' число');
read(c[i]);
end;
assign (f,'res.txt');
rewrite(f);
for i:=1 to 10 do
write (f,' ',c[i]);
close (f);
end.
Писал на Pascal ABC. Для того, чтобы работала, тебе нужно создать папку, и в этой папке сохранить данную программу. После запуска, тебе нужно будет ввести 10 чисел. Результат сохранится в той папке, в которой будет сохранена программа !