Гость Опубликовано 10 мая, 2011 Жалоба Поделиться Опубликовано 10 мая, 2011 (изменено) Уважаемые администрацыя и модеры большая просьба неудалять ету тему так как от её исхода зависит дальнейшее участвие меня в проекте Хгейм. ув. програмеры нужна ваша помощь в решение даной проблемы! есть задача мне нужно упростить выделеную чясть до самого минимума, ну или всю задачу целяком!буду примног благодарен любой помощи, а если же тот кто поможет мне играет в 4уне того я отблагодарю ресомвот сама програма:Программа должна считывать с клавиатуры в массив целые числа до тех пор, пока введенное число не станет больше предыдущего, после чего должна выдать на экран список простых введенных чисел.PROGRAM Simple_numbers; USES CRT; VAR a : array[1..20] of integer; n,i,j : integer; sim : boolean; BEGIN ClrScr; read(a[1]); read(a[2]); n:=2; while (a[n] < a[n-1]) do begin n:=n+1; read(a[n]); end; for i:=1 to n-1 do begin sim := true; for j:=2 to trunc(sqrt(a)) do if (a div j) * j = a then sim := false; if sim then write(a,' '); end; writeln; END. Изменено 10 мая, 2011 пользователем Orlando_mirage 1 Цитата Ссылка на сообщение Поделиться на другие сайты
Гость Опубликовано 10 мая, 2011 Жалоба Поделиться Опубликовано 10 мая, 2011 Уважаемая администрацыя и модеры а модеры значит неуважемые? если все-таки это не как,то следует писать :уважаемые Администрация и модеры илиуважаемая Адинистрация и уважаемые модеры 0 Цитата Ссылка на сообщение Поделиться на другие сайты
Гость Опубликовано 10 мая, 2011 Жалоба Поделиться Опубликовано 10 мая, 2011 а модеры значит неуважемые? если все-таки это не как,то следует писать :уважаемые Администрация и модеры илиуважаемая Адинистрация и уважаемые модерыспасибо исправил 0 Цитата Ссылка на сообщение Поделиться на другие сайты
Arti 247 Опубликовано 11 мая, 2011 Жалоба Поделиться Опубликовано 11 мая, 2011 я не шарю в паскале, но зачем тебе этот кусокfor i:=1 to n-1 do begin sim := true; for j:=2 to trunc(sqrt(a)) do if (a div j) * j = a then sim := false; ? 0 Цитата Ссылка на сообщение Поделиться на другие сайты
Гость Опубликовано 11 мая, 2011 Жалоба Поделиться Опубликовано 11 мая, 2011 я не шарю в паскале, но зачем тебе этот кусокfor i:=1 to n-1 do begin sim := true; for j:=2 to trunc(sqrt(a)) do if (a div j) * j = a then sim := false; ?если бы и я шарил я бы сам сделал, думаю етот оператор для того чтобы исполнялось условие, а та формула я хз, мне ту часть нужно спростить. 0 Цитата Ссылка на сообщение Поделиться на другие сайты
Arti 247 Опубликовано 11 мая, 2011 Жалоба Поделиться Опубликовано 11 мая, 2011 Я не знаю синтаксис...но тут же легко...на с++ мог бы тебе написать :( 0 Цитата Ссылка на сообщение Поделиться на другие сайты
murkaa 2 Опубликовано 11 мая, 2011 Жалоба Поделиться Опубликовано 11 мая, 2011 можно так попробуватьPROGRAM Simple_numbers;USES CRT;VAR a : array[1..20] of integer;n,i,j,k : integer;BEGIN ClrScr; n:=1; readln(a[n]); repeat n:=n+1; readln(a[n]); until ((a[n]>a[n-1])or(n=20)); for i:=1 to n-1 do begin k:=0; if a[i]>3 then for j:=2 to trunc(sqrt(a[i])) do if ((a[i] mod j)=0) then k:=k+1; if ((k<3)or(a[i]<4)) then write(a[i],' '); end; writeln;END. 1 Цитата Ссылка на сообщение Поделиться на другие сайты
Гость Опубликовано 11 мая, 2011 Жалоба Поделиться Опубликовано 11 мая, 2011 а модеры значит неуважемые? если все-таки это не как,то следует писать :уважаемые Администрация и модеры илиуважаемая Адинистрация и уважаемые модерыда заройся ты... 0 Цитата Ссылка на сообщение Поделиться на другие сайты
Гость Опубликовано 11 мая, 2011 Жалоба Поделиться Опубликовано 11 мая, 2011 можно так попробуватьPROGRAM Simple_numbers;USES CRT;VAR a : array[1..20] of integer;n,i,j,k : integer;BEGIN ClrScr; n:=1; readln(a[n]); repeat n:=n+1; readln(a[n]); until ((a[n]>a[n-1])or(n=20)); for i:=1 to n-1 do begin k:=0; if a[i]>3 then for j:=2 to trunc(sqrt(a[i])) do if ((a[i] mod j)=0) then k:=k+1; if ((k<3)or(a[i]<4)) then write(a[i],' '); end; writeln;END. спасибо но не то... нужно было cдєлать без корня sqrt и округления trunc, соалы мне помогли решыть!модеры удалите тему 0 Цитата Ссылка на сообщение Поделиться на другие сайты
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.