> uses crt;
var a, b, x, z, s, v: real;
begin clrscr;
writeln ('Введи значення x, b ');
Z: = x * x * x * x * x
readln (x, b);
S: = b * x
z: = x * x * x * x * x;
s: = b * x;
V: = z + s
v: = z + s;
A: = v/2;
A: = v/2
writeln ('A =', a);
readln;
end.
(Вводимо значення 2,3)
Відповідь: 1.9
Заданіе15.Определіть час падіння каменя на поверхню землі з висоти h.
В
program as; Блок-схема
uses crt;
var g, t, h: real;
begin clrscr;
writeln ('Введи значення h ');
G: = 9.81
readln (h);
t: = sqrt (2 * h/g);
T: = sqrt (2 * h/g)
writeln ('час падіння = ', t);
readln;
end.
(Вводимо значення 10 м)
Відповідь: 1,4278 з
Програма з ветвлениями
Завдання 1.Дані 2 цілих числа, визначити яке з них більше
Program as; Блок-схема
Uses crt;
Var a, b: integer;
Max: integer;
Begin clrscr;
Writeln ('Введи 2 числа');
Readln (a, b);
Max: = b
Max: = a
If a> b then max: = a else max: = b;
Writeln ('Максимально =', max);
Readln;
End.
(Вводимо значення 5,6)
Відповідь: 6
Завдання 2.Ізвестни сторони трикутника, визначити чи рівні його боку (равноб) або різнобічність.
program as; Блок-схема
В
uses crt;
var a, b, c: integer;
begin clrscr;
writeln ('Введи боку');
readln (a, b, c); p> if (a = b) or (a = c) or (c = b) Так Ні
then writeln ('равноб.') else writeln
('різниць.');
readln;
end.
В
(Вводимо значення 5,5,6)
Відповідь: Равноб. br/>
Завдання 3.Проверіть, чи належить число, введене з клавіатури, інтервалу (-5; 3).
Program as; Блок-схема
Uses crt;
Var a, b, x: integer;
Begin clrscr;
Readln (x);
If (x> = -5) and (x <= 3) then
Writeln ('так') else writeln ('немає');
End.
(Вводимо значення 2)
Відповідь: Належить
В
Завдання 4.Дані 2х зн. число. Визначити чи входить в нього цифра 3
Program as; Блок-схема
Uses crt;
Var a: integer;
Begin clrscr;
Writeln ('Введи 2х зн. число');
Readln (a);
If (a div 10 = 3) or (a mod 10 = 3)
Then writeln ('Входить');
Else writeln ('Не входить');
Readln;
End.
В
(Вводимо значення 53)
Відповідь: Входить
В
Завдання 5. Дано 2х зн. число. Визначити яка з його цифр більше
Program as; Блок-схема
Uses crt;
Var a, d, e, max: integer;
Begin clrscr;
Writeln ('Дано 2х зн. число');
D: = a div 10
E: = a mod 10
Readln (a);
D: = a div 10;
E: = a mod 10;
If d> e then max: = d else max: = e;
Writeln ('Макс =', max);
Readln;
