Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Программирование на Pascal / Delphi / Лабораторная работа №2. Вариант 7

.doc
Скачиваний:
26
Добавлен:
02.05.2014
Размер:
59.9 Кб
Скачать

Цель работы:

  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;

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

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