Программирование алгоритмов с ветвлением, практическая работа

Практическая работа №5

Тема: Программирование алгоритмов с ветвлением.

Цель: формирование навыка решения задач с помощью операторов ветвления.

Задача 1.

Var t: integer;

F:real;

Begin

For t:=-10 to 10 do

Begin

F:=(sqr(t)*t-4*t+1)/(sqr(t)+3);

Writeln ('t=',t,'f=',f);

end;

End.

Задача 2.

Написать программу, которая вычисляет сумму первых n целых четных положительных чисел. Количество суммируемых чисел должно вводится во время работы программы.

Var S,I,N: integer;

Begin

Writeln ('Вычмсление четных положительных чисел');

Write ('Введите количество суммируемых чисел и нажмите ENTER');

Readln (n);

S:=0;

For i:=1 to N do

 if I mod 2=0 then S:=S+I;

 Writeln ('Сумма первых',N,'положительных четных чисел равна',S);

 End.

Задача 3.

Найдите ошибки в записи программы.

Найдите периметр пятиугольника

programm  1; 

begin

var a, b, c, d, e, P: integer

writeln (‘введите стороны пятиугольника’);

readln (a,b,c,d,e)

P:=a+b+c+d+e;

Writeln (‘периметр пятиугольника =‘ P);

end

Задача 4.

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

Задача 5.

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

Задача 6.

Дано два целых числа. Вывести на экран наибольшее из них. (Блок схема +программа).

Задача 7.

Дано целое число К. Вывести строку-описание оценки, соответствующей числу К (1- «плохо», 2 –«неудовлетворительно», 3 – «удовлетворительно», 4 – «хорошо», 5 – «отлично». Если К не лежит в диапазоне 1-5, вывести «ошибка». (Блок схема +программа).

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

1.Что такое пошаговая детализация?

2.Из каких команд могут состоять вспомогательные алгоритмы последнего уровня детализации?

3.Какой формат имеет команда ветвления? Какие действия исполнителя она определяет?
4.Чем отличается полное ветвление от неполного?

Критерии оценивания:

Оценка 3: задачи 1-3;

Оценка 4: задачи 1-5;

Оценка 5: задачи 1-7.