Выполнить операций умножения и делений над числами с фз.вычислить значение выражения положительных цифры представить в пк,отрицательные в ок или дк. подробное
Вопрос не совсем понятен, какого типа будет результат выполнения условий? В принципе, на Pascal и т.д при присвоении переменной типа (пример: var x:integer;) результат арифметических операций будет такого же типа( пример программы на pascalABC:
program HelloWorld;
var
x:integer;
y:integer;
z:real; //вот если мы тут укажем тип integer то у нас программа выдаст ошибку
begin
x:=5;
y:= 2;
z:= x/y;
writeln(z);
end.
В принципе это все, всегда нужно думать головой на шаг вперед. Вот ответы на поставленные резултаты операций: целый целый R := A + B //целый integer целый целый R := A - B //целый integer целый целый R := A * B //целый integer целый целый R := A / B //вещественный, real целый целый A > B //целый integer целый целый A < B //целый integer вещественный вещественный R := A + B //вещественный real вещественный вещественный R := A - B //вещественный real вещественный вещественный R := A * B //вещественный real вещественный вещественный R := A / B //вещественный real вещественный вещественный A > B //вещественный real вещественный вещественный A < B //вещественный real
У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы): uses Crt; const n = 10; var A: array [1..n] of integer; i: integer; begin ClrScr; Randomize; WriteLn ( ' Massiv I: '); for i:=1 to n do begin A[i] := 1+random(n); Write (A[i]:4); end; WriteLn; WriteLn ( ' Massiv II: '); for i:=1 to n do begin if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i]; Write (A[i]:4); end; ReadLn; end.
![Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1](/tpl/images/0478/1593/db195.jpg)
![Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1](/tpl/images/0478/1593/0a7c0.jpg)
В принципе, на Pascal и т.д при присвоении переменной типа (пример: var x:integer;) результат арифметических операций будет такого же типа(
пример программы на pascalABC:
program HelloWorld;
var
x:integer;
y:integer;
z:real; //вот если мы тут укажем тип integer то у нас программа выдаст ошибку
begin
x:=5;
y:= 2;
z:= x/y;
writeln(z);
end.
В принципе это все, всегда нужно думать головой на шаг вперед. Вот ответы на поставленные резултаты операций:
целый целый R := A + B //целый integer
целый целый R := A - B //целый integer
целый целый R := A * B //целый integer
целый целый R := A / B //вещественный, real
целый целый A > B //целый integer
целый целый A < B //целый integer
вещественный вещественный R := A + B //вещественный real
вещественный вещественный R := A - B //вещественный real
вещественный вещественный R := A * B //вещественный real
вещественный вещественный R := A / B //вещественный real
вещественный вещественный A > B //вещественный real
вещественный вещественный A < B //вещественный real