Оператори циклу “до” і “доки”. Частина 2 - Інформатика - Уроки, реферати, виховні роботи та багато іншого - Обмін досвідом


Форма входу

Вітаю Вас Гість!

Пошук

чат

200

Наше опитування

Чи потрібне зовнішнє оцінювання
Усього відповідей: 235

Статистика


Усього онлайн: 1
Гостей: 1
Користувачів: 0
Головна » Стаття » Інформатика

Оператори циклу “до” і “доки”. Частина 2

Задача 3. Напишіть програму для обчислення добутку усіх чисел від 1 до 100 кратних 3, але не кратних 6.

program zadaha3;

var d,i: integer;

begin

  d:=1;

  for i:=1 to 100 do

      if ((i mod 3)=0) and ((i mod 6)<>0) then d:=d*i;

  writeln ('Добуток =', d);

end.

 

Задача 4. Напишіть програму для обчислення суми усіх простих чисел з проміжку від 1 до 100.

program zadaha4;

var s,i,j: integer;

    f: boolean;

begin

  s:=1;

  for i:=2 to 100 do

   begin

    f:=true;

    for j:=2 to i-1 do

        if (i mod j)=0 then f:=false;

    if f then s:=s+i;

   end;

  writeln('Сума =',s);

end.

 

Задача 5. Написати програму для введення таблиці співвідношень температур по Цельсію і Фаренгейту ( tf=9/5*tc+32 ). 

program zadaha5;

var i,Celsius, Fahrenheit: word;

begin

  writeln(' Таблиця співвідношень між температурними шкалами ');

 writeln(' Цельсія і Фаренгейта ');

 writeln; 

  for i:=0 to 20 do

   begin

         Celsius:= 5*i;

          Fahrenheit:=  32 + Celsius *9 div 5;

         writeln('С= ', Celsius);

         writeln(' F= ', Fahrenheit);

         writeln;

   end;

end.

 

Задача 6. Напишіть програму для обчислення добутку усіх чисел від 2 до 500 кратних 2, але не кратних 4.

program zadaha6;

var d,i: integer;

begin

  d:=1;

  for i:=2 to 500 do

      if ((i mod 2)=0) and ((i mod 4)<>0) then d:=d*i;

  writeln ('Добуток =', d);

end.

 

V. Домашнє завдання.

Вивчити пункт 2.6 за підручником Верлань Апатова “Інформатика 10-11” і розв’язати наступні задачі.

Задача 1. Напишіть програму для обчислення суми .

program zadaha2;

var i, n: word;

       t, add, suma: real;

  begin

writeln (' Введіть кількість доданків n =');

readln (n);

suma:= 0;

for i:=n downto 1 do

begin

t:=1.0/i;

add:= Sqr (t);

suma:= suma + add;

end

writeln (' Сума 1/i^2 від і=1 до', n);

writeln (' S= ', suma);

  end.

 

Задача 2. Напишіть програму для обчислення добутку:

(х-1)(х-2)(х-3)…(х-n)

program dobutok;

var x,n,d,i:integer;

begin

writeln ('Введіть кількість елементів');

readln (n);

writeln ('Введіть перший елемент');

readln (x);

i:=1; d:=1;

while i<=n do

begin

d:=d*(x-i);

i:=i+1;

end;

writeln ('Добуток рівний =',d)

end.

 

VI. Підсумок уроку.

Ви сьогодні дуже гарно працювали, тому і отримаєте гарні оцінки. Можливо виникли якісь запитання до мене? (якщо є запитання, то відповідаю на них).

Урок закінчено.

До побачення.

Категорія: Інформатика | Додав: stdynzosh (23.03.2009) | Автор: Олександр
Переглядів: 539 | Рейтинг: 0.0/0
Усього коментарів: 0
Додавати коментарі можеть тільки зареєстровані користувачі.
[ Реєстрація | Вхід ]