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

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

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

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

Отчет по практической работе №6

По дисциплине «Информатика в приложении к отрасли»

Тематика практического занятия: «СТРОКОВЫЕ ПЕРЕМЕННЫЕ»

Вариант №8

Выполнил:

Студент гр. ЭЭ-20-3б Киряков Даниил Андреевич (Ф.И.О. студента) _________________________ (подпись студента)

Проверил: Доцент каф. «КТЭ» (должность руководителя, кафедра)

Казаков Алексей Владимирович (Ф.И.О. преподавателя)

__________ (оценка) ________________________ (подпись преподавателя)

__________ (дата)

Пермь 2022

program FirstTask;

var a: string;

begin

write ('Введите слово: '); read (a);

writeln ('Именительный падеж: ',copy(a,1,length(a)));

writeln ('Родительный падеж: ',copy(a,1,length(a)-1),'а');

writeln ('Дательный падеж: ',copy(a,1,length(a)-1),'у');

writeln ('Винительный падеж: ',copy(a,1,length(a)-1),'а');

writeln ('Творительный падеж: ',copy(a,1,length(a)-1),'ом');

writeln ('Предложный падеж: ',copy(a,1,length(a)-1),'у');

end.

Результат:

program ThirdTask;

var s:string;f:boolean;i:byte;z:char;

begin

repeat

f := true;

write('Введите число: ');

readln(s);

for i := 1 to length(s) do

if not (s[i] in ['0'..'9']) then

begin

f := false;

break

end;

until (length(s) >= 50) and f and (length(s) mod 2 = 0);

writeln('Исходное число: ', s);

z := s[length(s) div 2];

s[length(s) div 2] := s[(length(s) div 2) + 1];

s[(length(s) div 2) + 1] := z;

writeln('Новое число: ', s)

end.

Результат: