Tipo - Learn · Pascal · Типо Лерн · Урок 4

Perfect vision for programming

> Урок 1 > Урок 2 > Урок 3 > Урок 4 (Вы здесь) > Урок 5 >
Логические выражения. Математические Ф-ии. Выражения отношения
Математические функции ЗАДАЧА: Вычислить косинус угла, если известны два угла треугольника (45 и 60 градусов) uses crt; var a,b,c:integer; BEGIN a:=45; b:=60; c:=180-a-b; writeln('Косинус угла ',c,' = ',cos(c)); END.
ЗАДАЧА: Вычислить корни квадратного уравнения ax^2+bx+c=0. uses crt; var a,b,c,D,x1,x2:real; BEGIN writeln('ax^2+bx-c=0'); writeln('Введите a,b è c'); readln(a,b,c); D:=bb-4ac; writeln('Дискриминант квадратного уравнения = ',D); x1:=-b+sqrt(D)/2a; x2:=-b-sqrt(D)/2*a; writeln('1-й корень = ',x1); writeln('2-й корень = ',x2); END.
ЗАДАЧА: Посчитать сумму квадратов 3 вещественных чисел, и округлить его до ближайшего целого числа. uses crt; var a,b,c,sum:real; BEGIN writeln('Введите a,b и c'); readln(a); readln(b); readln(c); sum:=sqr(a)+sqr(b)+sqr(c); writeln('Сумма квадратов = ',sum); writeln('Число после округления = ',round(sum)); END.

Letyshops [lifetime]

2018-2020, Илья Любимов.

Автор - Tipo_4ek

По коммерческим предложениям - e-mail