Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.05.2011, 23:23   #1
in da fly
Новичок
Джуниор
 
Регистрация: 26.05.2011
Сообщений: 2
По умолчанию Программа для поиска простых, простых парных и взаимнопростых чисел

нужно создать программу на delphi которая будет выводить на экран один и видов чисел из заданного диапазона (от 2 до N ). Так же кто может перевести данную программу с++ вот исходный код:
Код:
#include <iostream>
using namespace std;
 
int prost (int x)
{
        int y;
        for (y=2; y<=x/2; y++)
                if (!(x%y)) 
                        return 0;
        return 1;
}
int main()
{
        int i, j, n, k, l;
        cout<<"Enter n: ";
        cin>>n;
        cout<<" 1. Prostye.\n 2. Prostie parnie\n 3. Vzaimno prostie\n";
        cin>>j;
        switch (j)
        {
                case 1:
                        for (i=2; i<n; i++)
                        {
                                k=prost (i);
                                if (k)
                                        cout<<"Prostoe chislo: "<<i<<endl;
                        }
                        break;
                case 2:
                        for (i=2; i<n; i++)
                        {
                                k=prost(i);
                                l=prost(i+2);
                                if (k && l)
                                        cout <<"prost. parn. number "<<i<<" "<<i+2<<endl;
                        }
                        break;
                case 3:         
                        for (j=2; j<n; j++)
                                for (i=n; i>j; i--)
                                {
                                        k=prost(j);
                                        l=prost(i);
                                        if (k && l)
                                                cout <<"vzaimno prost. number "<<j<<" "<<i<<endl;
                                }
                        break;
 
        }
        return 0;
}

Последний раз редактировалось in da fly; 26.05.2011 в 23:31.
in da fly вне форума Ответить с цитированием
Старый 26.05.2011, 23:30   #2
in da fly
Новичок
Джуниор
 
Регистрация: 26.05.2011
Сообщений: 2
По умолчанию

Вот нашёл ещё кое что для помощи :
Взаимно простые
Delphi..
Код:

Код:
procedure TForm1.Button1Click(Sender: TObject);
var a,b : integer;
begin
 a := strtoint(edit1.Text);
 b := strtoint(Edit2.Text);
  while a<>b do
    if a > b then a := a - b
     else b := b-a;
   if a = 1 then Label1.Caption:= 'Взаимно просты' else
                Label1.Caption:= 'Не являются взаимно простыми'
end;
end.
паскаль простые парные :
Код:
  
 1.
      program Vremya_04_03_07;
   2.
      uses crt;
   3.
      var a,b,i,k,j:integer;
   4.
      mas:array[1..1000] of integer;
   5.
      fl:boolean;
   6.
      begin
   7.
      clrscr;
   8.
      repeat
   9.
      write('a = ');
  10.
      readln(a);
  11.
      until a >= 0;
  12.
      repeat
  13.
      write('b = ');
  14.
      readln(b);
  15.
      until b > a;
  16.
      k := 0;
  17.
      for i := a+1 to b-1 do
  18.
      begin
  19.
       fl := true;
  20.
       for j := 2 to i - 1 do
  21.
        if i mod j = 0 then fl := false;
  22.
       if fl then
  23.
        begin
  24.
         k := k + 1;
  25.
         mas[k] := i;
  26.
        end;
  27.
      end;
  28.
      writeln('Polucenye pary prostyh chisel: ');
  29.
      for i := 1 to k-1 do
  30.
      for j := i to k-1 do
  31.
       if mas[j+1] - mas[i] = 2 then writeln(mas[i],' ',mas[j+1]);
  32.
      readkey;
  33.
      end.
и простое
вариант 1.
Код:
function IsProstoe(N: LongInt): boolean;
var
i: integer;
begin
IsProstoe := true;
if abs(N) < 3 then
exit;
for i := 2 to abs(N) - 1 do
if abs(N) mod i = 0 then
begin
IsProstoe := false;
exit;
end;
end;
вариант 2.
Код:
{ Составить программу печати всех простых чисел до 500 }
const LIMIT = 500;
var i,j,lim : word;
begin
for i:=1 to LIMIT do begin
j:=2; lim:=round(sqrt(i));
while (i mod j <> 0) and (j <= lim) do inc( j );
if (j > lim) then write( i,' ' );
end;
end.
in da fly вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
генерация простых чисел для RSA Coraline Помощь студентам 1 16.05.2011 14:49
массив из простых чисел amikulia Помощь студентам 1 14.01.2011 13:07
напечатать распределение простых чисел по сотням с указанием их количества в сотне для интервала от 1 до Настёна_19 Помощь студентам 10 26.12.2010 02:45
Оптимизация поиска простых чисел adokS Общие вопросы C/C++ 1 06.11.2010 15:51
поиск простых чисел методом решета.программа на С или С++ из_семи Помощь студентам 2 25.02.2009 20:56