Перевести задачу из C# в Delphi

[Базиля]

Ну значит с них и начну, а завтра наработки свои корявые Вам покажу!

Вот это правильный подход!

Вот только время не подходящее, уж как 1 ночи!

Как говорится, утро вечера мудренее.

ByAlex
Молодец, да!
Ты лучший!

[Надежда_ИСУ]

Сообщение от Базиля

Как говорится, утро вечера мудренее.

Это точно!!!
И останется мне сделать 2 задачи, 1 на Delphi и 1 на C#!!!

Сообщение от ByAlex

Ладно, иди спать спокойно, держи код!

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  n, k:integer;
  f:boolean;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Vvedite chislo - ');
  readln(n);
  //n := 29;
  k := 2;
  f := false;
  repeat
    if (n mod k)=0 then
      f:=true;
    inc(k);
  until not (k<=sqrt(n));
  Writeln(f);
  readln;
end.

Оргомнейшее СПАСИБО!!!

[ByAlex]

Сообщение от Базиля

ByAlex
Молодец, да!
Ты лучший!

Спасибо, старался! )

[Базиля]

Только прежде чем выставлять код, желательно проверять его на правильность (если есть конечно возможность)
Если ты взял за основу код ТС то он неверный.

[Надежда_ИСУ]

Сообщение от Базиля

Только прежде чем выставлять код, желательно проверять его на правильность (если есть конечно возможность)
Если ты взял за основу код ТС то он неверный.

Вот и я что-то понять ничего не могу!!!Какая то гремучая смесь получилась

[ByAlex]

Сообщение от Базиля

Только прежде чем выставлять код, желательно проверять его на правильность (если есть конечно возможность)
Если ты взял за основу код ТС то он неверный.

Она просила перевести из C# в Dlephi - перевел с доработками. А код рабочий, проверял, простое или составное число прога определяет нормально.

А, все, въехал. Немного условие не правильно прочитал. Если простое, то true.
Вот исправил -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  n, k:integer;
  f:boolean;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Vvedite chislo - ');
  readln(n);
  k := 2;
  f := true;
  repeat
    if ((n mod k)=0) and (n <> k) then
      f:=false;
    inc(k);
  until not (k<=sqrt(n));
  Writeln(f);
  readln;
end.

Надежда, этот код должен быть правилен, проверьте! Первый код выводит true, если число составное, а второй наоборот.

[Базиля]

1-ый код вообще не понятно что делает
А второй код не определяет является ли число простым.

[ByAlex]

Сообщение от Базиля

1-ый код вообще не понятно что делает
А второй код не определяет является ли число простым.

А вы код то проверяли на компе?
Тестировал на этом коде -

for n:=2 to 15 do
begin
   k := 2;
   f := true;
   repeat
      if ((n mod k)=0) and (n <>k) then
        f:=false;
      inc(k);
   until not (k<=sqrt(n));
   Writeln(n, ' - ',f);
end;

Результат:
2 - TRUE
3- TRUE
4- FALSE
5- TRUE
6- FALSE
7- TRUE
8- FALSE
9- FALSE
10- FALSE
11- TRUE
12- FALSE
13- TRUE
14- FALSE
15- FALSE

Небольшая поправка к коду, нужно изменить условие, if (n mod k)=0 then на if ((n mod k)=0) and (n <>k) then ну и все, прога теперь будет работать нормально.

[Базиля]

ByAlex
А вы собственно проверяли?
Или быть может у нас разные понятия о простых числах?
P.S. У вас в коде ошибка, постарайтесь найти ее.

[ByAlex]

Сообщение от Надежда_ИСУ

Вот и я что-то понять ничего не могу!!!Какая то гремучая смесь получилась

Надежда, вы код то поняли или вообще запутались?

Сообщение от Базиля

ByAlex
А вы собственно проверяли?
Или быть может у нас разные понятия о простых числах?
P.S. У вас в коде ошибка, постарайтесь найти ее.

Что то, Базиля, вы меня путаете! А что вы считаете простыми числами, если не те, которые делятся на 1 и на самих себя?