Текст задания

Разработать программу, в которой необходимо выполнить следующие действия:

- Описать новый тип – запись, состоящую из двух полей:

Stroka

Dlina

 

 

- Ввести с клавиатуры заданную последовательность символов и записать ее в переменную строкового типа;

- Преобразовать строку в соответствии со своим вариантом;

- В поле записи Stroka переписать преобразованную строку, а в поле Dlina – длину этой строки;

- Вывести содержимое полей записи на экран;

Номер вариантаПоследовательность символовПреобразованиеВид строки после преобразования
1abc3_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.

Результат выполнения программы


Написать отзыв

Внимание: HTML не поддерживается! Используйте обычный текст!
    Плохо           Хорошо

Работа с записями в Pascal


0 отзывов / Написать отзыв


Помогло решение? Буду рад маленькой награде=)

Теги: Pascal

Не подошла работа?

Узнайте стоимость написания работы по Вашему заданию

(это быстро и бесплатно)

Узнать стоимость

Спасибо, не надо