Текст задания
Разработать программу, в которой необходимо выполнить следующие действия:
- Описать новый тип – запись, состоящую из двух полей:
|
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.
