|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.10.2020, 09:57 | #1 |
Регистрация: 18.10.2020
Сообщений: 7
|
Просьба переделать программу для паскаль. Чтобы она выполняла туже функцыю но выглядела по другому. Зарание спасибо.
uses crt;
var genres : real; var e, res1, res2:real; var i:integer; begin genres:=0; write ('Введите значение e:'); read(e); if e<0 then write('go back'); i:=1; res1 := 1/(i*(i+1)); res2 := 1/((i+1)*(i+2)); while abs(res2-res1)<=e do begin res1 := 1/(i*(i+1)); res2 := 1/((i+1)*(i+2)); genres := genres + res1; i := i + 1; end; write (genres); end. |
24.10.2020, 10:21 | #2 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,619
|
Как - по другому? В платье с цветочками ?
Код:
Последний раз редактировалось digitalis; 24.10.2020 в 10:35. |
24.10.2020, 10:32 | #3 |
Регистрация: 18.10.2020
Сообщений: 7
|
нет
|
24.10.2020, 10:39 | #4 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,619
|
А что не так? Выкладывай свои секретные мысли об "по другому" . В моём представлении - по другому - это в т.ч. и нормально оформленное, с отступами для нормального распознавания блоков.
Программа неправильная. Задание не приводится (секретно, видимо), но работать прога не будет. Поскольку разность всё время уменьшается, то цикл или не сработает ни разу, или будет работать бесконечно. Похоже, должно быть while abs(res2-res1)>=e do или что то же самое while res1-res2>=e do Как-то так: Код:
Последний раз редактировалось digitalis; 24.10.2020 в 21:31. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Здраствуйте всем тем кто зашли на єту страничку и прошу вас помочь мне с решением єтой задачи в Паскаль. буду очень благодарен. Зарание спасибо. | Danilzp | Помощь студентам | 1 | 19.10.2020 11:14 |
Дан массив целых чисел. Составить программу обработки двумерных массивов. Зарание Спасибо. | Mainln | Помощь студентам | 2 | 27.03.2013 23:25 |
Нужно написать на Паскале. зарание Спасибо | Mainln | Помощь студентам | 1 | 20.03.2013 15:46 |
просьба! как можно переделать код макроса, чтобы корректно искал? | Nick31 | Microsoft Office Excel | 7 | 19.05.2012 00:34 |
Сделайте, пожалуйста мне две задачки! Зарание спасибо:) | BeaU | Помощь студентам | 3 | 22.06.2009 11:56 |