1 / 1 / 0
Регистрация: 29.09.2013
Сообщений: 72
1

Дано целое число N (>2). Последовательность вещественных чисел AK определяется следующим образом

18.09.2014, 08:42. Показов 2167. Ответов 1
Метки нет (Все метки)

Имя входного файла zс37.in
Имя выходного файла zc37.out
Дано целое число N (>2). Последовательность вещественных чисел AK определяется следующим образом
A1=1
a2=2,
a3=3,
Вывести элементы
Формат входных данных: ввод состоит из одного числа
Формат выходных данных: вывод содержит последовательность чисел, записанных каждое с новой строки.
Пример входного файла:
4
Пример выходного файла:
1
2
3
3

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program hidan;
var n,a,c,i:integer;
  y: real;
t:array[1..100] of real;
f_in, f_out:text;
begin
   assign(f_in,'z291_in.txt'); rewrite(f_in);writeln('Ââåäèòå ÷èñëî'); readln(n);
   writeln (f_in, n);
   close(f_in);
   reset(f_in);
   readln(f_in,n);
   for i:=1 to n do
      readln(f_in,t[i]) ;
assign(f_out,'z291_out.txt');
   rewrite(f_out);
 writeln(f_out,t[i]);
   close(f_in);
   close(f_out);
   end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.09.2014, 08:42
Ответы с готовыми решениями:

Оператор While. Дано вещественное число ε (> 0). Последовательность вещественных чисел AK определяется следую
Дано вещественное число ε (> 0). Последовательность вещественных чисел AK определяется следующим...

Дано целое число N и набор из N вещественных чисел...
Дано целое число N и набор из N вещественных чисел. Если данный набор образует убывающую...

Дано целое число N и набор из N вещественных чисел.....
Дано целое число N и набор из N вещественных чисел. Если данный набор образует убывающую...

Дано целое число N(>1) и набор из N вещественных чисел
Дано целое число N(>1) и набор из N вещественных чисел. Если данный набор образует убывающую...

1
191 / 161 / 116
Регистрация: 14.09.2013
Сообщений: 302
18.09.2014, 18:57 2
Добавлено через 4 минуты
Цитата Сообщение от Student_Skgu Посмотреть сообщение
writeln(f_out,t[i]);
i перед этим не определенно, как вы выводите t[i]?

Добавлено через 2 минуты
Цитата Сообщение от Student_Skgu Посмотреть сообщение
for i:=1 to n do
readln(f_in,t[i]) ;
у вас в файле единственное число n, как вы считываете массив?

Добавлено через 4 минуты
если я правильно поняла условие, то должно быть так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program hidan;
var n, i:integer;
f_in, f_out:text;
 
begin
   assign(f_in,'z291_in.txt'); reset(f_in);
   assign(f_out,'z291_out.txt'); rewrite(f_out);
   readln(f_in, n);   
   for i:=1 to n do
      writeln(f_out, i);
   close(f_in);
   close(f_out)
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.09.2014, 18:57
Помогаю со студенческими работами здесь

Дано целое число N и набор из N вещественных чисел: A1, A2, ..., AN. Вывести: A1N, A2N–1, ..., AN–12, AN
Дано целое число N и набор из N вещественных чисел: A1, A2, ..., AN. Вывести следующие числа: A1N,...

Дано целое число N и набор из N вещественных чисел. Вывести в том же порядке округленные значения всех чисел из данного набора
нужно написать через array Series7. Дано целое число N и набор из N вещественных чисел. Вывести...

Дано целое число N и набор из N положительных вещественных чисел. Вывести в том же порядке целые части всех чисел из данного набора...
Дано целое число N и набор из N положительных вещественных чисел. Вывести в том же порядке целые...

Дано целое число N (> 1). Вывести последовательность чисел Фибоначчи Fk
Дано целое число N (> 1). Последовательность чисел Фибоначчи Fk до (целого типа) определяется...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru