Паскаль Циклы И Числа

Тема в разделе "Pascal and Delphi", создана пользователем -, 3 фев 2012.

  1. Гость

    на паскале

    Найти и вывести на экран 5 простых чисел больших некоторого заданного числа K.

    Код (Delphi):
    program one;
    uses crt;
    var k,n,x,i,j,b:integer;
    begin clrscr;
    write('vv k = '); read(k);
    x:=0;
    b:=15+k;
    while x>5 do
    begin
    for i:=2 to b do begin
    n:=0;
    for j:=2 to trunc(sqrt(i)) do begin
    if i mod j =0 then inc(n);
    if (n=0) and (i>k) then begin writeln(i:4); x:=x+1;end; end;
    end;
    end;
    readkey;
    end.
     
  2. acorn

    acorn PHP Developer

    Регистрация:
    29 авг 2004
    Сообщения:
    599
    Симпатии:
    3
    вопрос номер раз: для чего нужна переменная b?
     
  3. Cambur

    Cambur Active Member

    Регистрация:
    20 июн 2010
    Сообщения:
    27
    Симпатии:
    0
    логическая ошибка
    цикл не будет выполняться, потому что х меньше 5...
    поменяй ">" на "<"

    :(
     
  4. Гость

    она используется в цикле с параметром

    Добавлено:
    аа поняла спасибо большое=))
     
  5. acorn

    acorn PHP Developer

    Регистрация:
    29 авг 2004
    Сообщения:
    599
    Симпатии:
    3
    для чего? почему именно +15? просто логики в вашем алгоритме ни капельки..
     
  6. Senset

    Senset Well-Known Member

    Регистрация:
    11 сен 2006
    Сообщения:
    136
    Симпатии:
    0
    потому что нужны числа большие, чем k... если не видите логику... а не важно

    хотя вы конечно немного переусердствовали с циклами...
    Код (Delphi):
    uses crt;

    var k,b,n,i:integer;
    is_simple:boolean;

    begin
    clrscr;
    write('vv k=');read(k);
    n:=0;
    b:=k+1;
    while n<5 do
    begin
    i:=2;
    is_simple:=true;
    while (is_simple)and(i<=trunc(sqrt(b))) do
    begin
    if b mod i=0 then is_simple:=false;
    i:=i+1;
    end;
    if is_simple then
    begin
    writeln(b);
    n:=n+1;
    end;
    b:=b+1;
    end;
    readkey;
    end.
     
Загрузка...
Похожие Темы - Паскаль Циклы Числа
  1. vovanabali
    Ответов:
    0
    Просмотров:
    539
  2. sonia2000
    Ответов:
    0
    Просмотров:
    965
  3. FaRReLL
    Ответов:
    0
    Просмотров:
    859
  4. dron128
    Ответов:
    1
    Просмотров:
    1.217
  5. Deadsven
    Ответов:
    0
    Просмотров:
    1.084

Поделиться этой страницей