Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.12.2009, 11:04   #1
feeras
 
Регистрация: 24.12.2009
Сообщений: 5
По умолчанию Задача на проценты (pascal)

В 1985 году урожай ячменя составил 20 ц с га. В среднем каждые два года за счет применения передовых агротехнических приемов урожай увеличивается на 5%. Определить, через сколько лет урожайность достигнет 25 ц с га.

program kolhoz;
uses crt;
var a:real;
b:integer;
begin
clrscr;
a:=20;
b:=0;
repeat
b:=b+2;
a:=a+20*0.05; (проблема в этой строчке: что не так?)
until a=25;
writeln ('Кол-во лет = ',b);
readkey;
end.
feeras вне форума Ответить с цитированием
Старый 27.12.2009, 11:22   #2
IT-man
АльTRUEи$т
Форумчанин
 
Аватар для IT-man
 
Регистрация: 19.03.2009
Сообщений: 784
По умолчанию

Код:
a:=20;
b:=0;
repeat
b:=b+2;
a:=a*1.05; (проблема в этой строчке: что не так?)
until a>=25;
Цитата:
«Никто не войдет в Рай, имея хотя бы крупицу гордыни в своем сердце». «Аллах Красив и любит красоту. Гордыня означает отказ от истины и высокомерие»
IT-man вне форума Ответить с цитированием
Старый 27.12.2009, 11:29   #3
feeras
 
Регистрация: 24.12.2009
Сообщений: 5
По умолчанию

Цитата:
Сообщение от IT-man Посмотреть сообщение
Код:
a:=20;
b:=0;
repeat
b:=b+2;
a:=a*1.05; (проблема в этой строчке: что не так?)
until a>=25;
Cпасибо за помощь!
feeras вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Банковские проценты (Delphi) KARUSHEV Помощь студентам 10 14.06.2011 22:25
Проценты Nitriyc Microsoft Office Excel 4 05.12.2009 22:02
проценты в паскале... Рамик Помощь студентам 2 28.05.2009 10:12
Проценты в Excel OKS Microsoft Office Excel 3 02.03.2009 15:04
Проценты... Siver Microsoft Office Excel 2 20.12.2008 08:57