Пятница, 29.03.2024, 11:57
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider  
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Pascal ((22-23.09.2010)Дано действительное число х не равное нулю...)
Pascal
Юле4КаДата: Воскресенье, 19.09.2010, 18:31 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
написать программу чтобы вычислить...
задачка прикреплена в виде скриншота ,потому что не знаю как написать условие shy

Спасибо большоое заранее angel

Прикрепления: 8435762.jpg (17.1 Kb)


Сообщение отредактировал Юле4Ка - Воскресенье, 19.09.2010, 18:33
 
clicker178Дата: Воскресенье, 19.09.2010, 18:53 | Сообщение # 2
Рядовой
Группа: Новичок
Сообщений: 4
[ 0 ]
Статус: Offline
Code
uses crt;

var x,y:real;
var n,i:integer;
begin

  n:=256;
   
  Write('x=');
  ReadLn(x);
   
  if x=0 then
  begin
   WriteLn('Nevernoye znacheniye');
   exit;
  end;
   
  y:=x*x+n/(x*x);
  n:=n div 2;
   
  for i:=7 DownTo 1 Do
  begin
   y:=x*x + n/(y);
  end;
   
  y:=x/y;
   
  WriteLn('y=', y:8:8);
   
  Read;
end.

На правильность - не проверял.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Pascal ((22-23.09.2010)Дано действительное число х не равное нулю...)
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024