logo search
Курс лекций по информатике

Примеры программ

Пример 4.1. Написать программу, которая записывает строку в обратном порядке и выводит ее на экран.

Программа 4.1.

PROGRAM PR;

USES CRT;

VAR A,B:STRING[10];

I,N:INTEGER;

BEGIN

CLRSCR;

WRITELN('Введите строку длиною не более 10 символов:');

READLN(A);

N:=LENGTH(A);

B:='';

FOR I:=1 TO N DO

B:=B+A[N+1-I];

WRITELN(B)

END.

Пример 4.2. Подсчитать число вхождений некоторого слова в заданный текст.

Программа 4.2.

PROGRAM PR42;

USES CRT;

TYPE TEXT=STRING[100];

WORDS=STRING[10];

VAR A,B:TEXT;

C:WORDS;

P,N,D:INTEGER;

BEGIN

CLRSCR;

WRITELN('Введите текст длиною не более 100 символов');

READLN(A);

B:=A;

WRITELN('Введите слово длиною не более 10 символов');

READLN(C);

N:=0;

D:=LENGTH(C);

P:=POS(C,B);

WHILE P>0 DO

BEGIN

N:=N+1;

DELETE(B,P,D);

P:=POS(C,B)

END;

WRITELN;

WRITELN('Число вхождений слова "',C,'" в текст :');

WRITELN;

WRITELN(A);

WRITELN;

WRITELN('равно ',N)

END.