Текст задания
Разработать программу, в которой необходимо выполнить следующие действия:
- Описать новый тип – запись, состоящую из двух полей:
Stroka |
Dlina |
|
|
- Ввести с клавиатуры заданную последовательность символов и записать ее в
переменную строкового типа;
- Преобразовать строку в соответствии со своим вариантом;
- В поле записи Stroka переписать преобразованную строку, а в поле Dlina –
длину этой строки;
- Вывести содержимое полей записи на экран;
Номер варианта | Последовательность символов | Преобразование | Вид строки после преобразования |
1 | abc3_1a2b4 | скопировать 4 символа, начиная с шестого. (функция copy) | 1a2b |
Исходный код программы
Program Lab5; Type Rec = record Stroka:string; Dlina:integer; end; var St1,St2: string; R:rec; begin Writeln ('Vvedite stroku:'); Readln(St1); St2:=Copy(st1,6,4); R.Stroka:=St2; R.Dlina:=length(St2); Writeln('Preobrazovannaya stroka:',R.stroka,' Dlina:',R.Dlina); Readln; end.