Помощь - Поиск - Пользователи - Календарь
Полная версия: writeln('');
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Alan
Приветствую всех!

Задача такова: ввести число N, после чего выполнить writeln N-нное количество раз.

Вопрос: как это написать в коде?
Игорь
Так что ли?


program prog;

var n,i:integer;

begin
read(n);
for i:=1 to n do
begin
writeln;
end;
end.

Гость
Цитата
Первый ряд входного файла содержит число N — количество подсказок. Следующие N рядков содержат сами подсказки — номер направления и количество шагов. Числа разделены пробелами.

Это задание из олимпиадной задачи. Меня интересует, что именно прописать после ввода числа N, чтобы write выполнялось N раз.
Код
program prog;
var n,i:integer;
begin
write('Введите число N: ');
read(n);
//и вот здесь нужно что-то указать, что бы вводить номер направления и количество шагов N раз
Alan
Цитата
Первый ряд входного файла содержит число N — количество подсказок. Следующие N рядков содержат сами подсказки — номер направления и количество шагов. Числа разделены пробелами.


Это задание из олимпиадной задачи. Меня интересует, что именно прописать после ввода числа N, чтобы write выполнялось N раз.
Код
program prog;
var n,i:integer;
begin
write('Введите число N: ');
read(n);
//и вот здесь нужно что-то указать, что бы вводить номер направления и количество шагов N раз


P.S. Случайно как Гость зашел smile.gif
Игорь
input будет файлом в котором в первой строке указано кол-во подсказок ,далее в n строках пойдут номер направления и кол-во шагов.


program prog;
var
inp:text;
n,a,b,i:integer;
begin
assign(inp,'input.txt');
reset(inp);
readln(inp,n);
writeln('Кол-во подсказок ',n);
for i:=1 to n do
begin
readln(inp,a,b);
write('Номер направления: ',a);
writeln(' Кол-во шагов: ',b);
end;
close(inp);
end.


Программа должна работать.

Alan
Значит, указывать количество подсказок и номера направления и количество шагов нужно сразу в input.txt?
Игорь
Да, сразу т.е. заранее. В первой строке файла кол-во подсказок. Потом в каждой строке по два числа.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.