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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.06.2019, 22:53   #1
Ilishan098
Новичок
Джуниор
 
Регистрация: 07.06.2019
Сообщений: 1
По умолчанию Программирование алгоритмов итерационной циклической структуры

Завтра у меня консультация к экзамену нужна ваша помощь я не могу разобраться.
Напишите пожалуйста рабочую программу в Pascal ABC:
Изображения
Тип файла: png Screenshot_12.png (2.4 Кб, 147 просмотров)
Тип файла: png Screenshot_13.png (14.2 Кб, 146 просмотров)

Последний раз редактировалось Ilishan098; 07.06.2019 в 23:00.
Ilishan098 вне форума Ответить с цитированием
Старый 08.06.2019, 21:37   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

На лекции когда-нибудь ходить доводилось? Книжки открывать ? Лентяям - во Фриланс.
Вот одному лентяю(лентяйке) накропал, чуть-чуть подрихтовать.
https://programmersforum.ru/showthre...15#post1783115

Последний раз редактировалось digitalis; 08.06.2019 в 21:41.
digitalis вне форума Ответить с цитированием
Старый 09.06.2019, 19:04   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
const e=1e-4;
var x,s,s1:real;
    n:integer;
begin
   Write('x = '); Readln(x);
   s:=1;
   s1:=1;
   n:=0;
   Repeat
      n:=n+2;
      s1:=s1*x*x/(n-1)/n;
      s:=s+s1;
   Until Abs(s1)<e;
   Writeln(s:0:5);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программирование алгоритмов итерационной циклической структуры ACdm1123 Паскаль, Turbo Pascal, PascalABC.NET 8 05.05.2013 10:54
Программирование алгоритмов итерационной циклической структуры. МакаРомка Паскаль, Turbo Pascal, PascalABC.NET 1 29.04.2013 20:46
Программирование алгоритмов циклической структуры sunny5442 Помощь студентам 0 26.05.2010 19:31
Программирование алгоритмов циклической структуры. Горящее сердце Помощь студентам 2 26.05.2010 17:39
Программирование алгоритмов итерационной циклической структуры Skrip Общие вопросы C/C++ 9 04.06.2009 19:49