// PascalABC.NET 3.3, сборка 1547 от 07.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var x:=ArrRandom(ReadInteger('Число элементов массива х:'),-99,99); x.Println; var a:=x.Where(p->p>0).Sum; var y:=ArrRandom(ReadInteger('Число элементов массива y:'),-99,99); y.Println; var b:=y.Where(p->p>0).Sum; var t:=ArrRandom(ReadInteger('Число элементов массива t:'),-99,99); t.Println; var c:=t.Where(p->p>0).Sum; Writeln('Z=',Ln(a)+Power(Cos(b),3)+c) end.
Пример Число элементов массива х: 8 56 59 24 -5 -13 -24 9 -86 Число элементов массива y: 11 0 6 25 -69 86 34 -92 72 -39 -64 96 Число элементов массива t: 6 -54 24 -15 50 0 19 Z=97.999309110524
В цифровых вычислительных машинах наименьшим информационной величиной является бит, который вследствие применения двоичной системы счисления объединяется в байт (8 бит), в килобайт, мегабайт и т.д по принципу кратности степени числа с основанием 2. до широкого распространения цифровых ЭВМ существовали еще и аналоговые вычислительные машины, в которой каждому мгновенному значению переменной величины, участвующей в исходных соотношениях, ставится в соответствие мгновенное значение другой (машинной) величины, часто отличающейся от исходной физической природой и масштабным коэффициентом, понятия бита в тот момент не использовалось.
1. Program tt; var A,B,C,D: Real; begin Writeln ('Введите массу воды в граммах.'); Readln(A); Writeln ('Введите массу соли в граммах.'); Readln(B); D := B+A; C := B/A; Writeln ('Массовая доля соли в раствворе - ',C,'.'); End. 2. Program tt; var A,B,PL,Per: Real; begin Writeln ('Введите длинну первого катета.'); Readln(A); Writeln ('Введите длинну второго катета.'); Readln(B); PL := (B*A)/2; PER := sqrt(B*B+A*A)+A+B; Writeln ('Площадь - ',PL,'.'); Writeln ('Периметр - ',PER,'.'); End.
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ArrRandom(ReadInteger('Число элементов массива х:'),-99,99);
x.Println; var a:=x.Where(p->p>0).Sum;
var y:=ArrRandom(ReadInteger('Число элементов массива y:'),-99,99);
y.Println; var b:=y.Where(p->p>0).Sum;
var t:=ArrRandom(ReadInteger('Число элементов массива t:'),-99,99);
t.Println; var c:=t.Where(p->p>0).Sum;
Writeln('Z=',Ln(a)+Power(Cos(b),3)+c)
end.
Пример
Число элементов массива х: 8
56 59 24 -5 -13 -24 9 -86
Число элементов массива y: 11
0 6 25 -69 86 34 -92 72 -39 -64 96
Число элементов массива t: 6
-54 24 -15 50 0 19
Z=97.999309110524