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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 16.09.2017, 21:43   #1
qqq``
Пользователь
 
Регистрация: 05.09.2017
Сообщений: 26
По умолчанию проверьте программный код (неправильно идёт счёт)

Код:
program project1;
uses Crt,FIleUtil;
var G,F,s,o,a,w:byte; i,p,d,j,h:integer;
begin
  writeln (utf8ToConsole('Введите значение F'));//входной параметр
  readln (F);
  writeln (utf8ToConsole('Введите начальное значение диапазона G'));
  readln (P);
  writeln (utf8ToConsole('Введите конечное значение диапазона G'));
  readln (D);
  writeln (utf8ToConsole('Введите шаг диапазона J '));
  readln (J);
   h:=(D-P) div J;//по данной формуле вычисляется сколько раз будет выполнятся цикл
   G:=P;
  for i:=1 to h do //Цикл с параметром,чтобы автоматически вычислялся диапазон
   begin
    writeln (utf8ToConsole('Итерация='),i,' G=',G);
     if G<F then
       begin
       writeln ('G<F ',g,'<',f);
        s:=g;
          a:=f;
            G:=(G+F) div 2;
              F:=s*a*2;
                end
      else
        begin
      writeln ('G>=F  ',g,'>',f);
        o:=f;
         w:=g;
           F:=(g+F) div 2;
              G:=w*o*2;
                 end;
      writeln ('G=',G);
      writeln ('F=',F);
      G:=P+J*i;//Формула нужна для того, чтобы каждый раз к значению G прибавлялся шаг J.
      readln();
end;
  writeln (utf8ToConsole('Нажмите enter для завершения программы...'));
  readln ();
end.

Последний раз редактировалось Аватар; 17.09.2017 в 11:03.
qqq`` вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
программный код на Бэйсике, проверьте его на ошибки sevych Помощь студентам 0 18.01.2017 19:05
почему здесь выкидуется ошибка на счёт c_str и ToInt на счёт ostream elf01 C++ Builder 5 19.12.2011 23:07
Программный код в Бейсике Богдан Величко Помощь студентам 4 15.05.2011 02:43
программный код в VB 6.0 Julia220992 Помощь студентам 4 29.04.2010 23:01
Спецы!! Проверьте прогу почему работает неправильно?? SanSanblch Общие вопросы Delphi 2 05.12.2008 18:17