новая папка / 2

Министерство науки и высшего образования Российской Федерации Федеральное государственное автономное образовательное учреждение высшего образования

«Пермский национальный исследовательский политехнический университет»

Электротехнический факультет Кафедра «Конструирование и технологии в электротехнике»

Отчет по практической работе №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.

Результат: