Составить блок-схему и программу алгоритмов нахождения функции с выбором по расчетной формуле.
Написать программу решения квадратного уравнения
Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 10% предоставляется, если сумма покупки больше 1000 тенге.
Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется, если сумма покупки больше 500 тенге, в 5% - если сумма больше 1000 тенге.
Написать программу проверки знания даты основания Санкт-Петербурга, В случае неверного ответа пользователя программа должна выводить правильный ответ.
Введите число - 1705
Вы ошиблись, Санкт- Петербург был основан в 1703 году
Написать программу проверки знания даты начала второй мировой войны. В случае неверного ответа программа должна выводить правильный ответ.
Написать программу проверки знания истории архитектуры. Программа должна вывести вопрос и три варианта ответа. Пользователь должен выбрать правильный ответ и ввести его номер.
Лабораторная работа 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)
end
end.
ПРИМЕР 2: Подсчитать сумму ряда: s=1-2+3-4+5- ... для заданного числа членов.
П р о г р а м м а
program sum;
var i,n:integer; {счетчик и количество слагаемых}
s:real; {сумма ряда}
begin
writeln('Сколько слагаемых ?');
readln(n);
if n<=0 then
writeln('Плохое n')
else begin
s:=0;
for i:=1 to n do
if odd(i) then {проверка четности номера}
s:=s+i
else
s:=s-i;
writeln('s=',s:10:3);
end;
end.
Упражнения:
Вычислить
Вычислить
Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр.
Напечатать в возрастающем порядке все трехзначные числа, сумма цифр которого равна заданному числу n (n=9)
Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых все одинаковые цифры.
Определить, является ли заданное число совершенным, т.е. равным сумме всех своих (положительных) делителей, кроме самого этого числа (например, число 6- совершенно: 6=1+2+3).
Дано целое n>2. Напечатать все простые числа из диапазона [2,n].
Вычислить
Вычислить
Вычислить
