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

Паскаль 1. напишите заголовки следующих подпрограмм: а) процедуры, имеющей один целочисленный параметр-значение и один вещественный параметр-переменную; б) процедуры, имеющей два вещественных параметра-переменных; в) функции, имеющей два целочисленных аргумента и принимающей вещественные значения.

👇
Ответ:
лина2110
лина2110
16.10.2020
1) procedure First(const a : integer, b : real);

2) procedure Second(a,b : real);

3) function Third(a,b : integer) : real;
4,6(34 оценок)
Ответ:
inesssa444
inesssa444
16.10.2020
Думаю это будет выглядеть так:
а) procedure MyProc(a:integer, b:real)
б) procedure MyProc(a,b:real)
в) function MyFunc(a,b:integer):real
4,6(22 оценок)
Открыть все ответы
Ответ:
соникна
соникна
16.10.2020
// PascalABC.NET 3.3

begin
// а)
  writeln('Результаты сдачи экзамена:');
  var a:=ArrRandom(15,2,5); a.Println; // генерируем и выводим массив оценок
  var k:=a.Where(x->x=2).Count; // подсчитываем количество двоек
  writeln('Не сдали экзамен: ',k,' чел. Это ',100*k/15:4:1,'%'); // выводим на эран результаты
// б)
    writeln('Данные по продаже компьютеров:');
    var b:=ArrRandom(7,5,20); b.Println; // генерируем и выводим результаты продаж
    writeln('По возрастанию:');
    b.Sorted.Println; // сортируем по возрастанию и выводим
end.

Пример:
Результаты сдачи экзамена:
3 3 3 2 4 3 4 4 3 3 5 2 2 5 5
Не сдали экзамен: 3 чел. Это 20.0%
Данные по продаже компьютеров:
16 20 16 14 5 18 16
По возрастанию:
5 14 16 16 16 18 20
4,5(99 оценок)
Ответ:
zubtan1951
zubtan1951
16.10.2020
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var n:=15;
  var a:=ArrRandom(n,2,5); a.Println;
  var k2:=a.Where(t->t=2).Count;
  Writeln('Не сдали экзамен ',k2,' чел, что составляет ',k2/n*100:0:1,'%')
end.

Пример
4 3 3 4 5 4 3 4 3 5 4 5 2 5 2
Не сдали экзамен 2 чел, что составляет 13.3%

№2

begin
  ArrRandom(7,15,40).Println.OrderBy(t->t).Println
end.

Пример
34 21 24 29 28 22 25
21 22 24 25 28 29 34

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