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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 04.12.2018, 15:18   #1
Diana25
Новичок
Джуниор
 
Регистрация: 04.12.2018
Сообщений: 1
Вопрос Итерационный цикл

Не могу написать программу
Изображения
Тип файла: jpg IMG_20181204_151110.jpg (96.4 Кб, 119 просмотров)
Diana25 вне форума Ответить с цитированием
Старый 04.12.2018, 15:27   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

В чем проблема? Какие ошибки выдал компилятор?
p51x вне форума Ответить с цитированием
Старый 04.12.2018, 15:56   #3
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

.......

Последний раз редактировалось digitalis; 04.12.2018 в 16:03. Причина: удаление дубля
digitalis вне форума Ответить с цитированием
Старый 04.12.2018, 16:03   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

Я думаю: "Отсутствует исходный файл"
Что-то до боли знакомо-похожее. Там я бедной скубентке даже прогу начирикал, но видимо, не понадобилась. Чуть модифицировать - и ото оно. Да, ведь оно же на Си... Перепереть на Плескаль - дело непосильное
http://programmersforum.ru/showthrea...81#post1760481
Код:
program polynom;

var
  i: integer ;
  s,a,k2,znak,eps: real ;
begin  
   eps := 1E-6 ;
   s := 1 ;   
   k2 := 3 ;
   znak := -1 ;
   a := 1/3 ;
   for i :=1 to 500 do  
     begin
       s := s + a * znak ;
       writeln (i,k2,a,s) ; 
       if a<eps then Break ;
       k2 := k2+2 ;  
       znak := -znak ;
       a := a/k2 ;
     end ;
end.
ИЧСХ, в 90% случаев - ни ответа, ни привета. Ни "спасибо", ни "ПНХ" . Я эту Динаму Диану запомню, дождется она у меня ответа.
Или нонешняя мо'лодежь считает, что форум - это их дедушка с бабушкой, которые только для того и существуют, чтобы опрометью кидаться выполнять их приказы ?
Изображения
Тип файла: jpg Polynom.JPG (27.9 Кб, 14 просмотров)

Последний раз редактировалось digitalis; 05.12.2018 в 11:29.
digitalis вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Итерационный цикл Катя100 Помощь студентам 1 21.04.2013 21:45
Задача на итерационный цикл Ruslan_M Помощь студентам 3 27.12.2012 16:27
Итерационный цикл creck_hatsone JavaScript, Ajax 6 03.11.2012 10:37
Итерационный цикл sanchoflat Общие вопросы C/C++ 7 18.09.2012 21:00
Итерационный цикл Camelot_2012 Паскаль, Turbo Pascal, PascalABC.NET 1 22.12.2011 21:18