новая папка / 6
.docxМинистерство науки и высшего образования Российской Федерации Федеральное государственное автономное образовательное учреждение высшего образования
«Пермский национальный исследовательский политехнический университет»
Электротехнический факультет Кафедра «Конструирование и технологии в электротехнике»
Отчет по практической работе №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.
Результат: