HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
 
 
Опции темы Поиск в этой теме Опции просмотра

Задачка на Pascal
  #1  
Старый 11.03.2009, 17:04
LASS0
Познающий
Регистрация: 03.01.2009
Сообщений: 33
С нами: 9132561

Репутация: 52
По умолчанию Задачка на Pascal

Помогите пожалуйста решить задачку двумя способами, через цикл repeat until
и через for

--------------------------------------------------
Дано a=2.8 , b=-0.3 , c=4
Вычислить и напечатать значение функции:

y=(a+b*x)/sqrt(x*x+4) ,если x<1.4
y=a*(x*x)+b*x+c ,если x=1.4
y=a/x+exp(a*b) ,ecли x>1.4

где x изменяется в интервале от 0.8 до 2.8 с шагом 0.2
--------------------------------------------------

Через while do смог написать, а через repeat until
и через for незнаю



Код:
Program z1;
uses crt;
 var a,b,c,x,y:real;

 begin 
  a:=2.8;
  b:=-0.3;
  c:=4;
  x:=0.8;
    while x<2.8 do
       begin if x<1.4 then
          y:=(a+b*x)/sqrt(x*x+4)
          else 
          if x=1.4 then
          y:=a*(x*x)+b*x+c
          else 
          y:=a/x+exp(a*b);
            writeln ('x=',x:8:2,' y=',y:8:2);
          x:=x+0.2;
       end;
 readkey;
 end.
 
Ответить с цитированием
 



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
из Java в Pascal Moldman С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby 1 15.02.2009 20:47
TURBO PASCAL 7 1.0 Daemond С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby 1 03.12.2008 22:32



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.