program
ugl; uses
crt; const pi=3.14;
var a, b, c, p, t : real;
alfa,
beta,
gamma
: integer; begin clrscr;
gotoxy(5,10);
write
(‘Ввести сторони треугольника:’);
readln
(a,
b,
c); p:=(sqr
(a)+sqr (b)-sqr (c))/(2*a*b); gamma:=round
(arctan (sqrt (1-sqr (p))/p)*180/pi); t:=
(sqr (c)+sqr (b)-sqr (a))/(2*c*b); alfa:=round
(arctan (sqrt (1-sqr (t))/t)*180/pi); beta:=180-gamma-alfa;
gotoxy(5,17); writeln(’Углы
треугольника:’); writeln
(’alfa=’:10,alfa:4, ’beta=’:10,beta:4, ’gamma=’:10,gamma:4); end.
Програма мовою Turbo Pascal
Приклад 2. Для будь-якого 3-хзначного числа визначити суму цифр, що входять до його складу.
Математична модель: Розглянемо число 358. Сума цифр, що входять до його складу буде 3+5+8 = 16. Але в комп’ютері треба якимсь чином в окремі комірки виділити значення кожної цифри. На мові Turbo Pascal існують крім звичайних математичних операцій ще операції : поділити націло число k на n – k div n , визначити залишок від цілочисельного ділення k на n – k mod n . За допомогою цих команд не складно виділити
цифру, що визначає кількість сотень в числі – як результат цілочисельного ділення всього числа на 100;
цифру, що визначає кількість одиниць в числі - як залишок цілочисельного ділення всього числа на 10;
кількість десятків можна визначити як послідовність 2-х операцій: визначити результат цілочисельного ділення всього числа на 10, а потім визначити залишок від цілочисельного ділення результату ще на 10.
program
cyfry;
uses crt;
var a, b,
c, n, summa : integer; begin
clrscr;
gotoxy(5,10);
write
(‘Ввести
целое 3-хзначное число:’);
readln (n);
a:= n div
100; b:= (n div 10) mod 10; c:= n mod 10;
summa:=
a+b+c;
gotoxy(5,17);
writeln(’Сумма
цифр =’,
summa); end.
Приклад 3. Для будь-яких 3-х цілих чисел, визначених користувачем, скласти та визначити значення логічних виразів, що перевіряють умови:
чи всі числа мають однакові знаки;
чи є серед них рівні за значенням;
чи тільки одне з чисел дорівнює 0.
program
logic;
uses crt;
var a, b, c: integer; x, y, z : boolean; begin
clrscr;
gotoxy(5,10);
write
(‘Ввести
3
целых
числа:’);
readln (a, b, c);
x:=
(a*b>0) and (a*c>0);
y:= (a=b) or (a=c) or (b=c);
z:= ((a=0)
and (b*c<>0)) or ((b=0) and (a*c<>0)) or ((c=0) and
(a*b<>0));
writeln(’Все
числа имеют одинаковый знак: ’, x);
writeln(’Среди
чисел есть равные: ’, y);
writeln(’Только
одно из чисел равно 0:
’, z); end.
Для самостійної роботи:
Завдання1. Скласти алгоритм та програму розрахунків:
Маємо квадратичну функцію: y = ax2+bx+c. Розрахувати координати вершини параболи. ( x0=-b/2a; y0= ax02+bx0+c)
Маємо 2-значне ціле число. Визначити суму цифр, що входять до складу числа.
Маємо 2 сторони трикутника a і b та кут між ними γ (в градусах). Визначити довжину 3-ї сторони та периметр трикутника. (
;
P=a+b+c)Відомий розмір файла-архіва – F Мб, коефіцієнт стиснення інформації – k (%). Визначити початковий розмір інформації та розмір дискової пам’яті, що звільниться після архівації. (P=F∙100/k; D=P-F )
Початкова сума на рахунку користувача – N грн.. Якщо користувач зніме суму в М грн., то яка сума залишиться на рахунку, якщо банкомат зніме ще й 3% від знятої суми та 15 коп. за чек.
Функція y=x/sin x визначена на інтервалі [a,b]. Для будь-якого випадкового дійсного числа в цьому інтервалі знайти відповідне значення функції. Надрукувати значення аргументу і функції.
Малюнок має розмір MxN пікселів. Визначити, скільки мегобайтів займе відповідний файл, якщо кожен піксель має 24-розрядний код.
З прямокутного листа паперу (MxN см ) вирізали круг радіуса R. Визначити площу фігури, що залишилась. (Sпр= M∙N; Sкр=πR2 )
Відома вага соляного розчину – Р та його концентрація – k (%). В розчин влили N води. Визначити його нову концентрацію. (C=k∙P/100%; k=c∙100% /(P+N) )
Завдання 2. Скласти логічний вираз та перевірити його значення для різних комплектів початкових даних: початкові дані – a, b, c, d – цілі числа, визначені користувачем.
Між ними є рівні за значенням;
d – найменше серед них;
всі вони мають додатні значення;
серед них є числа кратні 3;