Pascal - Помощь студентам

Jinnn91 · 10.05.2012, 21:32

Всем привет єсть прога вот задание

Составить блок-схему алгоритма и написать программу на одном из алгоритмических языков программирования (Pascal, Delphi или Cи++) следующей задачи: вычислить, сколько слагаемых будет в заданном ряду 1+1/2+1/3+1/4+...1/n, чтобы значение суммы ряда было больше 5. Результат вывести на экран.

Прогу набросал в Pascal но не уверен што правильно посмотрите пожалуста

PHP код:


			
var s: real;

i:integer;

begin

   repeat

      i:=i+1;

      s:=s+1/i;

   until s>5;

   writeln(i);

   readln;

end.

Valio · 10.05.2012, 21:36

Годится. Только следует задать начальные значения для переменых.

i := 0;
s := 0;

Jinnn91 · 10.05.2012, 21:37

Цитата:

Сообщение от Valio

Годится. Только следует задать начальные значения для переменых.

i := 0;
s := 0;

А єсли не сложно подскажите перед чем их пихнуть

Valio · 10.05.2012, 21:40

Цитата:

А єсли не сложно подскажите перед чем их пихнуть

Это довольно ответственная часть программы.
Либо сразу после первого Begin, либо перед repeat. Правда в любом случае получится одно и тоже...

Jinnn91 · 10.05.2012, 21:41

спс щас попробую

Jinnn91 · 10.05.2012, 21:42

ищо хочу изменить формат вывода: writeln(i:1:0); вместо writeln(i); ну оно не работаєт подскажите в чом проблема

Valio · 10.05.2012, 21:45

А зачем? i это integer, ему это не надо.

Jinnn91 · 10.05.2012, 21:49

ну i := 0; s := 0; вставил после Begin резульат после запуска получился 83

Valio · 10.05.2012, 21:56

Ну вероятно ответ 83.

Jinnn91 · 10.05.2012, 21:57

Ладно спс за подсказки и за помощ

10.05.2012, 21:32	#1
Jinnn91 Новичок Джуниор Регистрация: 10.05.2012 Сообщений: 6	Pascal Всем привет єсть прога вот задание Составить блок-схему алгоритма и написать программу на одном из алгоритмических языков программирования (Pascal, Delphi или Cи++) следующей задачи: вычислить, сколько слагаемых будет в заданном ряду 1+1/2+1/3+1/4+...1/n, чтобы значение суммы ряда было больше 5. Результат вывести на экран. Прогу набросал в Pascal но не уверен што правильно посмотрите пожалуста PHP код: `var s: real; i:integer; begin repeat i:=i+1; s:=s+1/i; until s>5; writeln(i); readln; end.`

10.05.2012, 21:36	#2
Valio Сливочное масло Участник клуба Регистрация: 01.01.2011 Сообщений: 1,149	Годится. Только следует задать начальные значения для переменых. i := 0; s := 0; Сливочное масло Valio - компиляция как по маслу

10.05.2012, 21:45	#7
Valio Сливочное масло Участник клуба Регистрация: 01.01.2011 Сообщений: 1,149	А зачем? i это integer, ему это не надо. Сливочное масло Valio - компиляция как по маслу

10.05.2012, 21:56	#9
Valio Сливочное масло Участник клуба Регистрация: 01.01.2011 Сообщений: 1,149	Ну вероятно ответ 83. Сливочное масло Valio - компиляция как по маслу

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Pascal: Массивы, подпрограммы, текст на языке Pascal	WarriorCow	Помощь студентам	4	22.02.2012 15:28
Программы в Pascal, среда pascal ABC. Лабораторные работы	Одинокая Волчица	Фриланс	8	10.02.2012 20:09
Неудобство ABC Pascal и глюк Borland Pascal	proser93	Помощь студентам	0	19.11.2011 19:01
Turbo Pascal и Free Pascal , в чем разница?	antoxann	Паскаль, Turbo Pascal, PascalABC.NET	31	09.11.2011 07:52
а free pascal не читает задачи которые написаны на turbo pascal?	demonara	Паскаль, Turbo Pascal, PascalABC.NET	3	25.05.2009 16:28

10.05.2012, 21:41	#5
Jinnn91 Новичок Джуниор Регистрация: 10.05.2012 Сообщений: 6	спс щас попробую

10.05.2012, 21:42	#6
Jinnn91 Новичок Джуниор Регистрация: 10.05.2012 Сообщений: 6	ищо хочу изменить формат вывода: writeln(i:1:0); вместо writeln(i); ну оно не работаєт подскажите в чом проблема

10.05.2012, 21:49	#8
Jinnn91 Новичок Джуниор Регистрация: 10.05.2012 Сообщений: 6	ну i := 0; s := 0; вставил после Begin резульат после запуска получился 83

10.05.2012, 21:57	#10
Jinnn91 Новичок Джуниор Регистрация: 10.05.2012 Сообщений: 6	Ладно спс за подсказки и за помощ