Pascal - Форум
Вторник, 06.12.2016, 08:40
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: 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(17Kb)


Сообщение отредактировал Юле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 из 11
Поиск:

Copyright MyCorp © 2016