Цикл с параметром

Таша

Дата: Пятница, 21.03.2008, 15:58 | Сообщение # 1

Новичок

Группа: Пользователи

Сообщений: 8

Репутация: 0

Замечания: 0%

Статус: Offline

Начав тренировки, спортсмен в первый день пробежал 10км.Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня.Какой суммарный путь пробежит спортсмен за 7 дней?Спасибо!

etc

Дата: Пятница, 21.03.2008, 23:16 | Сообщение # 2

Новичок

Группа: Пользователи

Сообщений: 9

Репутация: 1

Замечания: 0%

Статус: Offline

Таша, Вы где учитесь?
Program sportsman;
var s,p:real; i:integer;
begin
s:=10; p:=1.1;
for i:=2 to 7 do
s:=s+s*p;
writeln (s);
end.

Таша

Дата: Суббота, 22.03.2008, 00:39 | Сообщение # 3

Новичок

Группа: Пользователи

Сообщений: 8

Репутация: 0

Замечания: 0%

Статус: Offline

в институте, первый курс..Весь паскаль пропустила, болела - а теперь препод к стене прижал.Грит - сдавай долги или не надейся на зайчет в этом году.вот так вот..)Большое спасибо!*)

Добавлено (21.03.2008, 17:39)
---------------------------------------------
Program sportsman;
var s,p:real; i:integer;
begin
readln(s,p);
s:=10; p:=1.1;
for i:=2 to 7 do
s:=s+s*p;
writeln (s);
end.
когда запускается ничего не выдает!

Сообщение отредактировал Таша - Суббота, 22.03.2008, 00:28

Alexander

Дата: Суббота, 22.03.2008, 02:59 | Сообщение # 4

Всевышний

Группа: Модераторы

Сообщений: 475

Репутация: 16

Замечания: 0%

Статус: Offline

Мдя..

Ну вы даёте!

Code

var
     S,Result:REAL;
     i:BYTE;
begin
     S:=10;
     Result:=10;
     for i:=2 to 7 do
        begin
           s:=s*1.1;
           Result:=Result+s;
        end;
     writeln(Result:0:3);
end.

Quote

когда запускается ничего не выдает!

после запуска программа сразу читает данные с клавы(функция ReadLn).
Ну и считали вы конечно круто biggrin

он у вас там минимум пять сотен километров намотал biggrin

. Причём если etc явно просто поторопился, то вы показали, что даже не пытаетесь вникнуть в задание!

Скажем дружно- нафиг нужно!

Сообщение отредактировал Alexander - Суббота, 22.03.2008, 03:00

Таша

Дата: Суббота, 22.03.2008, 04:09 | Сообщение # 5

Новичок

Группа: Пользователи

Сообщений: 8

Репутация: 0

Замечания: 0%

Статус: Offline

не правда, попыталась я, вроде readln поставила там где надо.просто я сама вчера узнала, что такое Pascal, и вот..)) cry

Добавлено (21.03.2008, 20:55)
---------------------------------------------
хотя...теперь я понимаю что readln нафиг нужно..)но программа терь не запускается и ошибку не показывает

Добавлено (21.03.2008, 21:04)
---------------------------------------------
так.в конце readln добавила чтоб резутат показывал.только почему-то результат 94 с лишним, а должен быть около 17

Добавлено (21.03.2008, 21:06)
---------------------------------------------
убрала Result:=Result+s; , теперь нормально

Добавлено (21.03.2008, 21:08)
---------------------------------------------
вообще, result не нужно

Добавлено (21.03.2008, 21:09)
---------------------------------------------
аа, путь суммарный!!!! biggrin biggrin biggrin biggrin biggrin biggrin biggrin biggrin

Добавлено (21.03.2008, 21:09)
---------------------------------------------
блин...)))

Alexander

Дата: Суббота, 22.03.2008, 04:15 | Сообщение # 6

Всевышний

Группа: Модераторы

Сообщений: 475

Репутация: 16

Замечания: 0%

Статус: Offline

Quote

не правда, попыталась я

Надеюсь, но вы никаких своих наработок не выкладываете, откуда мы тогда можем узнать, что вы что-то пытались делать сами?
Она запускется, производит вычислания и завершается. Посмотреть состояние консоли можно нажав <Alt>+<D>, а затем <O> или тоже самое мышкой(Debug->Output).
Также можно в конце программы вызвать функцию ReadLn без параметров, тогда для завершения программы нужно будет нажать <Enter>. Ну а самый оптимальный вариант это вызвать функцию ReadKey из модуля crt, но для этого надо сначала подключить этот модуль.

Скажем дружно- нафиг нужно!

Таша

Дата: Суббота, 22.03.2008, 04:23 | Сообщение # 7

Новичок

Группа: Пользователи

Сообщений: 8

Репутация: 0

Замечания: 0%

Статус: Offline

буду делать с readln, спасибо!:)

		Четверг, 09.01.2025
	Pascal 4 All