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

Сократите эту программу : ну там мб действия нахождения максимума одной процедурой хз крч program zelda; uses crt; const z=100; varu1,u2,u3: array[1..z]of integer; i,max1,max2,max3: integer; procedure ch1; var n,i,max1,max2,max3: integer; beginn: =7; for i: =1 to n dou1[i]: =random(100); for i: =1 to n dowriteln('элементы массива: ',u1[i]); max1: =u1[i]; max2: =u1[i]; max3: =u1[i]; for i: =1 to n doif u1[i]> max1 then beginmax1: =u1[i]; end; for i: =1 to n doif (u1[i]> max2) and (u1[i]< > max1) then beginmax2: =u1[i]; end; for i: =1 to n doif (u1[i]> max3) and (u1[i]< > max1) and (u1[i]< > max2) then beginmax3: =u1[i]; end; writeln('max1: ',max1,' max2: ',max2,' max3: ',max3); end; procedure ch2; var n,i,ind,max1,max2,max3: integer; beginn: =13; for i: =1 to n dou2[i]: =random(100); for i: =1 to n dowriteln('элементы массива: ',u2[i]); ind: =0; max1: =u2[i]; max2: =u2[i]; max3: =u2[i]; for i: =1 to n doif u2[i]> max1 then beginmax1: =u2[i]; end; for i: =1 to n doif (u2[i]> max2) and (u2[i]< > max1) then beginmax2: =u2[i]; end; for i: =1 to n doif (u2[i]> max3) and (u2[i]< > max1) and (u2[i]< > max2) then beginmax3: =u2[i]; end; writeln('max1: ',max1,' max2: ',max2,' max3: ',max3); end; procedure ch3; var n,i,max1,max2,max3: integer; beginn: =17; for i: =1 to n dou3[i]: =random(100); for i: =1 to n dowriteln('элементы массива: ',u3[i]); max1: =u3[i]; max2: =u3[i]; max3: =u3[i]; for i: =1 to n doif u3[i]> max1 then beginmax1: =u3[i]; end; for i: =1 to n doif (u3[i]> max2) and (u3[i]< > max1) then beginmax2: =u3[i]; end; for i: =1 to n doif (u3[i]> max3) and (u3[i]< > max1) and (u3[i]< > max2) then beginmax3: =u3[i]; end; writeln('max1: ',max1,' max2: ',max2,' max3: ',max3); end; beginch1; ch2; ch3; end.

👇
Ответ:

Так пойдёт?

Объяснение:

program Zeldaproj1;

{$mode objfpc}{$H+}

uses

{$IFDEF UNIX}{$IFDEF UseCThreads}

 cthreads,

 {$ENDIF}{$ENDIF}

 Classes

 { you can add units after this };

const z=100;

type mas=array[1..z] of integer;

var

 u1:mas;

 max1,max2,max3:integer;

procedure ch1(n:integer);

var i:integer;

begin

for i:=1 to n do

u1[i]:=random(100);

for i:=1 to n do

writeln('Элементы массива: ',u1[i]);

max1:=u1[i];max2:=u1[i];max3:=u1[i];

for i:=1 to n do

if u1[i]>max1 then begin

max1:=u1[i];

end;

for i:=1 to n do

if (u1[i]>max2) and (u1[i]<>max1) then begin

max2:=u1[i];

end;

writeln('max1: ',max1,' max2: ',max2,' max3: ',max3);

end;

begin

ch1(5);

readln;

ch1(7);

readln;

ch1(13);

readln;

end.

4,7(89 оценок)
Открыть все ответы
Ответ:
2017minikot
2017minikot
15.06.2021
1. "Школьное" решение

// PascalABC.Net 3.0, сборка 1066
var
  s,s1:string;
  i:integer;
  a:char;
begin
  Write('Введите натуральное число любой длины :'); Readln(s);
  Write('Введите цифру, которую надо удалить: '); Readln(a);
  s1:='';
  for i:=1 to Length(s) do
    if s[i]<>a then s1:=s1+s[i];
  Writeln('Результат: ',s1)
end.

Тестовый прогон:
Введите натуральное число любой длины :3141592653589793
Введите цифру, которую надо удалить: 5
Результат: 3141926389793

2. Современное решение (так в школе почему-то не учат)

// PascalABC.Net 3.0, сборка 1066
begin
  var s:=ReadString('Введите натуральное число любой длины :');
  var a:=ReadChar('Введите цифру, которую надо удалить: ');
  Write('Результат: ',s.Replace(a,''));
end.
4,6(99 оценок)
Ответ:
Пелагея14
Пелагея14
15.06.2021
Проще всего складывать в столбик как обычные десятичные числа, но если в сумме число получится больше 8 (система восмиричная), то мы отнимаем 8, смотрим: меньше ли получившийся остаток 8, если нет, то снова отнимаем восемь и тогда записываем остаток, а в "ум" запишем число отнятых восьмерок

574+467=1263 (все числа в восьмиричной системе счисления)

так, складывая 4 и 7, получаем 11, что больше 8, поэтому отняв 8, получим цифру 3, которую и записываем как последнюю цифру числа (3 пишем, 1 в уме), далее складываем 6 и 7 и не забываем про 1, потому что в раз мы отняли всего одну восьмерку, получаем 14, но записываем только 6, а 1 в уме, затем 5, 4 и 1 - 2 пишем, 1  в уме, далее просто приписываем единицу, получаем 1263

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