|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
10.04.2011, 10:11 | #1 |
Пользователь
Регистрация: 14.03.2011
Сообщений: 24
|
Создать общую программу
Имеется программа для выбора из z [i,j] := x[i] * y[j] чисел, остаток деления на 9 равен 1 и их распечатка в виде таблицы.
program tabl6; const n = 20; m = 12; r = 6; c = 3; p = ' '; var z: array[1..n, 1..m] of integer; x: array[1..n] of integer; y: array[1..m] of integer; i, j, k: byte; begin writeln; write(p:c, '|'); for j := 1 to m do write(j:r, '|'); writeln; write('---+'); for k := 1 to m do write('------+'); writeln; for i := 1 to n do begin Write(i:c, '|'); for j := 1 to m do begin x[i] := 2 * i + 1; y[j] := 2 * j + 1; z[i, j] := x[i] * y[j]; if z[i, j] mod 9 = 1 then Write(b[i, j]:r, '|') else Write(p:r, '|') end; Writeln; write('---+'); for k := 1 to m do write('------+'); writeln; end; Readln end. Как дополнить представленную программу кодом: Function IsSimple (z:integer):boolean;//(c)ALEX FCSM var j,lim: integer; begin IsSimple:=false; lim:=round(sqrt(z)); j:=2; while (z mod j <> 0) and (j <= lim) do inc( j ); if (j > lim) then IsSimple:=true; end; чтобы из выбранных с помощью первой программы чисел, выбрать простые числа (делящиеся нацело только на себя и 1) и, также распечатать их в таблице. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Выбор по лицевому в общую таблицу | alexvav | Microsoft Office Excel | 6 | 15.07.2010 14:51 |
Создать программу в C++ | JayDe23 | Помощь студентам | 1 | 18.04.2010 14:10 |
Как создать программу ? | SkyLord | Свободное общение | 2 | 04.04.2010 15:40 |
Создать программу в Фортране | Rashka90 | Помощь студентам | 1 | 21.06.2009 12:31 |
создать программу | Александр Ф. | Фриланс | 4 | 10.11.2008 18:14 |