Программирование алгоритмов разветвляющейся структуры
Выполнить следующие задания: 1. Определить площадь треугольникаобразованного тремя отрезками известной длины. При решенииданной задачи воспользоваться формулой Герона расчета площади треугольника, а также учесть возможность построения треугольника. Program Ploshad; var a,b,c,p,s:real; begin write(‘a=’); readln(a); write(‘b=’); readln(b); write(‘c=’); readln(c); if (a+b>c) and (a+c>b) and (b+c>a) then begin p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln(‘s=’,s:6:3); end else writeln(‘treygolnik ne postroiti’); readln; end.
2. Найти сумму квадратов двух натуральніх чисел от 1 до 100. Program Ex1; Var A:Integer; S:Longint; Begin A:=1; S:=0; While a<=100 Do Begin S:=S+A*A; A:=A+1; End; Writeln(S); Readln; End.
1. Составить программу нахождения большего из трех чисел a, b, c. Program Bolshee; var a,b,c:real; Begin Write('a='); Readln(a); Write('b='); Readln(b); Write('c='); Readln(c); if(a>b) and (a>c) then writeln('a - naibolshee'); if(b>a) and (b>c) then writeln('b-naibolshee'); if(c>b) and (c>a) then writeln('c - naibolshee'); readln; End.
3. Составить программу решения линейного уравнения с одной переменной вида ax=b, где a и b — некоторые числа, а x — переменная. Program Uravnenie; var a,b,x:real; begin write(‘a=’); realln(a); write(‘b=’); realln(b); x:=b/a; writeln(‘x=’,x:4:3); readln(x); end.
|
