- •Основные элементы языка.
- •Типы данных
- •Выражения и операции.
- •Операторы языка.
- •Операторы Write и WriteLn
- •Операторы Read и ReadLn
- •Выберите из предложенного ниже списка задачи для самостоятельного решения.
- •Оператор выбора case. Решение задач.
- •Задачи для самостоятельного решения:
- •Общая форма записи цикла со счетчиком
- •Задачи для самостоятельного решения:
- •Проверьте себя, ответив на вопросы:
- •Массивы.
- •Изменение значения некоторых элементов
- •Нахождение номеров элементов с заданным свойством
- •Нахождение количества элементов с заданным свойством
- •Задачи для самостоятельного решения
- •Вставка одного элемента
- •Вставка нескольких элементов
- •Задачи для самостоятельного решения
- •Перестановка двух элементов
- •Перестановка части массива
- •Задачи на использование одномерных массивов
- •Самостоятельное решение задач.
- •Нахождение количества элементов с данным свойством
- •Определить, отвечает ли заданный массив некоторым требованиям
- •Изменение значений некоторых элементов, удовлетворяющих заданному свойству
- •Заполнение массива по правилу
- •Задачи для самостоятельного решения
- •Вставка строк и столбцов
- •Удаление строк и столбцов
- •Задачи для самостоятельного решения Задачи на вставку элементов:
- •Задачи на удаление элементов:
- •Задачи для самостоятельного решения
- •Задачи на использованиедвумерных массивов
- •I. Заполнение и анализ элементов массива
- •II. Работа с одномерным и двумерным массивами
- •Дополнительные задачи (на усмотрение учителя)
- •Для любопытных Графические программы с применением массивов.
- •Сортировка выбором
- •Сортировка методом простого обмена. Рекурсивная сортировка.
- •Сортировка массива с помощью рекурсии
- •Рекурсивная сортировка слиянием (для любопытных)
- •Строки и множества.
- •Задачи для самостоятельного решения
- •Задачи для дополнительного решения (на усмотрение учителя)
- •Функция Length
- •Функция Upcase
- •Функция Copy
- •Функция Pos
- •Функция Concat
- •Задачи для самостоятельного решения
- •Стандартные процедуры для работы со строками (delete, insert,str,val).
- •Задачи для самостоятельного решения
- •Задачи для дополнительного решения (на усмотрение учителя)
- •Контрольная работа.
- •Сформулируйте тексты решенных ниже задач
- •Выберите с учителем задачи для самостоятельного решения:
- •Решение задач.
- •Бегущая строка. Пример программы осыпающихся букв. Строки в графическом режиме (для увлеченных программированием).
- •1.Организовать ввод фио только на русском языке.
- •Записи.
- •Процедуры и функции.
- •2.Вывести все совершенные числа в данном диапазоне.
- •3.Введенное число - полиндром?
- •2.Найти факториал числа с помощью рекурсии.
- •Задачи на построение процедур и функций
- •Самостоятельное решение задач.
- •I Выберите с учителем одну из предложенных ниже задач (тип Integer, real)
- •II Выберите с учителем одну из предложенных ниже задач (тип char)
- •III Выберите с учителем одну из предложенных ниже задач (тип string)
- •IV Выберите с учителем одну из предложенных ниже задач (тип record)
- •Задачи на работу с файлами
- •Использование библиотеки crt
- •Программирование клавиатуры
- •Текстовый вывод на экран
- •Программирование звукового генератора
- •Использование библиотеки Graph
- •Переход в графический режим и возврат в текстовый
- •Краткая характеристика графических режимов работы дисплейных адаптеров
- •Процедуры и функции
- •Координаты, окна, страницы
1.Организовать ввод фио только на русском языке.
Program Mnogestv5;
{Задача.Организовать ввод ФИО только на русском
языке.
Решение.Арсланов Ильдар,
ЦНИТ "Северная Звезда"
16.03.2000.}
Uses
Crt;
Var
litera:set of char;
Name,s:string;
ch:char;
Flag:boolean;
x,I:integer;
Begin
ClrScr;
Randomize;
litera:=[' ','А'..'п','р'..'я',#8];
Write('Введите фамилию,имя,отчество ');
Writeln;
Repeat{считатьName}
Repeat {считать в ch код клавиши}
ch:=readkey;
If ch=#8 {Если нажата клавиша BACKSPACE}
then
ch:=#8; {Заменяем неправильную букву}
if ch<>#13
Then
begin
Flag:=ch in litera;
If flag {если символ входит в множество}
Then
begin
name:=name+ch; {приклеить символ к name}
write(ch); {напечатать этот символ}
end
Else {иначе вверху}
begin
sound(345);
delay(3000);
nosound;
Writeln('Загрузите русский шрифт или');
Writeln('нажмите CTRL-SHIFT');
Writeln('и введите ваше имя ');
end;
end;
Until Flag; {завершить ввод очеред.символа}
Until ch=#13; {завершить ввод name т.к нажата ENTER}
Writeln;
Writeln('Здравствуйте, ',name);
Writeln('Сколько тебе лет ');
Readln(x);
Writeln('А мне,компьютеру ',random(100),' лет');
Readln;
End.
2. Описать множество Mn(1..50) и поместить в него все числа из диапазона A..B, делющиеся без остатка на k.
ProgramMnoj3;
{Задача. Описать множество Mn(1..50) и поместить в него все
числа из диапазона A..B, делющиеся без остатка на k.
Решение. Грушин Кирилл
Центр НИТ "Северная Звезда"
16.03.2000г.}
Uses
Crt;
Type
Chisla = Set of 1..50;
Var
i, k, A, B : integer;
Mn : Chisla;
Procedure Prov;
begin
If (A < 0) or (B < 0)
Then
begin
Sound (1000);
Write ('Неправильный ввод диапазона!!!');
Delay (800);
NoSound;
end;
end;
Procedure Vvod;
begin
Prov;
Mn := [];
For i := A to B do
begin
If i mod k = 0
Then
Mn := Mn + [i];
If i in Mn
Then
Writeln (i,' - Помещено')
Else
Writeln (i,' - Не помещено');
end;
end;
Begin
ClrScr;
TextColor (White);
Write('Введите диапазонA..Bчерез пробел...');
Readln(A,B);
Write ('Введите число k-делитель...');
Readln (k);
Vvod;
Readln;
End.
3. Решить ребус СОЛЬ + СОЛЬ = ЛОСЬ.
ProgramRebus2;
{Задача. Решить ребус СОЛЬ + СОЛЬ = ЛОСЬ.
Решение. Грушин Кирилл
Центр НИТ "Северная Звезда
20.03.2000г.}
Uses
Crt;
Type
Chisla = Set of 0..9;
Var
X : integer;
l, o, s, i : 0..9;
Mn1, Mn2 : Chisla;
Procedure Vivod;
begin
Writeln(' ',X:5); Writeln(' +');
Writeln(' ',X:5); Writeln(' ----');
Writeln(' ',l, o, s, i);
Writeln; Writeln; Writeln;
end;
Procedure Opred;
begin
Mn1 := [];
Mn2 := [];
For s := 1 to 5 do
begin
Mn1 := Mn1 + [s];
For o := 0 to 9 do
If not (o in Mn1)
Then
begin
Mn1 := Mn1 + [o];
For l := 0 to 9 do
If not (l in Mn1)
Then
begin
Mn1 := Mn1 + [l];
For i := 0 to 9 do
If not (i in Mn1)
Then
begin
Mn1 := Mn1 + [i];
X := 1000*s + 100*o + 10*l + i;
Mn2 := [l,o,s,i];
Mn1 := Mn1 - [i];
Vivod;
end;
Mn1 := Mn1 - [l];
end;
Mn1 := Mn1 - [o];
end;
Readln;
Mn1 := Mn1 - [s];
end;
end;
Begin
ClrScr;
TextColor (LightGreen);
Opred;
Readln;
End.