Тема 2. Вирази

Вирази

Розглянемо такі типи виразів:

1.      Дійсні

Ввести значення двох дійсних змінних. Обчислити їхню суму та різницю.

program  Examp1;

var a,b,s,r :real;

begin   writeln('введіть два дійсні числа'); read(a,b);

           s:= a + b;  r:= a - b; 

           writeln('результати s=', s, ' r=', r:5:2);     {на число r виділяється 5 позицій,

                                                                                                                    з них 2 - на дробову частину}

end.

Ввести значення довжини  кола L. Обчислити радіус цього кола і площу круга, обмеженого цим колом.

program  Examp2;

var L,s,r :real;

begin         

      writeln('введіть довжину кола');  read(l);

       r:=l/(2*pi);     {знаходження радіуса, використано стандартну функцію pi}

       s:=pi*sqr(r); {знаходження площі}

      writeln(‘коло довжини ‘, l ,’ має радіус ’, r ,’ та площу ’, s)

end.

2.      Цілочислові

Знайти суму цифр двоцифрового числа.

program  Examp1;

var c,c1,c2,s: integer;

begin          writeln(' введіть ціле двоцифрове число'); read(c);

      c1:= c div 10;                      {знаходження  першої цифри}

      c2:= c mod 10;                 {знаходження другої цифри}

      s:= c1 + c2;                         {обчислення суми цифр}

      writeln('сума цифр числа ', c, '  дорівнює  ',s);

end.

3.      Логічні

Логічній змінній t присвоїти значення true , якщо цілочислова величина k ділиться без остачі на 7 і false у протилежному випадку. Вивести значення t.

program  log1;

var k: integer; t: boolean;

begin

      writeln('введіть ціле число');  read(k);

      t:= k mod 7 = 0;  writeln('t=',t)

end.

Надрукувати true, якщо x належить проміжку (a,b) і false - у протилежному випадку.

program  log2;

var a,b,x: real;  t: boolean;

begin

    writeln('введіть проміжок (a,b)');  read(a,b);

    writeln('введіть дійсне число');  read(x);

    t:= (x>a) and (x<b);  writeln('t=',t)

end.

Гуржій, Карташова, Лапінський, Руденко  “Інформатика, 8 клас ”                                     ст. 240-254

Караванова “Інформатика. Основи алгоритмізації та програмування. 777 задач”     ст.37-42, 57-58

Д/з :

Дійсні вирази : № 50, 51, 54, 78 (а, б)    

(Караванова “Інформатика. Основи алгоритмізації та програмування. 777 задач”   ст. 54 )

Цілочислові вирази :

1.      Знайти суму крайніх цифр введеного трицифрового числа.

2.      Знайти останню цифру цілої частини та другу цифру дробової частини введеного дійсного числа.

Логічні вирази : № 82