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

Цель работы:

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;

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

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