Важная информация
Показано с 1 по 9 из 9

Тема: Экологическая программа

  1. #1 Экологическая программа 
    Новичок
    Регистрация
    19.01.2013
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Привет мне нужно создать любую экологическую программу в паскале, нашел такую, попробовал сделать без гистограммы [Ссылки могут видеть только зарегистрированные пользователи. ]
    Код pascal:
    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.
    Все что есть. Помогите доделать
    Ответить с цитированием  
     

  2. #2  
    Новичок
    Регистрация
    19.01.2013
    Сообщений
    9
    Сказал(а) спасибо
    0
    Поблагодарили 1 раз в 1 сообщении
    А что тут доделывать?
    Ответить с цитированием  
     

  3. #3  
    Новичок
    Регистрация
    19.01.2013
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    belya в формуле не уверен, к тому же постоянно получается 2 у этого кода. А если заменить D = ',E); думаешь правильно будет?
    Ответить с цитированием  
     

  4. #4  
    Гуру Аватар для Konstantin Shcherba
    Регистрация
    08.11.2010
    Сообщений
    1,336
    Сказал(а) спасибо
    26
    Поблагодарили 139 раз(а) в 107 сообщениях
    Записей в блоге
    1
    Я думаю надо поискать корректную формулу в учебниках по экологии и только после этого составлять программу.
    Ответить с цитированием  
     

  5. #5  
    Новичок
    Регистрация
    19.01.2013
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    admin Да наверно вы правы. С такими значениями еще понятней даже а формулу составить все равно сложно [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  6. #6  
    Новичок
    Регистрация
    19.01.2013
    Сообщений
    9
    Сказал(а) спасибо
    0
    Поблагодарили 1 раз в 1 сообщении
    Эмм..Не уверен.Тут же количество дней сказано вычислить
    Ответить с цитированием  
     

  7. #7  
    Новичок
    Регистрация
    19.01.2013
    Сообщений
    9
    Сказал(а) спасибо
    0
    Поблагодарили 1 раз в 1 сообщении
    Да и программа немного мне непонятна.Если количество отходов убывает с каждым днем на B,то достаточно было E:=E-B;
    Ответить с цитированием  
     

  8. #8  
    Новичок
    Регистрация
    19.01.2013
    Сообщений
    9
    Сказал(а) спасибо
    0
    Поблагодарили 1 раз в 1 сообщении
    Ну а если в B раз,то E:=E/B;
    Ответить с цитированием  
     

  9. #9  
    Новичок
    Регистрация
    19.01.2013
    Сообщений
    9
    Сказал(а) спасибо
    0
    Поблагодарили 1 раз в 1 сообщении
    Код pascal:
    var i:integer;
    E,A,B,C:real;
    begin
    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;
    i:=0;
    while E>C do begin
    i:=i+1;
    E:=E-B; {or E/B}
    end;
    Writeln('Vremyay v techenie kotorogo voda yadovita. D = ',i);
    end.
    Последний раз редактировалось Konstantin Shcherba; 20.01.2013 в 15:05. Причина: Пользуйтесь пожалуйста bb кодами [highlight=pascal] [/highlight] для оформления программ
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Программа переворачивающия слова
    от barinov95 в разделе QBasic
    Ответов: 11
    Последнее сообщение: 12.12.2013, 13:03
  2. Троянская программа JS/IFrame.GJ
    от Nurlanovic в разделе Софт
    Ответов: 0
    Последнее сообщение: 18.01.2013, 23:42
  3. Верно ли составлена программа
    от Ириска в разделе QBasic
    Ответов: 2
    Последнее сообщение: 08.01.2012, 17:49
  4. Выпуск №1 - первая программа
    от Konstantin Shcherba в разделе Архив
    Ответов: 0
    Последнее сообщение: 24.11.2010, 19:54
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •