новая папка / 3
.docxМинистерство науки и высшего образования Российской Федерации Федеральное государственное автономное образовательное учреждение высшего образования
«Пермский национальный исследовательский политехнический университет»
Электротехнический факультет Кафедра «Конструирование и технологии в электротехнике»
Отчет по практической работе №3
По дисциплине «Информатика в приложении к отрасли»
Тематика практического занятия: «ПРОГРАММИРОВАНИЕ АЛГОРИТМОВ РАЗВЕТВЛЯЮЩЕЙСЯ СТРУКТУРЫ »
Вариант №8
Выполнил:
Студент гр. ЭЭ-20-3б Киряков Даниил Андреевич (Ф.И.О. студента) _________________________ (подпись студента)
Проверил: Доцент каф. «КТЭ» (должность руководителя, кафедра)
Казаков Алексей Владимирович (Ф.И.О. преподавателя)
__________ (оценка) ________________________ (подпись преподавателя)
__________ (дата)
Пермь 2022
program FirstTask;
var x,y: real;
begin
writeln('Введите координаты точки');
read(x,y);
if (x>0) and (y>0) then
writeln('Точка принадлежит 1 координатной четверти')
else
writeln('Точка не принадлежит 1 координатной четверти');
end.
Результат:
program SecondTask;
Var a, b, c, d, max1,max2,max:integer;
begin
writeln('Введите 4 результата экзаменов ');
readln(a, b, c, d);
if a < b then max1:=b else max1:=a;
if c < d then max2:=d else max2:=c;
if max1 < max2 then max:=max2 else max:=max2;
writeln('Максимальное значение = ', max);
end.
Результат:
program ThirdTask;
var n,p:integer;
begin
write('Введите целое число n=');
readln(n);
n:=abs(n);
p:=n mod 10;
while n>10 do n:=n div 10;
if p=n then write('Первая и последняя цифры равны')
else write('Первая и последняя цифры не равны')
end.
Результат:
program FourthTask;
uses crt;
var
n:integer;
begin
readln(n);
case n of
15:write('пятнадцать ');
16:write('шестнадцать ');
17:write('семнадцать ');
18:write('восемнадцать ');
19:write('девятнадцать ');
20..29:write('двадцать ');
30:write('тридцать ');
end;
case n mod 10 of
1:write('одна ');
2:write('две ');
3:write('три ');
4:write('четыре ');
5:write('пять ');
6:write('шесть ');
7:write('семь ');
8:write('восемь ');
9:write('девять ');
end;
writeln('слон');
end.
Результат:
