Структура розгалуження. Частина 3. - Інформатика - Уроки, реферати, виховні роботи та багато іншого - Обмін досвідом


Форма входу

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

Пошук

чат

200

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

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

Статистика


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

Структура розгалуження. Частина 3.

IV. Розв’язування задач.

Задача 1 (7).

Присвоїти z значення більшого з чисел x i y у тому разі, якщо x<0, і меншого, якщо x>=0.

program Zadacha1;

var x,y,a:integer;

begin

  writeln('Введіть числа x,y');

  readln(x,y);

  if (x<0) then if x>y then z:=x

                       else z:=y

           else if x>y then z:=y

                       else z:=x;

  writeln('Значення z=',z);

end.

Задача 2 (9).

Присвоїти змінній а значення найбільшого з трьох заданих чисел.

program Zadacha2;

var x,y,z,a:integer;

begin

  writeln('Введіть числа x,y,z');

  readln(x,y,z);

  if x>y then if x>z then a:=x

                             else a:=z

           else if z>y then a:=z

                              else a:=y;

  writeln('Значення z=',a);

end.

 

 

Задача 3 (14).

Знайти розв’язок рівняння ax2+b=0, якщо він існує.

program Zadacha3;

var x,b,a:real;

begin

  writeln('Введіть числа a,b');

  readln(a,b);

  if (-b/a)<0 then writeln(‘Розв’язок рівняння =, sqrt(-b/a))                     

else writeln(‘Розв’язків немає’);

end.

 

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

Вивчити пункт 2.5 Умовний оператор з книжки, сторінки 124-129.

Задача 4 (11).

Перевірити чи є серед трьох заданих чисел рівні.

program Zadacha4;

var с,b,a:real;

begin

  writeln('Введіть числа a,b,c');

  readln(a,b,c);

  if (a=b) or (b=c) or (a=c) then writeln(‘Є рівні числа’)                     

 else writeln(‘Немає рівних чисел’);

end.

 

 

 

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

                  Отже, на сьогоднішньому уроці ми з вами розглянули умовний оператор, логічні операції, а також навчилися розв’язувати задачі з їх використанням.

Якщо до мене немає ніяких запитань, то урок закінчено.

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

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