новая папка / 4
.docxМинистерство науки и высшего образования Российской Федерации Федеральное государственное автономное образовательное учреждение высшего образования
«Пермский национальный исследовательский политехнический университет»
Электротехнический факультет Кафедра «Конструирование и технологии в электротехнике»
Отчет по практической работе №4
По дисциплине «Информатика в приложении к отрасли»
Тематика практического занятия: «ПРОГРАММИРОВАНИЕ АЛГОРИТМОВ ЦИКЛИЧЕСКОЙ СТРУКТУРЫ »
Вариант №8
Выполнил:
Студент гр. ЭЭ-20-3б Киряков Даниил Андреевич (Ф.И.О. студента) _________________________ (подпись студента)
Проверил: Доцент каф. «КТЭ» (должность руководителя, кафедра)
Казаков Алексей Владимирович (Ф.И.О. преподавателя)
__________ (оценка) ________________________ (подпись преподавателя)
__________ (дата)
Пермь 2022
program FirstTask;
var a,b,x,h: real;
begin
writeln('Введите значение а');
readln(a);
writeln('Введите значение b');
readln(b);
writeln('Введите значение h');
readln(h);
x:=a;
while x<b do
begin
writeln('Значение x = ',x,' Значение y = ',Exp(x)+6*x-3);
x:=x+h;
end;
end.
Результат:
program SecondTask;
var A,M: real;
day: integer;
begin
writeln('Введите значение массы гриба А');
readln(A);
day:=0;
M:=A;
while (M < (A*2.5)) do
begin
Inc(day);
M:=M+((M/100)*40);
end;
writeln('Ответ: ', Day:2,' суток');
end.
Результат:
program ThirdTask;
var i,c:integer;
begin
c:=0;
for i:=10 to 99 do
if i mod 6 = 0 then c:=c+1;
writeln('Сумма чисел равна: ',c);
end.
Результат:
program FourthTask;
var n, i, s:integer;
begin
readln (s);
if s>27 then write ('Слишком большая сумма');
for i:=100 to 999 do begin
if (i mod 10+i div 10 mod 10+i div 100)=s then write (i,' ');
end;
end.
Результат:
