Паскаль. дан массив вещественных чисел в(20), заданной случайным образом в диапазоне от -65 до 90. найти частное максимального на мин

👇

Увидеть ответ

Ответ:

zagudaevaa

03.03.2021

var b: array [1..20] of real;

i: integer;

max,min: real;

begin

for i:=1 to 20 do b[i]:=random(156)-65;

max:=b[1];

min:=b[1];

for i:=2 to 20 do begin

if min>b[i] then min:=b[i] else

if max<b[i] then max:=b[i];

end;

writeln('Частное максимального ',max,' на ',min,' - ',max/min);

end.

4,4(5 оценок)

Открыть все ответы

Ответ:

ponk4ik228778

03.03.2021

Общее решение, позволяющее удалять из строк любой "мусор"

// PascalABC.Net 3.0, сборка 1066
procedure CheckString(var s:string; var n:integer);
var
i:integer;
begin
i:=Length(s);
while i>0 do begin
    if not(s[i] in ['a'..'z']) then Delete(s,i,1);
    Dec(i)
end;
n:=Length(s)
end;

var
s1,s2:string;
i,p,n1,n2:integer;
begin
Write('Введите первую строку: '); Readln(s1);
CheckString(s1,n1);
if n1=0 then Writeln('Введенная строка не содержит допустимых символов')
else begin
    Write('Введите вторую строку: '); Readln(s2);
    CheckString(s2,n2);
    if n2=0 then Writeln('Введенная строка не содержит допустимых символов')
    else
      { теперь обе строки содержат только маленькие латинские буквы }
      if n1=n2 then begin
        for i:=1 to n1 do begin
          p:=Pos(s1[i],s2);
          if p=0 then Break
          else Delete(s2,p,1)
          end;
        if Length(s2)=0 then Writeln('Решение имеется')
        else Writeln('Решения нет')
        end
      else
        Writeln('Решения нет');
    end
end.

Тестовое решение:
Введите первую строку: this is my own deal!
Введите вторую строку: Тест: *is now=l2ead my   sthi?
Решение имеется

Также имеется современное решение, которому пока что в школах не учат:
// PascalABC.Net 3.0, сборка 1066
begin
var s1:=ReadString('Введите первую строку: ').Where(x->x in ['a'..'z']);
if s1.Count=0 then
    Writeln('Введенная строка не содержит допустимых символов')
else begin
    var s2:=ReadString('Введите вторую строку: ').Where(x->x in ['a'..'z']);
    if s2.Count=0 then
      Writeln('Введенная строка не содержит допустимых символов')
    else
      if s1.Except(s2).Count>0 then Writeln('Решения нет')
      else Writeln('Решение имеется')
    end
end.

4,7(84 оценок)

Ответ:

pankewitchkati

03.03.2021

Для підготування, опрацювання, передавання, контролювання й зберігання документів за до ПК використовується таке програмне забезпечення:

• операційна система (ОС), тобто базова програма, під керуванням якої працює комп'ютер;

• текстовий редактор;

• електронні таблиці;

• система керування базами даних (СКБД);

• комунікативні програми для роботи з факсами й доступу в

Internet;

• утиліти (допоміжні програми, що оптимізують роботу комп'ютера).

Як правило, використовуються також:

• OCR (Optical Character Recognition System) — програми оптичного розпізнавання текстів для перенесення документа, виготовленого на папері, в комп'ютер за до сканувального пристрою;

• електронні словники й перекладачі. На підприємствах, в організаціях, установах, фірмах можуть застосовуватися різні версії одних і тих самих програм.

Як приклад розглянемо широко застосовувані в Україні локалізовані (перекладені російською мовою) програмні продукти фірми «Microsoft»: офісні додатки Microsoft Office Professional — Word, Excel, PowerPoint, Access, Outlook (операційна система — Windows 98).

Microsoft Word ‒ це офісний додаток для опрацювання текстів. Його можна використовувати для виготовлення будь‒яких документів, бюлетенів, брошур, буклетів, нанесення надписів і зображень на конверти тощо.

Продукти, створені у Word, можуть містити текст, графіку, звук відеокліп тощо. Word дає змогу легко оформляти документи, автоматично формувати абзаци, вирівнювати їх, центрувати, задавати абзацні відступи, форматувати текст, розбивати його на стоянки переносити фрагменти тексту, змінювати шрифти, береги міжрядкові інтервали, виправляти орфографічні й граматичні помилки безпосередньо в процесі створення документа. Крім цього у Word є вбудовані засоби інтегрування графіки в документ (можна використовувати WordArt і OfficeArt для створення ефекту об'єму й надання продуктові різних форм). Підтримання фонових зображень дає змогу створювати привабливі продукти для відображення на екрані чи розміщення в Internet.

Microsoft Excel — це програма оброблення електронних таблиць, що використовується як електронна бухгалтерська книга для відслідковування й аналізу фінансової та іншої числової інформації. Матриця Excel складається з комірок, в які вводять числові й текстові дані, математичні формули, що складають електронну таблицю. Excel здійснює обчислення в електронній таблиці, визначає їх результати й відображує останні в комірках замість формул. Таким чином, формула діє «за лаштунками» й генерує результат, відображений в електронній таблиці.

Програма Excel дає змогу також працювати зі списками даних (подібно до системи керування базами даних), створювати дво‒ й тривимірні діаграми на основі даних електронної таблиці. Крім того, в електронні таблиці Excel можна вбудовувати графіку й текст з інших додатків Office (Word, PowerPoint).

Объяснение:

4,7(66 оценок)

Это интересно:

Компьютеры-и-электроника

17.05.2021

Mac и внешний жесткий диск: как загрузить компьютер...

Кулинария-и-гостеприимство

10.10.2022

Как правильно разбить яйцо: советы и инструкции...

Здоровье

18.03.2020

Как быстро восстановиться после ангиограммы сердца: полезные советы для пациентов...