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

Задача 1. Создать программу для формирования таблицы умножения (таблицы Пифагора).
Program Piphagor;
Uses crt;
var i,j:byte;
a: array [1..9, 1..9] of integer;
begin
clrscr;
{шапка таблицы Пифагора}
for i:=1 to 9 do write(i:3,' |'); writeln;
for i:=1 to 9 do write('+'); writeln;
{сама таблица}
for i:=2 to 9 do
begin
for j:=1 to 9 do
begin
a[i,j]:=i*j;
write(a[i,j]:3,' |');
end;
writeln;
end;
readln;
end.

Пример № 2.
Составить программу, которая в двумерном массиве случайных чисел находит в каждой строке наибольший элемент и записывает его в одномерный массив.
m – количество строк в двумерном массиве и длина одномерного массива;
n – количество столбцов;
A[1..m,1..n] - двумерный массив;
B[1..m] – одномерный массив
max – вс переменная для нахождения наибольшего элемента в каждой строке.

Program max_str;
Uses crt;
сonst
m=5;
n=6;
var i,j:byte;
a: array [1..m, 1..n] of integer;
b: array [1..m] of integer;
max: integer;
begin
clrscr;randomize;
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
writeln ('Массив из максимальных значений в строках:');
for i:=1 to m do
begin
max:=a[i,1];
for j:=2 to n do
begin
if a[i,j]>max then max:=a[i,j];
end;
b[i]:=max;
write (b[i]:4);
end;
readln;
end.

Показать ответ
Ответ:
Софяйка
Софяйка
26.03.2021 20:32
Microsoft QBasic
m = 10
n = 15
DIM a(1 TO m, 1 TO n) AS INTEGER
DIM x(1 TO n) AS INTEGER, y(1 TO m) AS INTEGER
RANDOMIZE TIMER
CLS
PRINT "Исходная матрица"
FOR i = 1 TO m
   FOR j = 1 TO n
      a(i, j) = INT(99 * RND)
      PRINT USING "###"; a(i, j);
   NEXT j
   PRINT
NEXT i
INPUT "Строка для Х и столбец для Y (через запятую): ", p, q
PRINT "Вектор-строка Х"
FOR j = 1 TO n
   x(j) = a(p, j)
   PRINT USING "###"; x(j);
NEXT j
PRINT
PRINT "Вектор-столбец Y"
FOR i = 1 TO m
   y(i) = a(i, q)
   PRINT USING "###"; y(i);
NEXT i
PRINT

Тестовое решение:
Исходная матрица
 51 91 87 95 48 54 64 92  2 91 84 56 60 87  6
 96 55 81 11 46 42 38 14 40 73 33 97 16 90 65
 65 41 52  1 30 62 68 32 16 86 80 72 94 76 50
 63 44 84 83 19 29 95 75 88  9 13 78 45 72 51
 98 98 93 70 19 36 16 21 38 87 59 26 48 11 52
 77 24 11 91 68 49 72 25 39 54 31 55 57 92 55
 79 19 37 67 40 72 91 76 13 75 47 48 12 64 44
 87 24 62 73 58 65  2 90 21 63 79 67 92 68 27
 57 42 82 21 94  1 19  1 12  1 84 27 86 42 89
 54 12 78 75 33 87 34 78 38 50 40 11 19  6  2
Строка для Х и столбец для Y (через запятую): 4,8
Вектор-строка Х
 63 44 84 83 19 29 95 75 88  9 13 78 45 72 51
Вектор-столбец Y
 92 14 32 75 21 25 76 90  1 78
0,0(0 оценок)
Ответ:
lerakycher2001
lerakycher2001
14.08.2022 15:40

Основные - это те без которых он не будет работать?:

монитор - отображение видеоинформации

видеокарта - обработка и подача видеосигнала на монитор

клавиатура и мышь - ввод информации от пользователя

блок питания - распределение питания между внутренними устройствами

жёсткий диск - постоянная память компьютера

оперативная память - временная память компьютера

процессор - основные вычислительные операции

материнская плата - связыает все элементы между собой

куллер - охлаждает

системный блок - для крепления внутренних элементов

дополнительные устройства ввода: сд или двд приводы, сканер, тачпад на ноутах, сенсорные понели, вэбкамеры, микрофоны...

дополнительные устройства вывода: колонки или наушники + звуковая карта, принтеры, плоттеры, проэкторы..

устройства для коммуникаций и сетей: модемы, сетевые карты, блютус/ик платы или стационарные устройства..

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