На главную

 

 

Сайт основан 1 марта 2003 года

= Основы алгоритмизации и программирования =


Команда повторения (циклы).
Поиск суммы, произведения, количества.
Практическая работа № 3.2

Цель: научиться составлять программы на поиск суммы, произведения и количества.

Ход работы:

 

Составить программу к задаче:

1.    Даны числа a, n. Найти сумму .

2.    Дано число n. Вычислить .

3.    Даны числа a, n.
Вычислить произведение: a(1-2a)(1-4a)(1-6a)…(1-2na).

4.    Найти сумму и произведение всех цифр заданного целого числа.

5.    Определить количество рабочих дней в первом полугодии работника железной дороги, который работает по графику сутки на работе, двое суток дома, если первый рабочий день выпал на 4 января.

6.    В сказoчной стране Лукоморье все тяжелые грузы перевозят на трехглавых Змеях Горынычах (они имеют бортовые номера от 1 до 100). Однажды грузовым Змеем Горынычем была сбита гражданка Баба Яга. Нарушитель скрылся, но свидетели показали, что бортовой номер Змея кратен его числу голов. Помогите следователю Добрыне Никитичу выявить потенциальных нарушителей и посчитать их количество.

7.    И.А.Хлестакова пригласили управлять департаментом. В первый день ему прислали 1000 курьеров, а в каждый последующий присылали в два раза больше, чем в предыдущий. Он согласился тогда, когда к нему прибыло сразу больше 30000 курьеров. Составить программу, которая ответит на вопрос: "На какой день Хлестаков дал согласие на приглашение?"

8.    Царевна-Лягушка съедает ежедневно на 20% комаров больше, чем в предыдущий день и еще два комара. Написать программу, определяющую через сколько дней общее количество съеденных комаров Царевной превысит 120, если в первый день было съедено 12 комаров.

9.    Начав тренировки спортсмен в первый день пробежал 10 км. Каждый следующий день увеличивал дневную норму на 10% от нормы предыдущего дня. Какой суммарный путь пробежит спортсмен через 10 дней. (Записать задачу двумя способами).

10.         Дано число N. Получить наибольшее число вида 2r, меньшее N, где r = 1, 2, 3, …

11.         Дано действительное число а. Найти среди чисел 1, 1+1/2, 1+1/2+1/3, … первое, большее а, и определить его номер.

Примеры программ.

Задача на нахождение суммы.

Найти сумму квадратов всех чисел от 1 до 50.

 

program z1-v1;

var i:integer; s:real;

begin

s:=0;

for i:=1 to 50 do s:=s+sqr(i);

writeln('сумма=',s:1:0);

end.

 

program z1-v2;

var i:integer; s:real;

begin

s:=0;

i:=1;

while i<=50 do begin

               s:=s+sqr(i);

               i:=i+1;

               end;

writeln('сумма=',s:1:0);

end.

 

 

 

Задача на нахождение произведения.

Найти произведение чисел от 1 до N, т.е. N!- N факториал.

 

program z2;

var i,n:integer; p:real;

begin

writeln('Введите число, факториал которого надо подсчитать');

readln(n);

p:=1;

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

writeln('факториал числа ',n,'!=',p:1:0);

end.

 

 

 

Задача на нахождение количества.

Найти количество цифр в заданном числе.

 

program z3;

var i,c,k:integer;n:longint;

begin

writeln('Введите число');

readln(n);

k:=0;

repeat

 c:=n mod 10;

 n:=n div 10;

 k:=k+1; {ins(k);}

until n=0;

writeln('количество цифр ',k);

end.

Наверх

На главную

 

Дизайн : WWS corporation & ROKI company.