Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 08.11.2019, 11:09   #1
tara-ta-ta
Пользователь
 
Регистрация: 25.10.2019
Сообщений: 22
По умолчанию Создать матрицу А[20, 2], заполнив первый столбец случайными числами из диапазона от 99 до 999, а во второй столбец записать 1, если число простое, 0 - если не простое

Создать матрицу А[20, 2], заполнив первый столбец случайными числами из диапазона от 99 до 999, а во второй столбец записать 1, если число простое, 0 - если не простое
tara-ta-ta вне форума Ответить с цитированием
Старый 10.11.2019, 15:23   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,803
По умолчанию

Код:
function Simple(n:integer):boolean;
var i:integer;
begin
   Result:=false;
   If n<2 then
      Exit;
   For i:=2 to Trunc(Sqrt(n)) do
      If n mod i=0 then
         Exit;
   Result:=true;
end;

var a:array[1..20,1..2] of integer;
    i:integer;
begin
   Randomize;
   For i:=1 to 20 do
   begin
      a[i,1]:=99+Random(901);
      Write(a[i,1]:3,'  ');
      If Simple(a[i,1]) then
         a[i,2]:=1 else
         a[i,2]:=0;
      Writeln(a[i,2]:3);
   end;
   Writeln;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 11.11.2019, 20:05   #3
zvygin1964
Старожил
 
Аватар для zvygin1964
 
Регистрация: 19.06.2013
Сообщений: 2,076
По умолчанию

+ к репутации.
Репутация: полный "0"
zvygin1964 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Delphi] в массиве поменять порядок следования столбцов на обратный (первый столбец становится последним, второй предпоследним и т.д.). ALINA787 Помощь студентам 4 28.10.2019 16:30
Массив а[1..8], заполненный случайными числами [-10, 10]. Определить, Если массив не содержит заданное число, то вставить число schibeki Паскаль, Turbo Pascal, PascalABC.NET 5 30.01.2014 20:10
Visual Basic. Дан двумерный массив размером n*m, заполненный случайными числами. Определить, есть ли в данном массиве столбец... Nember Помощь студентам 0 21.12.2013 20:56
Двумерный массив А. Если заданное число больше первой цифры столбца, то этот столбец удаляется. Комментировать листинг на Паскаль Altana Помощь студентам 0 29.05.2012 10:30
Сформировать матрицу A - первый столбец которой равен последнему столбцу исходной матрицы Вика М. Помощь студентам 3 23.12.2008 04:51


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840