Задания

Задание 1.

Написать программу, позволяющую изобразить отрезок прямой бегущий сверху вниз. Длина отрезка и его цвет задаются с клавиатуры.

Использовать цикл с предусловием.

Задание 2.

Написать программу, позволяющую изобразить отрезок прямой бегущий по диагонали экрана (наискосок). Длина отрезка и его цвет задаются с клавиатуры.

Использовать цикл с постусловием.

Задание 3.

Написать программу, позволяющую изобразить на экране калейдоскоп.

Использовать цикл с предусловием.

Задание 4.

Написать программу, которая позволяет нарисовать на экране несколько концентрических окружностей. Радиус большой окружности — R1, радиус маленькой окружности — R2, шаг изменения радиуса — S (разность между значениями радиусов соседних окружностей).

Задание 5.

Написать программу, которая позволяет нарисовать на экране в ряд 9 прямоугольников, закрашенных разными стилями и цветами.

Задание 6.

Написать программу, которая позволяет изобразить бегущий отрезок, который движется от левого верхнего угла до правого нижнего угла экрана как спутник, т. е. дойдя до низа экрана отрезок появляется вверху экрана, но правее исходного положения.

Задание 7

Гражданин открыл счёт в банке, вложив N рублей. Каждый месяц размер вклада увеличивается на 1,5% от имеющейся суммы. Определить, через сколько месяцев сумма вклада превысит M рублей. N и M вводятся с клавиатуры.

Задание 8

Одноклеточное животное амёба каждые 3 часа делится на 2 клетки. Через сколько часов количество клеток превысит K млн, если первоначально была одна амёба. K вводится с клавиатуры.

Задание 9

Начав тренировки, лыжник в первый день пробежал X км. Каждый следующий день он увеличивал пробег на Y% от пробега предыдущего дня. Определить в какой день он пробежал более Z км. X, Y, Z вводятся с клавиатуры.

Задание 10

С клавиатуры вводится целое положительное число. Посчитать сколько в этом числе нечётных цифр.

Задание 11

Дано целое положительное число А, значение которого вводится с клавиатуры.

Напишите программу, позволяющую:

• найти минимальную цифру среди последних трех цифр числа

• вывести на экран найденную цифру

• если цифр меньше трех, то выдать сообщение «невозможно выполнить заданную операцию»

Тема: Процедуры. Параметры процедур.

Для того, чтобы писать серьезные сложные программы с малыми затратами сил и времени, избегая множества ошибок, мало знать операторы какого-либо языка программирования. Необходимо овладеть навыками структурного программирования (навыками разработки и написания программ). Применение их на практике позволит Вам:

• просто и легко писать программы;

• получать понятные и легкочитаемые программы;

• быстро находить ошибки в программе;

• быстро изменять и совершенствовать программу.

Одна из главных идей структурного программирования — это, так называемое, программирование сверху вниз. То есть поставленная задача разбивается на несколько более простых подзадач. Далее каждая из подзадач также разбивается на части. Этот процесс продолжается до тех пор, пока в итоге Вы не получите несколько элементарных и простых подзадач, которые нужно решить.

Отдельные подзадачи в языке Паскаль называются процедурами.

Формат вызова процедуры:

<имя процедуры> ( <список фактических параметров> ) ;

Процедуры должны быть описаны в разделе объявлений до основной программы, то есть прежде чем вызвать процедуру, ее необходимо описать.

Формат описания процедуры:

procedure <имя процедуры> ( <список формальных параметров> ) ; <блок объявлений> begin <действия> end;

Первая строка при описании процедуры называется заголовком процедуры и содержит в себе служебное слово procedure, имя процедуры, которое является правильным идентификатором, и в круглых скобках список формальных параметров с указанием их типа. Формальные параметры разного типа отделяются друг от друга точкой с запятой. (Параметры называются формальные, т. к. мы описываем «формулу», по которой работает процедура).

При вызове процедуры — параметры фактические, т. е. те с которыми мы фактически работаем.

Необходимо помнить правило соответствия фактических и формальных параметров: Их количество, порядок следования и типы совпадают.

После заголовка может быть блок объявления и обязательно блок описания действий. т. е. процедура имеет такую же структура, как и программа на языке Паскаль (процедура — небольшая программа внутри основной программы).

Если в процедуре необходимо использовать переменные, которые не являются параметрами, то их надо описать в блоке объявлений этой процедуры.

Если в заголовке описания процедуры перед параметрами стоит слово VAR, то это параметр-переменная.

Параметр-переменная показывает, откуда значение взять и куда ПОЛОЖИТЬ. Говорят, что процедура возвращает значение параметра-переменной в программу. Поэтому в случае параметров-значений на месте фактических параметров может быть только переменная.

Если в заголовке процедуры перед параметром в списке формальных параметров ничего не стоит,то такие параметры называются параметрами-значениями. В программу из процедуры ничего не возвращается. В случае параметров-значений на месте фактических параметров может быть константа, переменная или выражение.

Пример 1. Рисование елки.

PROGRAM elka_1 ; VAR x,y,osn1,osn2,h : INTEGER ; PROCEDURE VVOD ( VAR kx,ky,dl1,dl2,h1:INTEGER ); BEGIN WRITELN( 'Введите X,Y, длину 1 и 2, высоту' ) ; READLN( kx,ky,dl1,dl2,h1 ) ; END ;

PROCEDURE ELKA ( kx,ky,dl1,dl2,h1:INTEGER ); VAR dl,y1 : INTEGER ; BEGIN dl := dl1 ; y1 := ky ; WHILE dl>=dl2 DO BEGIN MOVETO(kx,y1) ; LINETO(kx-dl div 2,y1,2) ; LINETO(kx,y1-h1,2) ; LINETO(kx+dl div 2,y1,2) ; LINETO(kx,y1,2) ; y1 := y1-h1 ; dl := dl-10 ; END ; SETFILLSTYLE(0,8) ; BAR(kx-5,ky,kx+5,ky+10) ; END ;

BEGIN { ******* MAIN PROGRAM ******* } VVOD(x,y,osn1,osn2,h) ; INITGRAPH ; ELKA(x,y,osn1,osn2,h) ; READKEY ; CLOSEGRAPH ; END.