ifa=0 then ifb<>0 then begin

Лабораторная работа № 10
Тема: Операторы ветвления

Цель: Закрепить навыки использования условного оператора в программах на языке Pascal

Ход работы:

Теоретическая часть Ветвление – это такой способ организации действий при котором в зависимости от некоторого переменного условия выполняется либо одна, либо другая группа действий. БАК ветвление (Блок-схема)

Да Нет

Сокращенный и полный форматы условного оператора

Да Нет Да Нет

Полное

Полное Неполное

Практическая часть: Programex;

usescrt;

var

a,b,c,d:integer;

x1,x2,x3,x:real;

begin

clrscr;

write('vvedite a,b,c ');

Readln(a,b,c);

ifa=0 then ifb<>0 then begin

x3:=-c/b;

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

end

else ifc<>0 thenwriteln('kornya net')

elsewriteln('x-luboe')

else begind:=sqr(b)-(4*a*c); ifd>0 then begin

x1:=(-b-sqr(d))/(2*a);

x2:=(-b+sqr(d))/(2*a);

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

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

end

ОЛР 10 230105 П 10 02 00.00.12 ПЗ

Из

Лист

№ докум

Подп

Дат

Разраб

Власова Е.

Лабораторная работа №10

Литер

Лист

Листов

Провер

Калмыкова Т. А.

Н. Контр.

ФПЭТ

Утвердил

else ifd=0 then begin

x:=-b/(2*a);

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

end

elsewriteln('net reweniya');

end;

readkey;

end.

4)ввели 0 5 4 – х3=-0.8; ввели 0 0 1-корня нет;ввели 0 0 0-любое х; ввели 2 5 2-х1=-8,х2=-2;ввели 4 4 1-х=-4;ввели 2 1 2- нет корней.

Задача№1

Составьте блок-схему и программу вычисления значения функции.

1)Постановка задачи

Исходные данные: х- произвольное число

Результатные данные: у- значение функции

2)Математическая модель

Programex;

usescrt;

12 Следующая ⇒