Turbo Pascal

[Гость]

Уважаемые администрацыя и модеры большая просьба неудалять ету тему так как от её исхода зависит дальнейшее участвие меня в проекте Хгейм.

ув. програмеры нужна ваша помощь в решение даной проблемы!

есть задача мне нужно упростить выделеную чясть до самого минимума, ну или всю задачу целяком!

буду примног благодарен любой помощи, а если же тот кто поможет мне играет в 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

[Гость]

Уважаемая администрацыя и модеры

а модеры значит неуважемые?

если все-таки это не как,то следует писать :

уважаемые Администрация и модеры

или

уважаемая Адинистрация и уважаемые модеры

[Гость]

а модеры значит неуважемые?

если все-таки это не как,то следует писать :

уважаемые Администрация и модеры

или

уважаемая Адинистрация и уважаемые модеры

спасибо исправил

[Arti 247]

я не шарю в паскале, но зачем тебе этот кусок

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; ?

[Гость]

я не шарю в паскале, но зачем тебе этот кусок

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; ?

если бы и я шарил я бы сам сделал, думаю етот оператор для того чтобы исполнялось условие, а та формула я хз, мне ту часть нужно спростить.

[Arti 247]

Я не знаю синтаксис...но тут же легко...

на с++ мог бы тебе написать :(

[murkaa 2]

можно так попробувать

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. 

[Гость]

а модеры значит неуважемые?

если все-таки это не как,то следует писать :

уважаемые Администрация и модеры

или

уважаемая Адинистрация и уважаемые модеры

да заройся ты...

[Гость]

можно так попробувать

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, соалы мне помогли решыть!

модеры удалите тему