Информатика, опубликовано 09.04.2020 17:26
Object Pascal(Free pascal + Lazarus) vs Visual basic(Visual studio)
Схожесть и отличия в формах и элементах управления
Ответ оставил: Гость
Ответ оставил: Гость
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...ОтделыЧисла";
ПЕР
массив: РЯД 100 ИЗ ЦЕЛ;
сч, нулей, единиц: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ()))
КОН;
ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
ЕСЛИ массив[сч] = 1 ТО УВЕЛИЧИТЬ(единиц)
ИНАЧЕ УВЕЛИЧИТЬ(нулей) КОН
КОН
КОН Задание.
ИСПОЛЬЗУЕТ Матем ИЗ "...ОтделыЧисла";
ПЕР
массив: РЯД 100 ИЗ ЦЕЛ;
сч, нулей, единиц: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ()))
КОН;
ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
ЕСЛИ массив[сч] = 1 ТО УВЕЛИЧИТЬ(единиц)
ИНАЧЕ УВЕЛИЧИТЬ(нулей) КОН
КОН
КОН Задание.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01