М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
gizut
gizut
11.03.2023 15:55 •  Информатика

2 Какие значения нужно запоминать при вычислении значения выражения
(12 + 34)·(56 + 78)?
Сколько ячеек памяти для этого потребуется?

👇
Открыть все ответы
Ответ:
FisicAnya
FisicAnya
11.03.2023

program osi;

uses crt;

const

 GREEN = 2;

 BLUE = 1;

 CYAN = 3;

 WHITE = 7;

 MAX_X = 120;

 MAX_Y = 30;

 PI = 3.1415926;

 MX2 = MAX_X div 2;

 MY2 = MAX_Y div 2;

procedure out(x,y: integer; s:char);

begin

 if (x+MX2>-1) and (x+MX2<MAX_X+1) then

   if (MAX_Y-(y+MY2)>0) and (MAX_Y-(y+MY2)<MAX_Y+1) then begin

     gotoxy(x+MX2, MAX_Y-(y+MY2));

     write(s);

   end;

end;

{----------------------------------------------------------------}

{Основная программа}

var

 i, y :integer;

begin

 textcolor(WHITE);

 for var x := -MX2 to MX2 do

   out(x, 0, '-');

 

 for y := -MY2 to MY2 do

   out(0, y, '!');

 out(-1, 14, '/');

 out(1, 14, '\');

 out(60, 0, '>');

{Рисуем прямую y = x}

 textcolor(GREEN);

 for var x:=-MY2 to MY2 do

   out(x, x, '*');

 

{Рисуем график y=x^2}

 textcolor(BLUE);

 for var x := -MY2 to MY2 do begin

   y:=x*x;

   out(x, y, '*');

 end;

 

 

{Рисуем график y=x*sin(30)}

 textcolor(CYAN);

 for var x := -MX2 to MX2 do begin

   y := round(x * sin(PI / 6));

   out(x, y, '*');

 end;

 

 

 

 read(i);

end.

Результат:


программа осей:program osi; uses crt; var i:integer; begin gotoxy(1,12); for i:=1 to 79 do begin wr
4,7(48 оценок)
Ответ:
lycena
lycena
11.03.2023
Program task1;
const  n = 30;
var  a :array [1..n] of integer; 
 i, p :integer; 
pr :real;
begin
 randomize; 
 for i:= 1 to n do   
a[i]:= random(33)-7; 
p:= 1;  for i:= 1 to n do   
if a[i] > 0 then     
p:= p * a[i]; 
pr:= p/2; 
writeln(pr);
end.

program task2;
const  n = 30;
var  a: array [1..n] of integer; 
i, sum, max, min: integer; 
sr: real;
begin
randomize; 
for i := 1 to n do   
a[i] := random(33) - 7;   
sum:= 0; 
 for i := 1 to n do   
if a[i] >= 0 then     
sum:= sum + sqr(a[i]); 
min:= a[1];  max:= a[1]; 
for i := 1 to n do  begin   
if a[i] > max then max:= a[i];   
if a[i] < min then min:= a[i]; 
end; 
sr:= (max + min)/2; 
writeln('Сумма кадратов: ',sum); 
writeln('Среднее арифметическое: ',sr);  
end.
4,8(45 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ