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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.09.2017, 15:54   #1
qqq``
Пользователь
 
Регистрация: 05.09.2017
Сообщений: 26
По умолчанию При втором прохождении цикла Использует сохранившееся значение F , как исправить

Код:
program project1;
uses Crt,FIleUtil;
var G,F,w,o,s,a: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);
           a:=F;
           s:=G;
            G:=(G+F) div 2;
              F:=(a*s)*2;
                end
      else
        begin
      writeln ('G>=F  ',g,'>',f);
           o:=f;
           w:=g;
           F:=(F+G) 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.
_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

Последний раз редактировалось Serge_Bliznykov; 18.09.2017 в 16:07.
qqq`` вне форума Ответить с цитированием
Старый 18.09.2017, 16:02   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Сохранить изначальное значение в другой переменной, а потом переписать. Или для расчетов использовать доп. переменную.
p51x вне форума Ответить с цитированием
Старый 18.09.2017, 16:04   #3
qqq``
Пользователь
 
Регистрация: 05.09.2017
Сообщений: 26
По умолчанию

Да я пробовал сохранить F
qqq`` вне форума Ответить с цитированием
Старый 18.09.2017, 16:08   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Чем Вас не устроила ваша предыдущая тема?! Зачем плодить темы?

проверьте программный код (неправильно идёт счёт)
Serge_Bliznykov вне форума Ответить с цитированием
Старый 18.09.2017, 16:15   #5
qqq``
Пользователь
 
Регистрация: 05.09.2017
Сообщений: 26
По умолчанию

Я не очень понял идею " а потом переписать "

я исправил программу

поэтому перезалил

Последний раз редактировалось Аватар; 18.09.2017 в 16:18.
qqq`` вне форума Ответить с цитированием
Старый 18.09.2017, 16:18   #6
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

А в той теме нельзя перезалить? Уже была желтая за кросспостинг, скоро красные начнутся ))
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 18.09.2017, 16:19   #7
qqq``
Пользователь
 
Регистрация: 05.09.2017
Сообщений: 26
По умолчанию

я не знаю как

я бы удалил тему но тоже не знаю как
qqq`` вне форума Ответить с цитированием
Старый 18.09.2017, 16:22   #8
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Здесь же сообщения создаешь, а там - не знаю как )) Пост свой можно какое-то время и править, кнопка Правка
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 18.09.2017, 16:24   #9
qqq``
Пользователь
 
Регистрация: 05.09.2017
Сообщений: 26
По умолчанию

хорошо,спасибо
qqq`` вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как объединить ячейки во втором столбце при совпадении значений в первом столбце BorisD Microsoft Office Excel 13 08.09.2018 10:09
код вроде бы одинаков, но при втором варианте есть случаи когда при дальнейшей обработке counter получается состояние X. waleri Микроконтроллеры, робототехника, схемотехника, 3D принтеры 0 02.03.2017 22:20
Паскаль выдает Ошибку "Нельзя изменять значение переменной цикла внутри этого цикла" Тырин Артем Помощь студентам 14 17.01.2016 17:53
Автоматический разрыв vpn сессии при прохождении пинга. (С#) Phazz Помощь студентам 1 28.04.2011 20:52
Как залпом исправить значение полей таблицы bullvinkle SQL, базы данных 10 18.11.2009 14:29