Составить блок-схему и программу алгоритмов нахождения функции с выбором по расчетной формуле

4. Написать программу решения квадратного уравнения

5. Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 10% предоставляется, если сумма покупки больше 1000 тенге.

6. Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется, если сумма покупки больше 500 тенге, в 5% - если сумма больше 1000 тенге.

7. Написать программу проверки знания даты основания Санкт-Петербурга, В случае неверного ответа пользователя программа должна выводить правильный ответ.

Введите число - 1705

Вы ошиблись, Санкт- Петербург был основан в 1703 году

8. Написать программу проверки знания даты начала второй мировой войны. В случае неверного ответа программа должна выводить правильный ответ.

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

ЛАБОРАТОРНАЯ РАБОТА 3

ПРОГРАММИРОВАНИЕ ЦИКЛОВ С ПАРАМЕТРОМ

ЦЕЛЬ РАБОТЫ: Овладеть навыками программирования на языке Паскаль алгоритмов циклической структуры с заданным числом повторений.

КРАТКИЕ СВЕДЕНИЯ ИЗ ТЕОРИИ

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

Различают циклы с параметрами (циклы ДЛЯ) и циклы с условием (циклы ПОКА). Для программирования циклов с параметром в Паскале используют оператор FOR. Следует помнить, что в качестве управляющей переменной должна быть переменная дискретного типа.

ПРИМЕР 1: Приписать к 523*** три такие цифры справа, чтобы полученное шестизначное число делилось на 7, на 8, на 9.

П Р О Г Р А М М А

program mlad;

var s,a,b,c,n: integer;

begin

for n:=0 to 999 do

begin

s:=523000+n;

a:= s mod 7;

b:= s mod 8;

c:= s mod 9;

if (a=0) and (b=0) and (c=0) then write (n:5)