Logo GenDocs.ru

Поиск по сайту:  


Загрузка...

Вариант 7 - файл лаба по инфе №2 вариант 7.doc


Вариант 7
скачать (8.9 kb.)

Доступные файлы (1):

лаба по инфе №2 вариант 7.doc59kb.03.10.2007 17:00скачать

содержание
Загрузка...

лаба по инфе №2 вариант 7.doc

Реклама MarketGid:
Загрузка...
Цель работы:

  1. Изучение программной среды Borland Pascal 7.0;

  2. Построение программ линейной структуры;

  3. Построение программ разветвленной структуры.

Задание:

  1. Вычислите значение выражения у=((3+с)/(a*x+4))-2*a;

  2. Выполните задание 1 с проверкой корректности введения данных;

  3. Вычислите значение выражения у=(sqrt((3+absC)/(a*x+4)))-2*a;

  4. Выполните задание 3 и укажите является ли полученный результат положительным, отрицательным или равным 0.


Задание 1. у=((3+с)/(a*x+4))-2*a

Program Primer;

Uses

Crt;

Var

y,x,c,a : real;

Begin

clrscr;

writeln ('vvedite x,a,c');

readln (x,a,c);

If a*x+4=0 then writeln ('net resheniy')

Else begin y:=((3+c)/(a*x+4))-2*a;

writeln ('y=',y:2:5);

end;

readln;

end.


Блок-схема к заданию №1.




Задание 2. y=(sqrt((3+absC)/(a*x+4)))-2*a
Program zadacha;

Uses

crt;

Var

y,x,c,a:real;

Begin

clrscr;

writeln ('vvedite x,a,c');

readln (x,a,c);

If a*x+4=0 then writeln ('net resheniy')

else

If c>=0 then begin

If ((3+c)/(a*x+4))<0 then writeln ('net resheniy')

else

y:=(sqrt((3+c)/(a*x+4)))-2*a;

writeln ('y= ',y:2:5);

end

else

If c<0 then begin

If ((3-c)/(a*x+4))<0 then writeln ('net resheniy')

else

y:=(sqrt((3-c)/(a*x+4)))-2*a;

writeln ('y= ',y:2:5)
end

else

if y=0 then writeln ('y=0');

if y>0 then writeln ('y>0');

if y<0 then writeln ('y<0');

readln;

end.


Блок-схема к заданию №2.











^ ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

УФИМСКИЙ ГОСУДАРСТВЕННЫЙ АВИАЦИОННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

Кафедра экономической информатики

^ ОТЧЕТ ПО ЛАБОРАТОРНОЙ РАБОТЕ №2
Программная среда Borland Pascal 7.0

Вариант №2

Выполнила: студентка I курса ЭУП-129

Кочеткова А.А.

Проверила: Лысенко И.А.
УФА 2007.

Вывод:

Мы изучили программную среду Borland Pascal 7.0;

Научились строить программы линейной структуры;

Научились строить программы разветвленной структуры.


Скачать файл (8.9 kb.)

Поиск по сайту:  

© gendocs.ru
При копировании укажите ссылку.
обратиться к администрации
Рейтинг@Mail.ru