Задания

1. Запустите Паскаль и наберите текст приведенной программы. Запустите программу на выполнение. Если нет ошибок, то на черном экране появится текст «Введите два числа». Наберите на клавиатуре через пробел два целых числа и нажмите <Enter>. Просмотрите полученный результат, проверьте его правильность.

2. Измените программу для нахождения суммы трех чисел.

3. Составьте программу решения задачи своего варианта:

1 вариант

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

2 вариант

Найти среднее арифметическое двух чисел

Лабораторная работа № 1

Действия с числами

Цель работы: научиться составлять программы на языке Паскаль с использованием основных операторов.

ТСО: компьютер

ТЕОРЕТИЧЕСКИЕ СВЕДЕНИЯ

Текст программы на Паскале располагается между служебными словами BEGIN и END, которые отмечают начало и конец программы. После служебного слова END ставится точка:

Program Primer:

(декларация)

Begin

(тело программы)

End.

1. Оператор присваивания.

Обозначается в программе символами «:=», например: х:=2;

2. Оператор ввода.

Общий вид: Read[ln] (x,y,z); . Буквы «ln» обозначают, что будет осуществлен переход к следующей строке при вводе. Ввод нескольких значений осуществляется через пробел.

3. Оператор вывода.

Общий вид: Write[ln] (список вывода); . Текстовые сообщения заключаются в апострофы. Например: Writeln (‘хорошо’,45);

4. Оператор безусловного перехода.

Общий вид: GOTO метка;. Помеченный оператор записывается после метки и символа «:».

5. Пустой оператор.

Он не содержит символов, отделяется от других операторов символом «;» и используется, например, при организации условных и безусловных переходов в программе.

6. Условный оператор.

Общий вид: If <условие> then <оператор1> else <оператор2> ;

При использовании нескольких проверяемых условий применяются союзы AND, OR, XOR, а сами условия заключаются в круглые скобки.

Если необходимо выполнить после служебных слов then, else несколько операторов, то они должны быть заключены в операторные скобки BEGIN…END.

7. Оператор варианта.

Общий вид:

Case<переменная-признак>of

<значение1>,<значение2>,…:<оператор1>;

………………………………………………

<значение i>,<значение i+1>, …:<оператор i>

else<оператор J>

End.

Задания

1 вариант

Дана сторона равностороннего треугольника. Найти его площадь.

2 вариант

Дана сумма начисленной заработной платы. Из этой суммы необходимо удержать 12 % на подоходный налог, 1 % на профсоюзный налог , 1 % на пенсионный налог и добавить 45 %. Полученную сумму к выдаче вывести на экран.

3 вариант

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

4 вариант

Водонапорная башня цилиндрической формы имеет радиус основания 10 метров. Ввести замеренную высоту уровня воды и рассчитать объем воды в башне.

5 вариант

Известно, что плата за детский сад в месяц составляет 6500 руб. (месяц - 22 дня). Рассчитать, сколько нужно заплатить за месяц, если ребенок отходил N дней.

6 вариант

Вычислить длину окружности и площадь круга одного и того же заданного радиуса.

7 вариант

Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов.

8 вариант

Вычислить периметр и площадь существующего треугольника по длинам трех сторон.

9 вариант

Дан радиус круга и сторона квадрата. У какой фигуры площадь больше?

10 вариант

Даны три целых числа. Найти наибольшее из них.

Практическое занятие № 2

Использование циклов

Цель: научиться составлять циклические программы на языке Паскаль.

ТСО: компьютер

Для успешного выполнения работы Вам необходимо изучить теоретический материал по теме: «Циклы»

Задания

1. Повторите теоретический материал по данной теме.

2. Разобрать решение следующей задачи:

Задача: Составить программу подсчета суммы S = 1 + 1/2 + 1/3 + ...+ 1/50

Решение:

1 способ

Program Summa;

Var S: real; i: integer;

Begin

S:=0;

For i:=1 to 50 do S:=S+1/i;

Writeln('Сумма равна', S);

Readln;

End.

2 способ

Program Summa;

Var S: real; N: integer;

Begin

S:=0;

N:=0;

While N<50 do

Begin

N:=N+1;

S:=S+1/N;

End;

Writeln('Сумма равна', S);

Readln;

End.

3 способ

Program Summa;

Var S: real; N: integer;

Begin

S:=0;

N:=0;

Repeat

N:=N+1;

S:=S+1/N

Until N=50;

Writeln('Сумма равна', S);

Readln;

End.

3. Составить программу решения задачи своего варианта:

1 вариант

Составить программу подсчета суммы S = 3 + 6 + 9 + ...+ 30

2 вариант

Составить программу подсчета произведения P = 4 ۰ 9 ۰ 14 ۰ ...۰ 34

Лабораторная работа № 2

Составление циклических программ

Цель работы: Научиться составлять программы с использованием циклов.

ТСО: компьютер

ТЕОРЕТИЧЕСКИЕ СВЕДЕНИЯ

Цикл – многократно повторяющаяся последовательность операторов.

Различают несколько видов циклов.

1. Цикл с известным числом повторений («ДЛЯ»)

Общий вид:

For <переменная>:=<значение1> to <значение2> do <оператор>;,

где переменная – счетчик цикла;

значение1, значение2 – нижняя и верхняя граница счетчика;

оператор – тело цикла;

Для данного цикла переменная должна иметь тип INTEGER. Шаг изменения равен 1. Для шага равного -1, вместо слова to используется downto. Переменная в теле цикла изменяться не может!

2. Цикл с неизвестным числом повторений («ПОКА»)

Общий вид:

While <проверяемое условие> do <оператор>;

Указанный после слова do оператор выполняется при истинности проверяемого условия.

3. Цикл с неизвестным числом повторений («До ТЕХ ПОР, ПОКА»)

Общий вид:

REPEAT

<оператор1>;

<оператор2>;

…;

<оператор N>;

Until <условие>;

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

Задания

1 вариант

Вычислить сумму S = 1+3+5+…+35

2 вариант

Найти среднее арифметическое N чисел.

3 вариант

Вычислить:

4 вариант

Вычислить: 100 – (2∙3+2∙4+2∙5+…+2∙30)

5 вариант

Вычислить:

6 вариант

Найти все делители натурального числа N.

7 вариант

Найти среднее геометрическое N чисел.

8 вариант

Найти сумму всех делителей натурального числа N.

9 вариант

Вычислить факториал числа N. ( )

10 вариант

Вычислить сумму чисел кратных 6 из интервала от 5 до 100 включительно.

Практическое занятие № 3

Обработка массивов

Цель: научиться составлять программы по обработке массивов.

ТСО: компьютер

Для успешного выполнения работы вам необходимо изучить теоретический материал по теме: «Организация массивов»

Задания

1. Повторите теоретический материал по данной теме.

2. Разобрать решение следующих задач:

Задача 1: Ввести одномерный массив А целого типа и найти в нем сумму элементов кратных данному числу k.

Решение:

Program Massiv1;

uses crt;

Var i,n,S,k:integer; A:Array [1..200] of integer;

begin

clrscr;

Write('Размерность массива:');

Readln(n);

For i:=1 to n do

begin

Write(i,' element: ');

readln(a[i]);

end;

Write('Введите число k: ');

Readln(k);

S:=0;

For i:=1 to n do if (a[i] mod k)=0 then S:=S+a[i];

Writeln('Сумма элементов кратных ',k,' равна ',S);

readln;

end.

Задача 2: Ввести двумерный массив В целого типа и найти в нем произведение элементов указанной строки.

Решение:

Program Massiv2;

uses crt;

Var i,n,m,j,P,k:integer; A:Array [1..50,1..50] of integer;

begin

clrscr;

Write('Введите количество строк: ');

Readln(n);

Write('Введите количество столбцов: ');

Readln(m);

For i:=1 to n do

For j:=1 to m do

begin

Write('A[',i,',',j,']= ');

readln(a[i,j]);

end;

Write('Введи номер строки: ');

Readln(k);

P:=1;

For j:=1 to m do P:=P*a[k,j];

For i:=1 to n do

begin

For j:=1 to m do Write(A[i,j],' ');

writeln;

end;

Writeln('Произведение элементов ',k,' строки равно ', P);

readln;

end.

3. Составить программы решения задач своего варианта:

1 вариант

1. Ввести одномерный массив А целого типа и найти в нем сумму положительных элементов.

2. Дан двумерный массив. Заменить значения всех элементов указанного столбца на число 5.

2 вариант

1. Ввести одномерный массив А целого типа и найти в нем произведение только тех элементов, которые больше заданного числа М.

2. Дан двумерный массив. Вывести на экран все элементы указанной строки.

Лабораторная работа № 3

Составление программ на обработку одномерных массивов

Цель работы: Научиться составлять программы на языке Паскаль на обработку одномерных массивов.

ТСО: компьютер

ТЕОРЕТИЧЕСКИЕ СВЕДЕНИЯ

Массив представляет собой упорядоченный набор однородных элементов, имеющий одно общее имя. Имя массива строится по тем же правилам, что и имя простой переменной.

Массив в Паскале определяется следующей формой записи:

<Имя массива>: Array [<размерность массива>] Of <тип элементов>;

Эта конструкция помещается в декларации. Доступ к элементам массива осуществляется посредством задания значения индекса, которое располагается в квадратных скобках.

По способу организации массивы бывают: одномерные, двумерные, многомерные.

Элементы одномерных массивов снабжаются одним индексом, определяющим порядковый номер в массиве.

Замечание: в качестве границ массива нельзя использовать переменные!