 |
Составление нециклических программ с разветвлениями
Составить программу проверки знания таблицы умножения.
program pt1;
uses crt; //подключаем модуль работы с экраном
var x,y,z: integer;// объявляем типы данных в разделе описаний целого типа
begin //начало программы
clrscr; //очищаем экран
writeln ('ПРОГРАММА ПРОВЕРКИ ТАБЛИЦЫ УМНОЖЕНИЯ.'); // выводим //сообщение на экран
randomize; //формируем случайные числа
x:= random(10); //Получаем случайным образом число х
y:= random(10);// Получаем случайным образом число у
write (' ',x,' x ',y,' =?'); //Выводим полученные числа на экран
read (z); //Считываем с клавиатуры введенное число z
if z=x*y // Проверяем является ли введенное число произведением чисел х, у
then writeln ('правильно!') //Если является то выводим соответствующее сообщение
else writeln ('неправильно! '); //Сообщение в противном случае
end.
Результаты выполнения тестов по данной программе
| № теста | Вход | Ожидаемый выход | Фактический выход | Результат |
| 1 2 2 | Правильно | Правильно | Да | |
| 4 7 29 | Неправильно | Неправильно | Да |
Вывод: По результатам выполнения тестов, можем сделать вывод, что программа решена верно.
Блок-схема к решению данной задачи
 |
True False
Составление циклических программ
Проверить, является ли целое число простым. Число является простым, если оно делится только на 1 и на само себя. При решении данной задачи используем неполную запись оператора цикла If.
Uses crt;
Var n,i:integer;
Begin
writeln ('Введите число ');
Readln (n); //Вводим число и считываем его с клавиатуры
For i:=2 to n-1 do // Берем последовательно числа от 2 до введенного числа n
If n mod i =0 {Проверяем является ли это число простым - есть ли остаток от деления этого числа, на последовательность чисел от 2 до самого себя. Если число делится на какое либо другое число, то остаток от деления будет равно 0}
Then
begin // так как в операторе If будет несколько действий, оформляем
//Then в логические скобки begin end;
writeln(n,’не простое’); // число не является простым, оно делится нацело // выводим сообщение
readkey;
halt;//выходим из цикла
End;
writeln (n, ‘простое’);
End.
Результаты выполнения тестов по данной программе
| № теста | Вход | Ожидаемый выход | Фактический выход | Результат |
| 12 не простое | 12 не простое | Да | ||
| 23 простое | 23 простое | Да |
Вывод: По результатам выполнения тестов, можем сделать вывод, что программа решена верно.
Составление программ обработки одномерных массивов
Из массива a составить массив b, который содержит только чётные элементы массива a.
program massiv1;
uses crt;
type mas=array[1..5] of integer; //объявляем тип данных «массив»
var a,b:mas; i,k,nmin:integer; min:integer;
Begin
clrscr;
for i:=1 to 5 do {Блок заполнения массива}
Begin
writeln ('Введите значение элемента');
readln (a[i]);
End;
//Из массива a составляем массив b, который содержит только чётные элементы //массива a
k:=0;
for i:=1 to 5 do
if a[i] mod 2=0{Поиск чётного элемента}
Then
begin {Формирование нового массива}
k:=k+1; b[k]:=a[i];
end;
if k=0 then begin writeln ('Чётных элементов нет.');
writeln ('Формирование нового массива невозможно!');
End
Else begin
nmin:=1; min:=b[1]; {Поиск минимального в новом массиве}
for k:=1 to k do
if b[k]<min
then begin min:=b[k]; nmin:=k; end;
//Выводим новый сформированный массив
for i:=1 to 5 do {Вывод элементов массива а}
writeln ('Элемент ',i, ' массива a ',a[i]);
for i:=1 to k do {Вывод элементов массива b}
writeln ('Элемент ',i, ' массива b ',b[i]);
writeln ('Минимальный элемент среди чётных элементов массива=',min);
writeln ('Номер этого элемента=',nmin);
end.
Литература, рекомендуемая для подготовки
Контрольной работы
| 1. | Культин Н.Б. Turbo Pascal в задачах и примерах. БВХ-Петербург, 2004 |
| 2. | Немнюгин С.А. Turbo Pascal. Программирование на языке высокого уровня. Питер.2003г |
| 3. | Офицеров Д.В. и др. Программирование на персональных ЭВМ. Минск. 1993г |
| 4. | Павловская Т.А. Паскаль. Программирование на языке высокого уровня. Питер. 2003г |
| 5. | Информатика. Учебное пособие для 11 класса общеобразовательных учреждений с белорусским и русским языками обучения с 12-летним сроком обучения (базовый и повышенный уровень). – Мн. «Народная асвета», 2008г. |
| 6. | http://www.cyberforum.ru/ |
МЕТОДИЧЕСКИЕ УКАЗАНИЯ
и задания для выполнения домашней контрольной работы №2
