VPF::Экологическая программа - Форум программистов

VadimT

Дата 19.1.2013, 07:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 19.1.2013

Репутация: нет
Всего: нет

Привет мне нужно создать любую экологическую программу в паскале, нашел такую, попробовал сделать без гистограммы http://i052.radikal.ru/1301/a8/981b34eb6ad7.jpg

Код


uses crt;
var i:integer;
E,A,B,C:real;
begin 
clrscr;
Writeln('Nachalnaya koncentraciya yadovitih othodov v vodoeme. A = ');
Readln(A);
Writeln('Estastvennoe ymenshenie zagryazneniya vodoema. B = ');
Readln(B);
Writeln('Predelnaya dopustimaya koncentracia zagryazneniya. C = ');
Readln(C);
E:=A/B;
i:=1;
repeat
i:=i+1;
E:=(E*i)/(B*i);
until E<C;
Writeln('Vremyay v techenie kotorogo voda yadovita. D = ',i);
Readln;
end.

Знаю что что-то не так, помогите исправить

serezhka1986

Дата 23.1.2013, 18:38 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 215
Регистрация: 12.6.2009

Репутация: нет
Всего: 0

На картинке форма, а код для консольного приложения. Как должно быть то?

--------------------

Для некоторых лучший способ написать что-нибудь осмысленное - это сесть жопой на клавиатуру...

Чучмек

Дата 23.1.2013, 23:30 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 7
Всего: 41

Цитата(VadimT @ 19.1.2013, 07:58

)

E:=A/B;

Цитата(VadimT @ 19.1.2013, 07:58

)

E:=(E*i)/(B*i);

Что это.
По какой формуле считаешь?

--------------------

умную мысль держи при себе, а дурной - поделись с другими

serezhka1986

Дата 24.1.2013, 10:05 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 215
Регистрация: 12.6.2009

Репутация: нет
Всего: 0

Цитата(Чучмек @ 23.1.2013, 23:30

)

Что это.
По какой формуле считаешь?

Так это же и есть формула... Задается A, B и C, а потом вычисляется E

--------------------

Для некоторых лучший способ написать что-нибудь осмысленное - это сесть жопой на клавиатуру...

Чучмек

Дата 24.1.2013, 12:14 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 7
Всего: 41

Гавно собачье, а не формула.
i/i=1
if B<1 then E-> ?

Это сообщение отредактировал(а) Чучмек - 24.1.2013, 12:20

--------------------

умную мысль держи при себе, а дурной - поделись с другими

serezhka1986

Дата 24.1.2013, 13:14 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 215
Регистрация: 12.6.2009

Репутация: нет
Всего: 0

Там же сначала E:=A/B;
Потом i:=1;
Далее цикл, пока E<C
В цикле i увеличивается на единицу и формула E:=(E*i)/(B*i);. В каждом цикле E будет уже другая.
Не спорю, в данной формуле E:=(E*i)/(B*i); i вообще ничего не дает, но в конечном результате i - количество дней, пока вода будет еще ядовитой.

Цитата(Чучмек @ 24.1.2013, 12:14

)

if B<1

Ну так здесь проверку надо делать, чтобы вводимое значение B было >0

Это сообщение отредактировал(а) serezhka1986 - 24.1.2013, 13:33

--------------------

Для некоторых лучший способ написать что-нибудь осмысленное - это сесть жопой на клавиатуру...

Чучмек

Дата 24.1.2013, 14:13 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 7
Всего: 41

Я спрашивал - откуда взято.
Что есть

Цитата(VadimT @ 19.1.2013, 07:58

)

Estastvennoe ymenshenie zagryazneniya vodoema. B =

Во сколько раз упадет концентрация за сутки?

Код


A:=начальная концентрация;
B:=во сколько раз в сутки;
С:=ПДК;
i:=0;
while A>C do
 begin
 A:=A/B;
 inc(I);
 end;

--------------------

умную мысль держи при себе, а дурной - поделись с другими

serezhka1986

Дата 24.1.2013, 15:17 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 215
Регистрация: 12.6.2009

Репутация: нет
Всего: 0

Цитата(Чучмек @ 24.1.2013, 14:13

)

Я спрашивал - откуда взято.

Ну это уже у автора поста надо спрашивать smile

Судя по скриншоту, все значения (А,В,С) вводятся произвольно в Edit-и
user posted image

--------------------

Для некоторых лучший способ написать что-нибудь осмысленное - это сесть жопой на клавиатуру...

Poseidon

Дата 24.1.2013, 15:35 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Формулы ... просто нет слов. Я начинаю понимать зачем программистов учат математике.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Poseidon

Дата 24.1.2013, 16:00 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133

Цитата(VadimT @ 19.1.2013, 07:58

)

Знаю что что-то не так, помогите исправить

Кстати, а что именно не так? Нужно найти D? Так тут даже формулы выдумывать не надо, чистая математика.
D >= Log B (A/C)

Все исходные данные у нас есть. Правая часть неравенства вычисляется, про левую известно что это целое. Какое проблемы? Для показанных данных правая часть ровна 7.828. Ближайшее целое, большее этого - 8. Вот и все решение.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »