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

Написать процедуру которая складывает два любых числа (два параметра) на паскале

👇
Ответ:
troll28
troll28
09.06.2021
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

procedure Sum2(a,b:real; var r:real);
begin
  r:=a+b
end;

begin
  var a,b,c:real;
  (a,b):=ReadReal2('Введите два числа');
  Sum2(a,b,c);
  Writeln('Их сумма равна ',c)
end.

Пример
Введите два числа -3.184 153
Их сумма равна 149.816
4,6(77 оценок)
Ответ:
Obzzzi
Obzzzi
09.06.2021
Var
a, b, c: integer;
procedure sum(x, y: integer; var z: integer);
begin
z := x + y;
end;
begin
writeln('Введите два числа: ');
readln(a, b);
sum(a, b, c);
writeln(c);
end.
4,8(90 оценок)
Открыть все ответы
Ответ:
kurolesov71
kurolesov71
09.06.2021
{
Если что, часть программы не нужна для построения цепочки. Она просто иллюстрирует, что полученный результат верен.
}

var
 sq : array[0..999] of array[0..9] of boolean;
 co : array[0..999] of integer;
 ar : array[1..10003] of 0..9;
  i,j: integer;
 x: integer;
 t : boolean;
 begin
 for i := 0 to 999 do
   begin
   for j := 0 to 9 do
   sq[i][j] := false;
   co[i] := 0;
   end;
 for i := 1 to 3 do
   ar[i] := 0;
 i := 3;
 t := true;
 {write('000');}
 while t do
   begin
   i := i + 1;
   x := ar[i-3]*100 + ar[i-2]*10 + ar[i-1];
   if co[x] >= 10 then t := false
     else
     begin
     j := 1;
     while sq[x][j] do 
       j := (j + 1) mod 10;
     ar[i] := j;
     sq[x][j] := true;
     co[x] := co[x] + 1;
     {write(j)}
     end;
   end;
 {writeln;}
 writeln('Length: ',i - 1);

 {просто чтобы убедиться}
 for i := 0 to 999 do
   for j := 0 to 9 do
   sq[i][j] := false;

  t := true;
 j := 0;
 i := 1;
 while (i <= 10000) and t do
   begin
   x := ar[i] * 100 + ar[i+1] * 10 + ar[i+2];
   if sq[x][ar[i+3]] then t := false
     else
     begin
     sq[x][ar[i+3]] := true;
     j := j + 1;
     end;
   i := i + 1
   end;
 if t and (j = 10000) then
   write('Confirmed')
end.
4,6(89 оценок)
Ответ:
natsia
natsia
09.06.2021

Чаще всего среди доступных групп функций пользователи Экселя обращаются к математическим. С них можно производить различные арифметические и алгебраические действия. Их часто используют при планировании и научных вычислениях. Узнаем, что представляет собой данная группа операторов в целом, и более подробно остановимся на самых популярных из них.

 

Применение математических функций

С математических функций можно проводить различные расчеты. Они будут полезны студентам и школьникам, инженерам, ученым, бухгалтерам, планировщикам. В эту группу входят около 80 операторов. Мы же подробно остановимся на десяти самых популярных из них.

Открыть список математических формул можно несколькими путями. Проще всего запустить Мастер функций, нажав на кнопку «Вставить функцию», которая размещена слева от строки формул. При этом нужно предварительно выделить ячейку, куда будет выводиться результат обработки данных. Этот метод хорош тем, что его можно реализовать, находясь в любой вкладке.

Объяснение:

4,7(54 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ