Строковый тип данных в Паскале

1. Что получится в результате выполнения программы?

a. program s1;

var A : string;

i : integer;

begin

A:='Космос';

For i:=1 to 6 do

writeln(A);

end.

б. program v2;

var A, B: string;

begin

A:='Космос';

В=' Вселенная';

writeln(A+B);

end.

в. program k3;

var A: string;

begin

A:='Победа';

А:=copy(A, 1, 2) + +copy(A, 5,1) +'виг'

writeln(A);

end.

с. program sl3;

var A, B: string;

begin

A:='Экзамен'; B:=соpy(A, 3,5) +'a'; writeln(B );

end.

д. program rt5;

var A: string;

i, N : integer;

begin

A:='Оценка';

N:=5;

For i:=1 to N do

writeln(A, i);

end.

2. Найдите ошибку в программе, если программа должна определить ….

длину слова

а) program fhgh1;

var A : string; n : integer;

begin

writeln('Введите слово');

n:=length(A);

writeln('Слово состоит из n букв.');

end.

количество букв «о» в слове

б) program ghjgj;

var A : string; n, i : integer;

begin

writeln('Введите слово');

readln(A);

for i:= 1 downto length(A) do

if copy(A, i, 1)= 'o' then n:=n+1;

write(n);

end.

количество букв «л» в слове

в) program ssss;

var A , i : integer;

begin

writeln('Введите слово');

readln(A);

for i:= 1 to n do;

if copy(A, 1, 1)= 'к' else

k:=k+1;

end.

1. Что получится в результате выполнения программы?

a. program s1;

var B : string;

i : integer;

begin

B:='Улан-Батор';

delete (B, 1, 5);

writeln(B);

end.

б. program v2;

var A, B: string;

begin

A:='Вселенная';

В:=copy(A, 2,5);

writeln(B);

end.

в. program k3;

var A: string;

begin

A:='Каравай';

Delete(A, 7,1);

writeln(A+'н');

end.

с. program sl3;

var A:string; B:integer;

begin

A:='Караоке';

Insert('-клуб',A, 8);

B:=length(A); writeln(A, ' ',B );

end.

д. program rt5;

var A: string;

d : integer;

begin

A:='Монголия';

For d:=1 to length(A) do

writeln( d);

end.

2. Найдите ошибку в программе, если программа должна определить ….

длину слова

а) program wrt;

var A : string; n : integer;

begin

writeln('Введите слово');

real(A);

n:=length(A);

readln ( ' в слове n букв ');

end.

количество букв «m» в слове

б) program asd;

var A : string; n, i : real;

begin

writeln('Введите слово')

readln(A);

for i:= 1 do 7 do

if copy(1, i, A)= 'o' then n:=n+1;

write(n);

end.

количество букв «с» в слове

в) program klik;

var A , k, i : string;

begin

writeln('Введите слово');

readln(k);

for i:= 1 to n do;

if copy(A, i, 1)= 'с' then k:=k+i;

write (‘k’);

end.

1. Что получится в результате выполнения программы?

a. program s1;

var A : string;

i : integer;

begin

A:='еееее';

For i:=1 to 4 do

delete (A, 1,1);

write(A);

end.

б. program v2;

var A: string;

begin

A:='Пустырь ';

Delete(A,1,1);

Delete(A,4,2);

writeln(A);

end.

в. program k3;

var A: string;

begin

A:='Журнал';

А:=copy(A, 2, 4);

writeln(A);

end.

с. program sl3;

var A, B: string;

begin

A:='Виноград';

Delete(A, 1,4);

B:=соpy(A, 3,1)+'a'+A+'a'; writeln(B );

end.

д. program rt5;

var A: string;

i, N : integer;

begin

N:=15;

For i:=1 to 5 do

writeln(N);

end.

2. Найдите ошибку в программе, если программа должна определить ….

длину слова

а) program ggg;

var A : string; n : integer;

begin

writeln('Введите слово');

writeln(A)

n:=length(A);

writeln('Длина слова ', A);

end.

количество букв «я» в слове

б) program nnn;

var A : string; n, i : integer;

begin

writeln('Введите слово');

readln(78);

for i:= 1 do length(A)

if copy(A, i, 1)= 'я' then n:=n*1;

write(n);

end.

количество букв «у» в слове

в) begin ddd;

var A , i : integer;

writeln('Введите слово');

readln(A);

for i:= n to 6 do begin

if copy(A, 1, 1)= 'у' do

k:=k+1; write(k , букв);

end;

end;

1. Что получится в результате выполнения программы?

a. program s1;

var A : string;

i : integer;

begin

A:='Каникулы';

For i:=1 to 5 do

delete (A, 1,1);

write(A);

end.

б. program v2;

var A, B: string;

begin

A:='Лето';

В=' Поезд';

B:=copy(B,1,2)+copy(A,1,3)

writeln(B);

end.

в. program k3;

var A,B: string;

begin

A:='Журнал';

B:='ТБ';

insert(В, А,1);

writeln(A);

end.

с. program sl3;

var A, B: string;

begin

A:='Виноград';

Delete(A, 1,3);

B:= A + соpy(A, 3,1); writeln(B );

end.

д. program rt5;

var A: string;

i, N : integer;

begin

N:=15;

For i:=1 to 5 do

writeln(N);

end.

2. Найдите ошибку в программе, если программа должна определить ….

длину слова

а) program ggg;

var A : string; n : integer;

begin

writeln('Введите слово');

writeln(A)

n:=len(A);

writeln('Длина слова ', A);

end.

количество букв «и» в слове

б) program nnn;

var A n, i: string; S:integer;

begin

writeln(Введите слово);

for i:= 1 do length(A)

if copy(A, i, 1)= 'и' then S:=S+i;

write(n);

end.

количество «ку» в слове

в) ddd;

var A , k, i : integer;

begin

writeln('Введите слово');

insert (A);

if copy(A, i , 1)= 'ку' else

k:=k+1;

write(‘ Кол-во «ку» в слове ', к);

end;