1. Даны переменные a, b, c. Найти их сумму и произведение.
2. Перевести 340 грамм в миллиграммы, килограммы, центнеры, тонны.
3. Найти количество метров, дециметров, сантиметров, миллиметров в 14,5 км.
4. Найти площадь прямоугольника со сторонами a, b.
5. Найти площадь круга с радиусом R.
6. Найти площадь круга, если длина окружности l = 25 см.
7. Найти площадь треугольника, при a=5, b=10, если a,b - стороны треугольника.
8. Найти высоту равнобедренного треугольника, стороны треугольника вводятся пользователем.
9. Даны длина, ширина, высота короба. Найти его объем. Значения вводятся пользователем.
10. Даны катет и гипотенуза прямоугольного треугольника, вычислить длину второго катета.
11. Дано уравнение ах2+bх+с=0. Найти корни уравнения, значения коэффициентов a,b,c - вводятся пользователем.
12. Найти радиус r вписанной и радиус R описанной окружностей для равнобедренного треугольника с основанием 10 см и боковой стороной 13 см.
(1) Блок, характеризующий начало/конец алгоритма (для подпрограмм – вызов/возврат); (2) Блок - процесс, предназначенный для описания отдельных действий; (3) Блок - предопределенный процесс, предназначенный для обращения к вс алгоритмам (подпрограммам); (4) Блок - ввода/вывода с неопределенного носителя; (5) Блок - ввод с клавиатуры; (6) Блок - вывод на монитор; (7) Блок - вывод на печатающее устройство; (8) Блок – решение (проверка условия или условный блок); (9) Блок, описывающий блок с параметром; (10) Блок – границы цикла, описывающий циклические процессы типа: «цикл с предусловием», «цикл с постусловием»;
Const n=10; type ar=array[1..n+1] of integer; var a:ar; i,p:integer; procedure pr(var a:ar; p:integer; var k:integer); begin k:=1; while a[k]<>p do k:=k+1; end; begin Randomize; writeln('Массив A:'); for i:=1 to n do begin a[i]:=random(31); write(a[i]:4); end; writeln; p:=17; a[n+1]:=p; pr(a,p,i); if i<n then writeln('Значение 17 найдено, номер элемента = ',i) else writeln('Значения 17 в массиве нет'); end.
Пример: Массив A: 14 5 7 17 25 15 28 0 24 0 Значение 17 найдено, номер элемента = 4
type ar=array[1..n+1] of integer;
var
a:ar; i,p:integer;
procedure pr(var a:ar; p:integer; var k:integer);
begin
k:=1;
while a[k]<>p do k:=k+1;
end;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(31);
write(a[i]:4);
end;
writeln;
p:=17;
a[n+1]:=p;
pr(a,p,i);
if i<n
then writeln('Значение 17 найдено, номер элемента = ',i)
else writeln('Значения 17 в массиве нет');
end.
Пример:
Массив A:
14 5 7 17 25 15 28 0 24 0
Значение 17 найдено, номер элемента = 4
таблица истинности:
X Y Z X+¬Y Z⇒(X+¬Y) ¬X F
0 0 0 1 1 1 1
0 0 1 1 1 1 1
0 1 0 0 1 1 1
0 1 1 0 0 1 1
1 0 0 1 1 0 1
1 0 1 1 1 0 1
1 1 0 1 1 0 1
1 1 1 1 1 0 1
F =1 тождественно истинна ,
так как её значения равны 1 при любых X,Y,Z