Вирази
Гуржій, Карташова,
Лапінський, Руденко “Інформатика, 8 клас ” ст.
240-254
Караванова “Інформатика. Основи
алгоритмізації та програмування. 777 задач” ст.37-42,
57-58
Розглянемо такі
типи виразів:
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.
Д/з №1
1. Задано довжини двох катетів прямокутного трикутника. Обчислити довжину
гіпотенузи, периметр та площу трикутника.
2. Ввести довжину кола L. Обчислити радіус цього кола і площу круга,
обмеженого цим колом.
4. За радіусом кола визначити площу квадрата,
вписаного у нього.
5. Задано сторону квадрата. Визначити довжину кола, вписаного у цей
квадрат.
6. Задано периметр
прямокутника. Знайти його сторони, якщо
а) одна зі сторін
на 5 см більша іншої; б) одна зі
сторін у 3 рази більша іншої.
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.
Д/з №2
1.
Знайти суму першої та останньої цифр заданого
трицифрового числа.
2.
Знайти суму двох перших та добуток двох
останніх цифр заданого чотирицифрового числа.
3.
Знайти а) першу цифру дробової частини та передостанню цифру цілої
частини дійсного числа х.
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.
Д/з №3
1. Надрукувати true, якщо x належить відрізку (2,10) і false у
протилежному випадку.
2. Надрукувати true, якщо x належить
відрізку [-3,5] або [10,20] і false у протилежному випадку.
3. Надрукувати true, якщо t лежить зовні відрізка [-1,1] і false у протилежному.
4. Використовуючи
логічний оператор присвоєння, змінній t присвоїти значення true, якщо цілі
числа x, y, z
а) рівні між собою;
б) не рівні;
в)
тільки два рівні між собою.
