МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РЕСПУБЛИКИ КАЗАХСТАН
Екибастузский инженерно-технический институт им.ак.К.И.Сатпаева
Кафедра Автоматизации и информационных систем
Отчет по лабораторной работе № 10
по дисциплине Информатика
Тема: Разветвленные вычислительные процессы в Turbo Pascal
Выполнил: студент гр. БТМ-11
Изжанов Кенже
Проверила: ст. преподаватель Асылова К.Б.
Оценка:
Экибастуз 2014
Задание:
1. Запустил программу Microsoft Word. Зашел в пуск > все программы > Microsoft office > Word. Или зайти в любой документ и создать новый документ клавишами ctrl+n.
2. Использовал следующее неравенство, используя программу Pascal:
3. Для решения данного неравенства, составил код для Pascal, предварительно посмотрев правило (шаблон) построения программы.
4. Получил следующий код:
program neravenstvo;
var
a, b, c, d, x1, x2, z: real;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
d:=sqr(b)-4*a*c;
if d<0 then
begin
writeln('хех... решений нетУ:(');
end
else if d>0 then
begin
x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/2*a;
|
|
writeln;
writeln('Возрадуемся же... у меня 2 решения:)');
writeln('x1 = ',x1:2:5,' x2 = ',x2:2:5);
writeln;
end
else if d=0 then
begin
x1:=-b/(2*a);
writeln;
writeln('Решение одно');
writeln('x = ',x1:2:5);
writeln;
end;
readln;
end.
5. Вставив данный код в программу Pascal, получил следующую блок – схему:
Контрольные вопросы:
1. Оператор IF-THEN позволяет Вам определять операции, которые будут выполнены только при выполнении некоторого условия
2. Оператор выбора CASE - это простейшая форма оператора IF-THEN-ELSE
3. Верно или не верно:
· а) IF A<B THEN A:=A*A ELSE B:=B*B; - Верно
· б) IF X AND Y THEN S:=S+1; ELSE S:=S-1; Не верно
· в) IF R<>M THEN K=M; Верно
· г) IF 5 THEN S:=S+1; Не верно
· д) IF (A = B) AND P THEN P:=P+10.5 Не верно
4. Оператор IF B THEN S1 ELSE S2 эквиваленте оператору CASE B OF TRUE: S1; FALSE:S2; END;
5. Если значение выражения селекторане совпадает ни с одной константой из всех списков, то выполняется последовательность операторов, следующая за else.