Нужно придумать в паскале abc свою с функций abc(x),sqr(x),sqrt(x),round(x),frac(x),int(x),random,random(x).в должно быть хотя бы 2 функции из этих,. )
Составить программу, которая заполняет одномерный массив случайными числами из интервала [-50:50] и выводит на экран только те элементы массива, квадратный корень из модуля которых больше пяти
uses crt; const n=5; var a:array[1..n] of integer; i:integer; begin randomize; for i:=1 to n do begin a[i]:=random(100)-50; writeln(a[i]); end; writeln; for i:=1 to n do if (sqrt(abs(a[i]))>5) then writeln(a[i]); end.
// исходный массив int mas[10] = {21,13,52,43,9,18,27,34,28,56}; int i = 0; // счетчик int index_min; // переменна для хранения индекса минимального элемента в массиве int min = mas[0]; // сначала принимаем 1ый элемент как минимальный while (i < 10) { // проходим по всему массиву if (mas[i] < min) { // если текущий элемент меньше минимального min = mas[i]; // делаем его минимальным index_min = i; // запоминаем его индекс } i++; // увеличиваем счетчик } printf("Min = %d ", mas[index_min]); // выводим минимальный элемент int Sum = 0; // переменная для подсчета суммы i = index_min+1; // индес следующего элемента - правее за минимальным while (i < 10) { // пробегаем по массиву от следующего за минимальным до конца Sum += mas[i]; // суммируем i++; // увеличиваем счетчик } printf("Sum = %d ", Sum); // выводим результат суммы
1. При использовании палитры из 2^24 цветов для хранения цвета 1 пикселя используется 24 бита = 3 байта. Пусть количество пикселей в рисунке K, тогда объем памяти, занимаемой одним рисунком = (K*3)/1024 + 128 Кбайт. X = 8*(K*3/1024 + 128)+2.5*1024 2. При использовании палитры из 2^16 цветов для хранения цвета 1 пикселя используется 16 бита = 2 байта. Объем памяти, занимаемой одним рисунком = (K*2)/1024 + 128 Кбайт. X = 20*(K*2/1024 + 128) 8*(K*3/1024 + 128)+2.5*1024 = 20*(K*2/1024 + 128) К = 65536 (количество пикселей в рисунке) X = 20*(K*2/1024 + 128) = 20*(65536*2/1024 + 128) Кбайт = 20*(128 + 128) Кбайт = 5120 Кбайт = 5120/1024 Мбайт = 5 Мбайт
uses crt;
const n=5;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100)-50;
writeln(a[i]);
end;
writeln;
for i:=1 to n do
if (sqrt(abs(a[i]))>5) then writeln(a[i]);
end.