- •Язык Паскаль
- •Тема: Типы данных. Операторы ввода-вывода данных.
- •Теория.
- •Выполните следующие задания:
- •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.Контрольные вопросы.
3.Контрольные вопросы.
-
Что называется файлом, какого типа могут быть компоненты файла, сколько компонентов может содержать файл?
-
Какие существуют виды файлов, в чём их сходство и в чём отличие?
-
Какие процедуры и функции используются для всех файлов.
-
Какие процедуры и функции используются для типизированных файлов?
Тема: “Файлы, текстовые файлы”.
Цель: выработать у учащихся навыки работы с текстовыми файлами, их использования при решении задач.
План работы.
1. Повторить теорию.
2. Выполнить практическую часть на компьютере, записав ответы в тетрадь.
3. Ответить на контрольные вопросы Ход работы. Теория.
Текстовый файл – это совокупность строк переменной длины. Доступ к файлу возможен только последовательный, начиная с первой строки. Текстовый файл можно создавать с помощью любого редактора в конце текста необходимо ставить признак конца строки (обычно это есть нажатие клавиши enter), конце файла необходимо ставить признак конца файла.
Признаком конца стоки является функция end of line (eoln(файловая переменная)).
Признаком конца файла является функция end of file (eof(файловая переменная)).
В текстовый файл данные можно записывать только в конец файла с помощью процедуры APPEND(имя файловой переменной), эта процедура открывает файл для записи, но указатель устанавливает на номер после последнего элемента файла. Для записи в файл можно применять read и readln, Write и writeln.
-
Практическая часть.
Задание 1. Наберите заданную программу для решения следующей задачи: Скопировать текстовый файл в другой текстовый файл с сохранением строчной структуры text1.txt в text2.txt.
Рассмотрим 2 способа решения данной задачи:
1 способ (копирование посимвольное):
program copir;
var f1,f2:text;
s:integer;
begin assign (f1,’text1.txt’);
assign (f2,’text2.txt’);
reset(f1); rewrite(f2);
while not eof(f1) do begin
while not eoln(f1) do begin
read(f1,s); write(f2,s); end;
readln(f1);
writeln(f2); end; close(f1); close(f2); end.
2 способ (копирование построчное):
program copir;
var f1,f2:text; st:string;
begin assign (f1,’text1.txt’);
assign (f2,’text2.txt’);
reset (f1); rewrite(f2);while not eof(f1) do begin
readln(f1,st);
writeln(f2,st);
end;
close(f1); close(f2); end.
Задание 2. Наберите заданную программу для решения следующей задачи: Дан текстовый файл с именем 'text1.txt', вывести на экран строку, содержащую наибольшее количество строк.
Program textfile;
var
f:text; b:array[1..56]of integer; st:string;
l,i,j,k :integer;
begin
assign(f,'text1.txt');
reset(f); i:=1;
while not eof (f) do begin k:=1;
read(f,st);
for l:=1 to length(st) do
if st[l]=' ' then k:=k+1;
b[i]:=k; i:=i+1; readln(f);end;
For j:=1 to i do
write(b[j]:6); max:=b[1];
for j:=1 to i do begin
if b[j]>max then begin max:=b[j]; N:=j; end; end;
reset (f); l:=1;
while not eof(f) do begin
if l=n then while not eoln(f) do begin read(f,st);
write(st);
end;
readln(f); l:=l+1; end; end.
Внесите в программу изменения таким образом, чтобы на экран выводилась строка, содержащая наименьшее количество слов, а также длины каждого слова в этой строке.