Линейная структура на языке <u>Pascal</u>
Нахождение расстояния
var V,S,t:real;
begin
readln(V,t);
S:=V*t;
writeln(S);
end.
Ветвление
var a,b:integer;
begin
readln(a,b);
if (a>b) then writeln('+++') else
writeln('---');
readln;
end.
Цикл
var i:integer;
begin
for i:=1 to 5 do writeln(i);
readln;
end.
Высоту можно определить по известной формуле (если проблемы с этим - см. Интернет или задайте вопрос в Геометрии, чтобы формулу вывели):
, где a,b - катеты
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a,b:real;
Write('Введите катеты через пробел: '); Read(a,b);
Writeln('h=',a*b/sqrt(a*a+b*b))
end.
Исходный файл предоставлен в расширении .cpp, измените на .c
#include <stdio.h>
long int NOD(long int var1, long int var2)
{
while(var1 != var2)
{
if(var1 > var2)
var1 = var1 - var2;
else var2 = var2 - var1;
}
return var1;
}
long int NOK(long int var1, long int var2)
{
return var1 * var2 / NOD(var1, var2);
}
int main(void)
{
long int var1, var2;
scanf("%ld%ld", &var1, &var2);
printf("НОК(%ld, %ld) = %ld\n", var1, var2, NOK(var1, var2));
}
Сумма от i=1 до n
выражения (X i-ое / (1 + модуль Y i-ое ))
Вот как расшифровывается знак суммы:
(X1/(1+|Y1|)) + (X2/(1+|Y2|))+ ... (Xn/(1+|Yn|))
А знак модуля возвращает абсолютную величину числа, то есть если число положительное возвращает само число, если оно отрицательное - возвращает его без знака минус.
|Yn|=|-Yn| >=0
|5| = 5
|-5| = 5