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

Нужно сделать подпрограмму. не умею я подпрограммы писать! 9 класс, делфи сделать подпрограмму, которая вводит с клавиатуры 3 числа, находит найбольшее и выводит на экран.

👇
Ответ:
228эрагон
228эрагон
16.01.2021
var a,b,c:integer;
begin read(a,b,c);
   if (a > b) and (a > c) then
        write(a)
   else
       if (b > a) and (b > c) then
        write(b)
   else
        write(c);
end.
В делфи добавишь на форму Эдиты(4 штуки) и одну кнопку. В трех Эдитах будешь вводить свои значения, а в четвертом выведешь ответ и все это при клике на кнопку:
Procedure btn1Click;
var a, b, c, max: integer; 
begin 
a:= StrToInt(edt1.Text); // где edt1,2,3 - имена полей для ввода(Эдиты)
b:= StrToInt(edt2.Text);
c:= StrToInt(edt2.Text);
   if (a > b) and (a > c) then 
        max:= a; 
   else 
       if (b > a) and (b > c) then 
        max:= b;
   else 
        max:= c;
edt4.Text:= 'Максимальное число' + max;
//или ShowMessage(Максимальное число' + max); 
end.
4,6(60 оценок)
Открыть все ответы
Ответ:
Saida6666
Saida6666
16.01.2021

Программа не полностью показана, но насколько я понял, в начале просто задаются исходные данные:

-координаты  x, y

-индекс (от 0 до 2) для выбора одного из трёх вариантов функции  f

Таблицу Excel  и мой вариант программы я приложил к решению (смотри вложения внизу).

В таблице вычисляется значение  b  так же как и в программе. А также вычисляется  f   и значение  x*y  (чтобы было понятнее, по какой формуле считала программа).  Чтобы формулы нормально читались, я задал имена ячейкам с исходными данными и результатами такие же, как и имена переменных в программе.

Результаты вычислений в нескольких точках я сверил с программой- всё совпадает.

Последняя приложенная картинка- на координатной плоскости тремя разными цветами выделены области на которых применяются три разных формулы расчёта  b  ( в зависимости от значения  x*y ).


Нужно эту программу занести в эксель, чтоб работала скинуть файл екселя, чтоб ввел значения и он пок
Нужно эту программу занести в эксель, чтоб работала скинуть файл екселя, чтоб ввел значения и он пок
Нужно эту программу занести в эксель, чтоб работала скинуть файл екселя, чтоб ввел значения и он пок
4,6(74 оценок)
Ответ:
molniablack
molniablack
16.01.2021
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := new integer[5, 5](

     (2, 4, 5, 1, 3),

     (7, 2, 9, 0, 2),

     (6, 4, 1, 0, 1),

     (8, 4, 7, 2, 0),

     (6, 0, 0, 2, 1));

 Println('Массив A');    

 a.Println(2);

 Println('Массив B');

 var b := new integer[5, 5](

     (2, 4, 5, 0, 3),

     (6, 0, 3, 2, 1),

     (2, 4, 5, 1, 3),

     (8, 4, 7, 2, 0),

     (6, 2, 0, 2, 1));

 b.Println(2);

 Println('Массив A');

 var c := new integer[5, 5];

 var (upper, lower) := (0, a.RowCount - 1);

 for var i := 0 to a.RowCount - 1 do

 begin

   var found := False;

   for var j := 0 to b.RowCount - 1 do

     if a.Row(i).SequenceEqual(b.Row(j)) then

     begin

       c.SetRow(upper, a.Row(i));

       upper += 1;

       Found := True;

       break

     end;

   if not found then  

   begin

     c.SetRow(lower, a.Row(i));

     lower -= 1;

   end

 end;

 a := Copy(c);

 c := nil; // удаляем с

 a.Println(2)

end.


Написать программу на паскале(или хотя бы алгоритм на том же языке).в матрице а[5,5] найти все строк
4,8(26 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ