Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
информатика АиУ.doc
Скачиваний:
20
Добавлен:
09.11.2018
Размер:
1.56 Mб
Скачать

Приложение 3. Титульный лист к отчету

Министерство образования и науки Российской Федерации

Казанский государственный технический университет им. А.Н.Туполева

_______________________________________________________________

Кафедра автоматики и управления

Отчет по лабораторным работам

дисциплина "ИНФОРМАТИКА"

Выполнил студент группы _____ _________________ ________________

№ группы подпись Фамилия И.О.

Оценка _____________

Преподаватель _________________ _____________________

подпись Фамилия И.О.

Казань, 2005

Приложение 4 Блок-схемы алгоритмов к лабораторной работе № 6

2).

Н

К

a, b

x =a+b

y=7x+ab

z=x2+y

z

Приложение 5 Текст программы на языке Паскаль для вычисления корней квадратного уравнения

program primer1 (input, output);

var a ,b ,c ,d , x1, x2: real;

begin

write (`, введите a`); readln (a);

write (`, введите b`); readln (b);

write (`, введите с`); readln (с);

if (a<>0) then begin

d:=b*b-4*a*c;

if d>=0 then begin

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

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

writeln (` x1 = `, x1,` x2 = `, x2);

end

else writeln (`дискриминант отрицательный,

решения комплексны `)

end

else if (b<>0) then begin

x1:=–c/b;

writeln (` x1 = `,x1, ` x2 нет `);

end

else if (c<>0) then writeln (` решений нет `)

else writeln (` решение – любое x `)

end.