Составление и отладка программ с использованием множества в TP

[Евгений1313]

Здравствуйте всем, помогите решить задачу на множества:
Имеется множество, содержащее натуральные числа из некоторого диапазона. Сформировать два множества, первое из которых содержит все простые числа из данного множества, а второе — все составные.

[XuTpbIu]

А в чём собственно проблема? Вы не знаете как определить простое число или нет?

[alex_fcsm]

uses crt;
var i,j:integer;
    f:boolean;
    s,s1:set of 1..100;
begin
clrscr;
s:=[];
s1:=s;
for i:=1 to 100 do
 begin
  f:=true;
  for j:=2 to round(sqrt(i)) do
   if ((i mod j)=0) then f:=false;
   if f then s:=s+[i]
      else s1:=s1+[i];
 end;
 writeln('Simple:');
 for i:=1 to 100 do
  if i in s then write(i,' ');
  writeln;
 writeln('Nonsimple:');
 for i:=1 to 100 do
  if i in s1 then write(i,' ');
end.

[Евгений1313]

uses crt;
var i,j:integer;
f:boolean;
s,s1:set of 1..100;
begin
clrscr;
s:=[];
s1:=s;
for i:=1 to 100 do
begin
f:=true;
for j:=2 to round(sqrt(i)) do
if ((i mod j)=0) then f:=false;
if f then s:=s+[i]
else s1:=s1+[i];
end;
writeln('Simple:');
for i:=1 to 100 do
if i in s then write(i,' ');
writeln;
writeln('Nonsimple:');
for i:=1 to 100 do
if i in s1 then write(i,' ');
end.

А что обозначают слова, которые я выделил красным текстом, и что они выполняют. Просто я с ними не сталкивался.

[Stilet]

Boolean - это логический тип
Round - функция округления
mod - оператор получения остатка от деления.

Хелп еще не отменили. Туда и смотри.

[alex_fcsm]

mod - возвращает остаток от деления
round - округление
boolean - тип данных, которые могут принимать два возможных значения: true и false

[Евгений1313]

Большое спасибо за помощь!

Извеняюсь, alex_fcsm, вы пробовали запускать программу в ТР, я запускаю, а она у меня как-то быстро показывает ответ и возвращается обратно к программе?

[alex_fcsm]

readln перед end. подпишите

я запускаю в PascalABC

[Stilet]

Евгений1313

После работы нажми ALT+F5 и увидеш окно OUTPUT

[Евгений1313]

Большое спасибо!