АЛГОРИТМИ ТА ПРОГРАМИ ПРАКТИЧНА РОБОТА № 6
«Проекти з вкладеними циклами та розгалуженнями»
Увага! Під час роботи з комп'ютером дотримуйтеся вимог безпеки
життєдіяльності та санітарно-гігієнічних норм.
1. Відкрийте середовище Scratch 2.
2. Складіть проект, у якому виконавець 4 рази зіграє деяку мело-
дію, якщо буде натиснуто клавішу пропуск, або переміститься
на 100 кроків униз, якщо буде натиснуто клавішу стрілка вниз.
3. Збережіть проект у вашій папці у файлі з іменем практична 6_1.
4. Складіть проект, у якому виконавець, поки до нього не дотор-
кнеться миша, буде повторювати такі дії: рухатися вправо, якщо
буде натиснуто клавішу стрілка вправо, або рухатися вліво,
якщо буде натиснуто клавішу стрілка вліво.
5. Збережіть проект у вашій папці у файлі з іменем практична 6_2.
6. Закрийте середовище Scratch 2.
//c циклом for
var s,i:integer;
begin
for i:=100 to 999 do
if i mod 77 = 0 then s:=s+i;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Тестовое решение:
Сумма трехзначных кратных 77: 5929
// с циклом while
var s,i:integer;
begin
i:=100;
while i<=999 do begin
if i mod 77 = 0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма трехзначных кратных 77: ',s);
end.
исходный код на языке программирования pascal
const n = 10;
var
a: array[1..n] of integer;
i: byte;
avrg: real;
sum: integer;
begin
randomize;
for i: =1 to n do a[i]: =random(50)+1;
sum : = 0;
for i: =1 to n do sum : = sum + a[i];
avrg : = sum/n;
// весь массив
for i: =1 to n do write(a[i]: 3);
writeln;
writeln('среднее арифм.: ',avrg: 4: 2);
// больше avrg
for i: =1 to n do if a[i]< avrg then write(a[i]: 3);
writeln;
end.
пример(ы) выполнения программы на языке pascal
13 23 45 2 9 28 47 30 18 12
среднее арифм.: 22.70
13 2 9 18 12