Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Экологическая программа 
:(
    Опции темы
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.


Знаю что что-то не так, помогите исправить
PM MAIL   Вверх
serezhka1986
Дата 23.1.2013, 18:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 0
На картинке форма, а код для консольного приложения. Как должно быть то?
--------------------
Для некоторых лучший способ написать что-нибудь осмысленное - это сесть жопой на клавиатуру... 
PM   Вверх
Чучмек
Дата 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);

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



--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
serezhka1986
Дата 24.1.2013, 10:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 0
Цитата(Чучмек @  23.1.2013,  23:30 Найти цитируемый пост)
Что это.
По какой формуле считаешь?

Так это же и есть формула... Задается A, B и C, а потом вычисляется E
--------------------
Для некоторых лучший способ написать что-нибудь осмысленное - это сесть жопой на клавиатуру... 
PM   Вверх
Чучмек
Дата 24.1.2013, 12:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


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

Репутация: 7
Всего: 41
Гавно собачье, а не формула.
i/i=1
if B<1 then E-> ?

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


--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
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
--------------------
Для некоторых лучший способ написать что-нибудь осмысленное - это сесть жопой на клавиатуру... 
PM   Вверх
Чучмек
Дата 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;




--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
serezhka1986
Дата 24.1.2013, 15:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 0
Цитата(Чучмек @  24.1.2013,  14:13 Найти цитируемый пост)
Я спрашивал - откуда взято.

Ну это уже у автора поста надо спрашивать  smile 
Судя по скриншоту, все значения (А,В,С) вводятся произвольно в Edit-и
user posted image
--------------------
Для некоторых лучший способ написать что-нибудь осмысленное - это сесть жопой на клавиатуру... 
PM   Вверх
Poseidon
Дата 24.1.2013, 15:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


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

Репутация: 9
Всего: 133
Формулы ... просто нет слов. Я начинаю понимать зачем программистов учат математике. 


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
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. Вот и все решение.


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0824 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.