Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
odissey111

Помогите закончить лабу по опертаорах Repeat…Until та While пожалуйста

30.10.2011, 18:46. Показов 697. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Написать програму, какая с точностю, што введена з клавиатуры розчитуєт значенине функции y=ln(x),(x>1/2). Для етого воспользуйтесь такой формулой:



и вот лично то што я написал, помогите разобраться чо тут не верно(

uses crt;
var
x,e,y,s,sn,t:real;
n:integer;
begin
clrscr;
repeat
write('введіть х при умові x>1/2. x=');
readln(x);
until x>1/2;
repeat
write('Введіть точність');
write('0<e< ','e=');
readln(e);
until (e>0) and (e<x);
n:=1;
t:=x-1;
sn:=x;
s:=0;
while abs(s-sn)<e do
begin
s:=sn;
n:=n+1;
sn:=n*(t/n*s);
end;
writeln('S=',sn:4:2);
readln
end.
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
30.10.2011, 18:46
Ответы с готовыми решениями:

Помогите закончить код, пожалуйста!
почти закончил программу! ну не знаю, что дальше делать! помогите пожалуйста! Расчет зарплаты. структура должна иметь такие поля: ...

ПОМОГИТЕ СДЕЛАТЬ ЛАБУ
вводя в цикле по 4 оценки, полученные студентами в сессию, определить число неуспевающих студентов и средний балл группы по всем экзаменам

Помогите написать лабу!!
В одномерном массиве, состоящем из п вещественных элементов, вычислить: • количество элементов массива, равных нулю; • сумму элементов...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
30.10.2011, 18:46
Помогаю со студенческими работами здесь

Помогите решить лабу.
Нубу и недостудентоте требуется помощь в написании этого: 4. 1. Цель работы Целью настоящей работы является получение студентами...

помогите написать лабу
1. Дано 36-ричное число, содержащее не более 100 цифр (цифры 10,11,...,35 кодируются заглавными латинскими буквами А,В,...,Z). Переставить...

Помогите решить лабу [2]
Задача: вычислить значение величины, содержащей несколько однотипных сумм. Для вычисления сумм написать функцию пользователя. Функция:...

напишите пожалуйста комментарии ,не могу объяснить лабу((
const k = 1001; {кол-во точек графика} XN = 50; {начальная координата по х} YN = 10; {начальная координата по у} ...

Помогите закончить календарь
Начал делать календарь, который отображает месяца и дни колонками, но не могу понять где у меня ошибка, помогите. program CALENDAR; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
Программный отбор значений справочника
Maks 21.03.2026
Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru