Задания для самостоятельного выполнения

Задание 1. Составить алгоритм, по которому на компьютере будет происходить следующее: в переменную S вводится возраст Саши, в переменную М вводится возраст Маши. В качестве результата на экран выводится фраза «Саша старше Маши» или «Маша старше Саши», или: «Саша и Маша ровесники». Зарисовать блок-схему и записать программу по этому алгоритму.

Задание 2. Составить программу, которая определяет, является ли трехзначное число палиндромом («перевертышем»), то есть таким числом, десятичная запись которого читается одинаково слева направо и справа налево. Зарисовать блок-схему.

Задание 3. Составить алгоритм упорядочения значений трех переменных по возрастанию, то есть при любых исходных значениях А, В, С отсортировать их. Записать алгоритм в виде блок-схемы. Написать программу.

Задание 4. Определить, является ли заданное шестизначное число счастливым. (Счастливым называют такое шестизначное число, у которого сумма его первых трех цифр равна сумме его последних трех цифр). Зарисовать блок-схему.

Контрольные вопросы

1. Как изображается условие в блок-схеме?

2. Как записывается краткая форма оператора условия?

3. Как записывается полная форма оператора условия?

4. Как в программе описывается кусочная функция? Все ли исходные условия необходимо прописывать в программе?

5. Какие логические операции вам известны?

6. Как в программе описывается двойное неравенство?

7. В каком случае структура условия будет вложенной?

8. Что такое сортировка?

Лабораторная работа № 5 «Алгоритм как модель деятельности: создание программ с повторами на языке Pascal 7.0»

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

Выполнив данную работу, Вы должны уметь:

1. создавать, сохранять и отлаживать программы с повторами в среде Turbo Pascal 7.0;

2. записывать алгоритмы с повторами на языке блок-схем;

3. использовать в программе цикл с параметром;

4. использовать в программе цикл с постусловием;

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

Краткий теоретический материал

В языке Паскаль существует три различных оператора цикла: оператор цикла с параметром, оператор цикла с постусловием, оператор цикла с предусловием.

Оператор цикла с параметром

For i := n to m do оператор; i – параметр цикла( шаг равен 1) n – начальное значение параметра цикла (n<m) m – конечное значение параметра цикла to - до do - делать оператор – тело цикла	For i := n downto m do оператор; For - для i – параметр цикла( шаг равен -1) n – начальное значение параметра цикла (n>m) m – конечное значение параметра цикла downto - до do - делать
For i := n to m do begin Оператор1; Оператор2; … ОператорN; End; (Если тело цикла состоит из нескольких операторов)

Вычислить N! (N!=1*2*3*…* N).

Листинг программы

Program faktorial;

Var p,n, i: integer;

Begin

Writeln(‘введите число N= ’);

Readln(N);

p:=1;

For i:=1 to n do p:=p*i;

Writeln(‘факториал числа ’, n, ‘=’, p);

End.

Вычислить сумму N натуральных чисел (S=1+2+3+4+…+N).

Листинг программы

Program summa1;

Var n, s, i: integer;

Begin

Writeln(‘введите натуральное число N= ’);

Readln(N);

S:=0;

For i:=1 to n do s:=s+i;

Writeln(‘сумма ’, s);

End.

Вычислить значение выражения .

Листинг программы

Program summa2;

Var n, i: integer;

S: real;

Begin

Writeln(‘введите натуральное N= ’);

Readln(N);

S:=0;

For i:=1 to n do s:=sqrt(2+s);

Writeln(‘сумма ’, s); End.

Зарисуем блок-схему нахождения значение выражения .