Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus) - [4975] :: Прикладное программирование

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению

FXPELIVE

Member

Код:

PROGRAM Z4;
Var
k, n :Word;
x, y, _y :Real;
i :Integer;
BEGIN
Write('k='); ReadLn(k);
Write('x='); ReadLn(x);
y:=1;
for n:=1 to k do begin
_y:=y;
for i:=1 to (k-1) do begin
_y:=y*_y;
end;
y:=y + ( ((x/_y)-y)/k );
end;
WriteLn(y:8:2);

ReadLn;
END.

Всего записей: 348 | Зарегистр. 27-04-2006 | Отправлено: 13:53 19-09-2010 | Исправлено: FXPELIVE, 14:04 19-09-2010

На первую страницу • к этому сообщению • к последнему сообщению

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC