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

Пример 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.

Рекомендуемая литература

Информатика: Учебник. – 3-е перераб. Изд. /Под ред. Н.В. Макаровой. – М.: Финансы и статистика, 2001. – 768 с.

Информатика для юристов и экономистов: Учеб. для вузов /Под ред. С.В. Симоновича. – СПб.: Питер, 2001. - 688 с.

Информатика. Базовый курс /Симонович С.В. и др. – СПб.: Издательство "Питер", 1999.- 640 с.

Информатика: Учеб. Пособие для студентов пед. вузов /Могилев А.В., Пак Н.И., Хеннер Е.К. М.: Изд. Центр "Академия", 2000. – 816 с.

Бахарева Н.Ф. и др. Машинные алгоритмы обработки информации: Методические указания ОГТУ – Оренбург: 1995. – 40 с.

Microsoft Windows 95. Шаг за шагом. Практическое пособие./Пер. с англ., М.: ЭКОМ, 1996 -320 с.

Мюллер Д. Нортон П. Полное руководство по Windows 95 Питера Нортона. М.: Бином, 1998 -728 с.

Ресурсы Microsoft Windows 95. М.: Изд. отд. Русская редакция 1996 – 656 с.

Гордеев А.В., Молчанов А.Ю. Системное программное обеспечение – СПб.: Питер 2001. – 736 с.

Персон Р., Роуз К. Мicrosoft Word 97 в подлиннике: Пер. с англ. - СПб.: ВНV, 1997.-1120 с.

Microsoft Office 97: наглядно и конкретно: Иллюстрированный справочник. - М.: Русская редакция, 1997. -352с.

Новиков Ф., Яценко А. Microsoft Office 97 в целом. -СПб.: ВНV, 1998. –624с.

Microsoft Office 97: наглядно и конкретно: Иллюстрированный справочник. - М.: Русская редакция, 1997. –352 с.

Марченко А.И., Марченко Л.А. Программирование в среде Turbo Pascal 7.0: Учеб. пособие. -2-изд. М., К.: "Бином Универсал", "ВЕК", 1998. –496 с.

Фаронов В.В. Турбо Паскаль 7.0. Практика программирования: -М.: Нолидж, 1999. –432 с.

Турбо Паскаль 7.0. -К.: Торг.-издат. бюро ВНV, 1996. –448 с.

Немнюгин С. Turbo Pascal. Учебник для вузов – СПб.: Питер, 2001, – 496 с.

Немнюгин С. Turbo Pascal Практикум – СПб.: Питер, 2002, – 256 с.