- •Язык Паскаль
- •Тема: Типы данных. Операторы ввода-вывода данных.
- •Теория.
- •Выполните следующие задания:
- •4. Контрольные вопросы.
- •Тема: Линейные программы.
- •Теория.
- •Измените программу так, чтобы на экран выводилось:
- •Контрольные вопросы:
- •Тема: Оператор условия.
- •Повторить теорию.
- •Ответить на контрольные вопросы.
- •1.Теория.
- •3. Внесите в программу предложенные изменения:
- •4. Задание для самостоятельного выполнения.
- •5. Контрольные вопросы:
- •Тема: Оператор выбора.
- •Повторить теорию.
- •Ответить на контрольные вопросы.
- •1. Теория.
- •Блок – схема
- •3. Внесите в программу предложенные изменения.
- •4. Задание для самостоятельного выполнения.
- •5. Контрольные вопросы.
- •Тема: Арифметический цикл.
- •Повторить теорию.
- •Ответить на контрольные вопросы.
- •1. Теория.
- •3. Внесите в программу предложенные изменения:
- •4. Выполните задание.
- •5. Контрольные вопросы.
- •Тема: Цикл с предусловием.
- •Повторить теорию.
- •Ответить на контрольные вопросы.
- •Теория.
- •Блок схема цикла с предусловием.
- •3. Подумайте над вопросами и внесите предложенные изменения:
- •4. Задание для самостоятельного выполнения.
- •5. Контрольные вопросы.
- •Тема: Цикл с постусловием.
- •Повторить теорию.
- •Ответить на контрольные вопросы.
- •Теория.
- •Блок схема цикла с постусловием.
- •3. Подумайте над вопросами и внесите предложенные изменения:
- •4. Задание для самостоятельного выполнения.
- •5. Контрольные вопросы.
- •Тема: Вложенные циклы.
- •Повторить теорию.
- •Ответить на контрольные вопросы.
- •1. Теория.
- •3. Внесите в программу следующие изменения:
- •4. Задание для самостоятельного выполнения.
- •5. Контрольные вопросы.
- •Тема: Одномерные массивы.
- •Повторить теорию.
- •Ответить на контрольные вопросы.
- •1. Теория.
- •3. Внесите в программу предложенные изменения:
- •4. Задание для самостоятельного выполнения.
- •5. Контрольные вопросы.
- •Тема: Двумерные массивы.
- •Повторить теорию.
- •Ответить на контрольные вопросы.
- •1. Теория.
- •Внесите в программу предложенные изменения:
- •4. Задание для самостоятельного выполнения.
- •5. Контрольные вопросы.
- •Тема: Строки. Операции над строками. Функции для работы со строковыми величинами.
- •Повторить теорию.
- •Ответить на контрольные вопросы.
- •1. Теория.
- •Практическая часть.
- •Контрольные вопросы.
- •Тема: Строки. Функции для работы со строковыми величинами.
- •Повторить теорию.
- •Ответить на контрольные вопросы.
- •1. Теория.
- •2. Практическая часть.
- •3. Контрольные вопросы.
- •Тема: “Использование массивов при решении задач на преобразование нечисловой информации. Разделение текста на слова”.
- •3. Ответить на контрольные вопросы.
- •2. Практическая часть.
- •3. Контрольные вопросы.
- •Тема: “Подпрограммы-процедуры”
- •1. Повторить теорию.
- •3. Ответить на контрольные вопросы. Ход работы.
- •1. Теория.
- •2. Практическая часть.
- •3. Контрольные вопросы.
- •Тема: “Подпрограммы-функции”
- •1. Повторить теорию.
- •3. Ответить на контрольные вопросы. Ход работы.
- •Теория.
- •3. Контрольные вопросы.
- •Тема: “Множества”.
- •1. Повторить теорию.
- •3. Ответить на контрольные вопросы.
- •Теория.
- •Практическая часть.
- •Контрольные вопросы.
- •Тема: “Записи”.
- •1. Повторить теорию.
- •3. Ответить на контрольные вопросы.
- •Теория.
- •Обращение к полям записи.
- •Практическая часть.
- •Контрольные вопросы.
- •Тема: “Файлы, типизированные и нетипизированные файлы”.
- •1. Повторить теорию.
- •3. Ответить на контрольные вопросы.
- •Теория.
- •Стандартные процедуры для работы с файлами различного типа.
- •Процедуры для работы с типизированными файлами.
- •2. Практическая часть.
- •3.Контрольные вопросы.
- •Тема: “Файлы, текстовые файлы”.
- •1. Повторить теорию.
- •3. Ответить на контрольные вопросы Ход работы. Теория.
- •Практическая часть.
- •3.Контрольные вопросы.
2. Практическая часть.
Задание 1. Наберите заданную программу, подсчитывающую количество гласных букв в произвольном предложении (на русском языке).
Program Ex_1;
var
St : string;
Ltr : char;
L,k,i :integer;
Begin
write ('Введите предложение: ');
read (St); {вводим строку-предложение}
k:=0; {обнуляем счетчик гласных букв}
writeln; {переходим на следующую строку}
L:=length (St); {определяем длину предложения}
For i:=1 to L do
Begin
Ltr:=St[i]; {"вырезаем" очередной символ}
Case Ltr of
'а','е','и','о','у','ы','э','ю','я' : k:=k+1;
{если это гласная буква, то увеличиваем счетчик}
end;
end;
If k<>0 then
writeln ('В предложении ',k,' гласных букв')
else
writeln ('Гласных букв в предложении нет');
End.
Измените программу так, чтобы из исходной строки были удалены все гласные буквы(с использованием процедуры delete).
Задание 2. Наберите заданную программу, заменяющую все цифры '5' на '1' в произвольном натуральном числе.
Program Ex_2;
var
St: string;
code, L, i, ch_i, ch_o: integer;
Begin
write ('Введите число: ');
read (ch_i); {вводим число}
Str (ch_i,St); {переводим его в строку символов}
L:=length (St); {измеряем длину полученной строки}
For i:=1 to L do
If St[i]='5' then St[i]:='1'; {меняем 5 на 1}
Val (St,ch_o,code); {исправленную строку переводим обратно в число}
If (code=0) then {если ошибки не было, то выводим}
{на экран результат работы}
writeln ('Результат: ',ch_o)
else
writeln ('Ошибка в исходном числе');
End.
Внесите изменения в данную программу таким образом, чтобы происходила замена всех цифр '5' на '1' и всех цифр '1' на '5'.
Задание 3. Наберите заданную программу, заменяющую все буквосочетания 'да' на 'нет'.
Program Ex_3;
var
St, S : string;
p,k,i :integer;
Begin
write ('Введите предложение: ');
read (St); {вводим строку-предложение}
writeln; {переходим на следующую строку}
while pos('да', St) <> 0 do
begin
p:= pos('да', St);
delete(St,p,2);
insert(St,p, 'нет');
end;
writeln (St);
End.
Измените данную программу таким образом, чтобы она решала ту же задачу, но без применения процедур delete и insert.
3. Контрольные вопросы.
-
Какие процедуры используются для удаления (вставки) символов в строке?
-
Какие процедуры используются для преобразования строки в число и числа в строку?
-
В чем основное отличие работы процедуры от функции?
-
Для чего в процедуре STR (Ch[:M[:N]],St) используются данные, разделенные “:”?
-
какие данные хранятся в переменной Code после использования процедуры Val (St,Ch,Code)?