новая папка / 2
.docxМинистерство науки и высшего образования Российской Федерации Федеральное государственное автономное образовательное учреждение высшего образования
«Пермский национальный исследовательский политехнический университет»
Электротехнический факультет Кафедра «Конструирование и технологии в электротехнике»
Отчет по практической работе №2
По дисциплине «Информатика в приложении к отрасли»
Тематика практического занятия: «ПРОГРАММИРОВАНИЕ АЛГОРИТМОВ ЛИНЕЙНОЙ СТРУКТУРЫ»
Вариант №8
Выполнил:
Студент гр. ЭЭ-20-3б Киряков Даниил Андреевич (Ф.И.О. студента) _________________________ (подпись студента)
Проверил: Доцент каф. «КТЭ» (должность руководителя, кафедра)
Казаков Алексей Владимирович (Ф.И.О. преподавателя)
__________ (оценка) ________________________ (подпись преподавателя)
__________ (дата)
Пермь 2022
program FirstTask;
var p,p1,p2: real;
begin
writeln('Введите вещественное число');
read(p);
p1 := trunc(p);
p2 := frac(p);
writeln(' Целая часть числа: ' ,p1 ,' Дробная часть числа: ' ,p2);
end.
Результат:
program SecondTask;
var s,n:integer;
begin
writeln('Введите число: ');
readln(N);
s:=(N div 100)+((N div 10) mod 10)+(N mod 10);
writeln('Сумма цифр числа равна: ',s);
writeln;
readln;
end.
Результат:
program ThirdTask;
var m,g,h,A:real;
begin
writeln('Введите массу груза и высоту ');
readln(m,h);
g := 9.81;
A := m*g*h;
writeln('Величина работы равна : ',A);
writeln;
readln;
end.
Результат:
4. Составьте программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE – в противном случае: цифра М входит в десятичную запись четырехзначного числа N.
program FourthTask;
var a,b,c,d,m: integer;
begin
writeln('Введите первую цифру числа N');
readln(a);
writeln('Введите вторую цифру числа N');
readln(b);
writeln('Введите третью цифру числа N');
readln(c);
writeln('Введите последнюю цифру числа N');
readln(d);
writeln('Введите цифру M');
readln(m);
if (m=a) or (m=b) or (m=c) or (m=d) then
writeln('Цифра M входит в число N') else
writeln('Цифра M не входит в число N');
end.
Результат: