В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
san11217
san11217
11.02.2021 21:13 •  Информатика

Задание 1. Тестирование готовой линейной программы. 1. Запустите программу Раsса1 ABC.
2. Откройте готовую программу, для этого выполните команды: Файл-Открыть в предложенном списке программ выберите файл Произведение а и в.pas
3. Перед вами появится программа, позволяющая умножить два целых числа.
4. Запустите ее на выполнение, для этого Программа-Выполнить. На экране появится сообщение: Введите два числа. Курсор мигает в следующей строке, введите два любых числа и нажмите Еntег.
5. Просмотрите результат выполнения программы.

Задание 2.
Измените исходную программу, чтобы она находила сумму двух чисел.
Сохраните программу нажав Файл-Сохранить как под названием Задание2_Ковальков
Задание 3.
Измените исходную программу, чтобы она находила частное двух чисел.
Сохраните программу нажав Файл-Сохранить как под названием Задание3_Ковальков
Задание 4.
Измените исходную программу, чтобы она находила сумму четы¬рех чисел.
Сохраните программу нажав Файл-Сохранить как под названием Задание4_Ковальков
Составление простейших программ
Задание 5.
Составьте программу нахождения значения выражения (а-(d+21)*2)*(с-7*к), где значения переменных а, d, с и к вводятся с клавиатуры (результат выполнения программы покажите преподавателю). Сохраните программу нажав Файл-Сохранить как под названием Задание5_Ковальков

Показать ответ
Ответ:
daniildorunov
daniildorunov
13.04.2021 12:52

Program pr1;

uses crt;

var  

  n:byte; // Размерность массива

  i:byte; // Счетчик массива

  a:array[1..30] of real; // Массива чисел

  P:real; // Произведение чисел

Begin

  clrscr;

  write('Введите размерность массива: ');

  readln(n);

  writeln('Введите ',n,' элементов');

// Блок ввода

  for i:=1 to n do

     readln(a[i]);

// Блок вывода

  writeln('Исходный массив');

  for i:=1 to n do

     write(a[i]:6:1,' ');

     writeln;

     readln;

// Блок инициализации

  P:=1;

  for i:=1 to n do

     if(a[i]>P) then

        P:=P*a[i];    

  readln;

  writeln('P= ',P);

End.

Возможно я не так понял задание, но вот

0,0(0 оценок)
Ответ:
volfdima2011p0aaz8
volfdima2011p0aaz8
02.12.2021 02:02
Джо́йстик — устройство ввода информации в персональный компьютер, которое представляет собой качающуюся в двух плоскостях вертикальную ручку.
Компьютер- Электронно-вычислительная машина
Файл- Специально организованная структура данных, распознаваемая компьютером как единое целое

Колонка – группа излучателей, расположенных линейно (чаще всего вертикально).

Компью́терная мышь — координатное устройство для управления курсором и отдачи различных команд компьютеру
Принтер- Печатающее устройство, подключаемое к компьютеру.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота