Задача сложности b

1. В текущем месяце бригада в каждый последующий день работы выпускала на три изделия больше, чем в предыдущий. В первый день было выпущено 42 изделия, что составило 67% дневной нормы. В месяце 26 рабочих дней. Сумеет ли бригада выполнить месячную норму?

2. Приближенно можно считать, что скорость охлаждения горячего чая, налитого в стакан, пропорциональна разности между его температурой и температурой воздуха. За 1 минуту температура чая снижается на 3% от разности этих температур. Составить программу, реализующую эти вычисления и выводящую на экран температуру чая по истечении каждого из N промежутков времени по 1 минуте каждый. Начальная температура воздуха – 20 градусов, начальная температура чая – 100.

3. Вычислить сумму ряда Y = 1! + 2! + 3! + ... n!, для n введённого с клавиатуры.

Задача сложности c

1. Резервуар наполнен 100 л водного раствора, содержащего 5 кг растворенного сахара. Приток воды в сосуд составляет 6 л. в минуту, а расход смеси из сосуда - 5 л. в минуту. Концентрация поддерживается равномерной посредством помешивания. Написать программу, определяющую количество сахара, которое будет содержаться в резервуаре через 10 минут.

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

3. Вычислить и вывести результат, при а=0,1.

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

1. Тест №3.

2.В результате выполнения фрагмента программы на экран должно быть выведено значение . Выберите правильный фрагмент из приведённых ниже. В остальных программах укажите строки, в которых, по вашему мнению, содержится ошибка. Ответ: ________.

var i,n:integer; begin read(n); for i:=1 to 10 do begin n:=n*i; writeln(n); end; end.

var i,n,p:integer; begin read(n); p:=1; for i:=2 to n do p:=p*i; writeln(p); end.

var i,n,p:integer; begin read(n); for i:=2 to n do p:=p*i; writeln(p); end.

var i,n,p:integer; begin read(n); p:=1; for i:=1 to n do begin p:=p*i; writeln(p); end;

Дополнительное задание

1.Дана последовательность из N натуральных чисел определяющих рост учеников в классе. Определить выстроены ли ученики по росту.

2.Чтобы открыть секретный сейф, агент 007 должен в возрастающем порядке набирать все трехзначные числа в записи, которых нет одинаковых цифр. Составить программу, которая бы печатала для агента на экране такие числа, а также определить, сколько и времени потребуется ему для вскрытия сейфа, если на набор одного числа он тратит t секунды.

II.Оператор цикла с предусловием WHILE

Основные понятия

Структура цикла WHILE :

WHILE <условие> DO <оператор>;

Внимание! Проверка условия выполнения тела цикла производится в самом начале оператора.

Задания

Задача сложности A

1. Вычислить сумму натуральных чисел от 1 до 10

2. Определить факториал n!, при n=5

3. Определить идеальный вес для взрослых людей по формуле. Идеальный вес = рост-100. Выход из цикла, если значение роста превысит 250 кг.

Задача сложности B

1.Выведите на экран список квадратов чисел от 1 до 20 (1, 4, 8, 16 …)

2.Вычислить 1!+3!+5!+7!+9!

3.Напишите программу печати таблицы перевода расстояний из дюймов в сантиметры (1д=2,5см.) для значений от 1 до 20 дюйм.

Задача сложности C

1.Выведите на экран в три столбца список чисел от 1 до n , их квадратов и кубов. Число n вводится с клавиатуры. Например

2.Вычислить сумму

3.Программа вывода всех четных чисел в диапазоне от 2-100 включительно.

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

1. Тест №3.