// PascalABC.NET // Даны катеты прямоугольного треугольника. // Найти его гипотенузу и периметр.
var a, b : real;
begin write('Введите длину катета а: '); readln(a); write('Введите длину катета b: '); readln(b); var c := sqrt( sqr(a) + sqr(b) ); var p := a + b + c; writeln('Длина гипотенузы равна ', c); writeln('Периметр треугольника равен ', p) end.
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Матрица А ***'); var a:=MatrRandom(4,7,-50,50); a.Println(4); Writeln('*** Матрица B ***'); var b:=MatrRandom(4,7,-50,50); b.Println(4); Writeln(4*a.ColCount*'-'); Writeln('*** Матрица А-B ***'); for var i:=0 to 3 do begin for var j:=0 to 6 do Write(a[i,j]-b[i,j]:4); Writeln end; end.
Pascalabc.net var a: array[1..10000] of integer; kz,maxp,n,i,j: integer; begin i: =0; maxp: =integer.minvalue; writeln ('готов к приему чисел'); repeat i: =i+1; readln (a[i]); until a[i]=0; n: =i-1; readln (kz); for i: =1 to n-1 do for j: =2 to n do if maxp< (a[i]*a[j]) then maxp: =(a[i]*a[j]); writeln ('получено ',n,' чисел'); writeln; writeln ('полученное контрольное значение: ',kz); writeln; writeln ('вычисленное контрольное значение: ',maxp); writeln; if kz=maxp then writeln ('контроль пройден') else writeln ('контроль не пройден'); end. результаты: 1) готов к приему чисел 1 2 3 4 5 0 20 получено 5 чисел полученное контрольное значение: 20 вычисленное контрольное значение: 20 контроль пройден 2) готов к приему чисел 1 2 3 4 5 6 0 20 получено 6 чисел полученное контрольное значение: 20 вычисленное контрольное значение: 30 контроль не пройден
// Даны катеты прямоугольного треугольника.
// Найти его гипотенузу и периметр.
var
a, b : real;
begin
write('Введите длину катета а: ');
readln(a);
write('Введите длину катета b: ');
readln(b);
var c := sqrt( sqr(a) + sqr(b) );
var p := a + b + c;
writeln('Длина гипотенузы равна ', c);
writeln('Периметр треугольника равен ', p)
end.