Пример решения задачи

Индивидуальное задание

Ввести строку произвольной длины. Заменить разделительные знаки . , : ; ( ) на пробелы. Новую строку напечатать.

Описание работы

1. Выберите алгоритм решения задачи.

2. Выберите точность и форму представления данных.

3. Выберите стандартные средства (процедуры), необходимые для решения задачи.

4. Для ввода исходных данных используйте диалоговый режим. Результат решения задачи выведите на экран дисплея . Операторы в подпрограммах используются только для контроля правильности обмена данными.

5. Выберите имена основных идентификаторов. Введите текст программы, придерживаясь структуры написания текста, приведенной в типовом примере.

Помните, что переменная STRING может содержать любое количество символов, не превышающих указанного при ее описании:

VAR

STR : STRING[30] ;

В скобках указан атрибут длины, которому можно задавать значение от 1 до 255. Длину не задают при работе с текстом произвольной длины до 255 символов.

6. Для этого необходимо войти в программу-оболочку TP7, как указано выше. Загрузить в редактор Турбо-Паскаль новый (NEW) файл. Для этого нажмите одновременно клавиши [ALT]+[F] , установите курсор на подменю «NEW» и нажмите клавишу [ENTER].

7. Сохраните набранный текст программы. Нажмите клавишу [F2]. На запрос системы укажите, где и с каким именем будет сохранена ваша программа. Например, C:\Lr7.PAS, если программа сохраняется на жесткий диск или A:\ Lr7.PAS, если программа сохраняется на дискету.

8. После того, как программа набрана, откомпилируйте ее. Нажмите одновременно клавиши [ALT]+[F9]. Если в программе есть ошибки, то в левом верхнем углу появится сообщение об ошибке, а курсор укажет место ошибки. Если в программе ошибок нет, то появится сообщение об успешной компиляции.

9. После компиляции программу необходимо выполнить. Для этого нажмите одновременно клавиши [CTRL]+[F9]. Для просмотра результатов одновременно нажмите клавиши [ALT]+[F5].

10. Убедитесь в правильности решения задачи. Введите данные, для которых легко устно просчитать результат. Выполните программу и убедитесь в правильности полученного результата.

11. Выведите полученные результаты на печать.

Текст программы

program Lr7 ;

uses crt ;

const razdel : string[6] = ('. , : ; ( )') ;

{ Разделительные знаки в предложении }

k = 60 ;

var stroka : string[k] ; { Входная строка }

i, j : integer ;

begin

clrscr ;

read(stroka) ; writeln(stroka) ;

for j := 1 to k do

begin

for i := 1 to 6 do

if stroka[j] = razdel[i] then

stroka[j] := ‘ ’ ;

end ;

writeln(stroka) ;

readln ;

readln

end .

Примеры решения задач

Дан текст из 60 литер. Напечатать только строчные русские буквы, входящие в этот текст.

Program rusbukv ;

Uses Crt ;

Const n = 60 ;

Var p : array[1 .. 32] of char ; c : char; i, j : integer;

Begin

Clrscr ;

p := ‘абвгдежзийклмнопрстуфхцчшщъыьэюя’ ;

For i := 1 to n do

Begin

Read(c) ;

j := 0 ;

Repeat j := j + 1 ;

Until (c = p[j] or (j =32) ;

If c = p[j] then write(c) ;

End ;

Writeln ;

Repeat until keypressed

End .