Алгоритм Эвклида (в чем ошибка) - Turbo Pascal - Ответ 4601581

@dimon4ikk · Регистрация: 23.05.2013

Author24 — интернет-сервис помощи студентам

вот программа

Pascal

Program prost_chisla;
uses crt;
const m=5000;
var
      A:array[1..m] of integer;
      P:array[1..50] of longint;
      k,z,x,c,x1,x2,n,i,v,z1,st:longint;
begin
{writeln(' vvenite n ot 1000 do 5000');
readln(n);}
n:=1001;
      clrscr;
      P[1]:=(3*5*7*11*13*17*19*23);
      P[2]:=(29*31*37*41*43);
      P[3]:=(47*53*59*61*67);
      P[4]:=(71*73*79*83);
      P[5]:=(89*97*101*103);
      P[6]:=(107*109*113*127);
      P[7]:=(131*137*139*149);
      P[8]:=(151*157*163*167);
      P[9]:=(173*179*181*191);
      P[10]:=(193*197*199*211);
      P[11]:=(223*227*229);
      P[12]:=(233*239*241);
      P[13]:=(251*257*263);
      P[14]:=(269*271*277);
      P[15]:=(281*283*293);
      P[16]:=(307*311*313);
      P[17]:=(317*331*337);
      P[18]:=(347*349*353);
      P[19]:=(359*367*373);
      P[20]:=(379*383*389);
      P[21]:=(397*401*409);
      P[22]:=(419*421*431);
      P[23]:=(433*439*443);
      P[24]:=(449*457*461);
      P[25]:=(463*467*479);
      P[26]:=(487*491*499);
      P[27]:=(503*509*521);
      P[28]:=(523*541*547);
      P[29]:=(557*563*569);
      P[30]:=(571*577*587);
      P[31]:=(593*599*601);
      P[32]:=(607*613*617);
      P[33]:=(619*631*641);
      P[34]:=(643*647*653);
      P[35]:=(659*661*673);
      P[36]:=(677*683*691);
      P[37]:=(701*709*719);
      P[38]:=(727*733*739);
      P[39]:=(743*751*757);
      P[40]:=(761*769*773);
      P[41]:=(787*797*809);
      P[42]:=(811*821*823);
      P[43]:=(827*829*839);
      P[44]:=(853*857*859);
      P[45]:=(863*877*881);
      P[46]:=(883*887*907);
      P[47]:=(911*919*929);
      P[48]:=(937*941*953);
      P[49]:=(967*971*977);
      P[50]:=(983*991*997);
      z:=4701;
      while z<=5001 do
       begin
        for x:=1 to 50 do
         begin
          k:=P[x];
           while (v=1)or (v<> 0)  do
            begin
             v:=(k mod z) ;
             k:=z;
             z:=v;
            end;
          if v=0 then x:=z+2;
          if v=1   then x:=x+1;
       end;
        if (v=1) and (x=50) then
            begin
            A[i]:=z;
            z:=z+2;
           end;
       if v=0 then z:=z+2;
       end;
 
    for i:=1001 to 5000 do
      writeln ('A[i]=',A[i]);
      readkey;
      end.

в этой части никогда не получает 1-это алгоритм Эвклида в результате выполнения которого должно получиться 0 или 1. помогите с этой проблемой.

Вернуться к обсуждению:
Алгоритм Эвклида (в чем ошибка) Turbo Pascal

Следующий ответ

Другие темы раздела
Turbo Pascal Сумма цифр в строке,без использования string https://www.cyberforum.ru/ turbo-pascal/ thread875513.html Доброго времени суток.Необходимо найти сумму цифр в строке введенной с клавиатуры, ввод строки осуществляется посимвольно(без использования string) ввод заканчивается точкой.Например из посимвольно введенной строки gfndu5v6d21f. полученный результат должен быть 14. Заранее благодарен.	Не работает процедура Turbo Pascal Добрый день!! Вот код uses crt begin sound(300); end. При включение комп пищит, при вытащенной оперативы пищит, короче пищалка работает, но вот эта процедура ни как не хочет хапускать писк!! При это побывал на 7 и на 2 xp без разнице что за дела!??
Turbo Pascal Создать массив натуральных трёхзначных чисел. Открыть файл для редактирования. В новый файл сохранить числа кратные трём Доброе утро. Помогите пожалуйста. Создать массив натуральных трёхзначных чисел. Открыть файл для редактирования. В новый файл сохранить числа кратные трём. Спасибо) https://www.cyberforum.ru/ turbo-pascal/ thread875466.html	Turbo Pascal Turbo Pascal. Упорядочить массив по возрастанию методом Шелла Дан массив А(20). Упорядочить массив по возрастанию методом Шелла. Помогите пожалуйста https://www.cyberforum.ru/ turbo-pascal/ thread875454.html
Дана квадратная матрица порядка n. Получить матрицу A^2 . (Определить функцию возведения матрицы в квадрат.) Turbo Pascal Дана квадратная матрица порядка n. Получить матрицу A^2 . (Определить функцию возведения матрицы в квадрат.) Помогите плз))) Срочно надо!!	Turbo Pascal Текстовый файл(записи) https://www.cyberforum.ru/ turbo-pascal/ thread875411.html Доброго времени. Помогите разобраться. Нужно ввести в текстовый файл наборы код магазина - ФИО директора если файл типизированный, то все выходит без проблем. Вот: type spr=record kmag:integer; FIO:string; end; procedure sprav_vvod; label l1; var f:file of spr;
Turbo Pascal Определить, сколько раз встречается заданная строка текста в текстовом файле Задана строка текста. Определить, сколько раз встречается эта строка текста в текстовом файле. https://www.cyberforum.ru/ turbo-pascal/ thread875360.html	Создание меню Turbo Pascal image
Turbo Pascal Описать функцию Max(A,B,C) вещественного типа, находящую максимальное из трех вещественных чисел A, B и C Доброй ночи! Решите пожалуйста: 1. Создать массив натуральных трёхзначных чисел. Открыть файл для редактирования. В новый файл сохранить числа кратные трём. 2. Описать функцию Max(A,B,C) вещественного типа, находящую максимальное из трех вещественных чисел A, B и C. С помощью этой функции найти максимальные из наборов (A,B,C), (A,B,D), (A,C,D), если даны числа A, B, C, D. Заранее... https://www.cyberforum.ru/ turbo-pascal/ thread875300.html	Turbo Pascal Вычислить значение выражения https://www.cyberforum.ru/ turbo-pascal/ thread875247.html Записать на языке Pascal следующие числа (в дробной части указывать до 4 цифр) а) 5! б) LXIV в) 6,38; г) -0,7 (4) д) 11/4, е) 1/6; ж) v2; ы) 5.10 в 6 степени.
табулирование функции Turbo Pascal помогите пожалуйста!!! Составить 2 программы, выполняющие табулирование функции Y= ┌ │ 1+sin(x) , при x < 0, ┤ 5+x^3 , при 0 <= x <= 2, │ │ 2+ (корень из) sin(x) , при x > 2 └ на интервале с шагом h (a,b,h вводятся с клавиатуры);	Turbo Pascal Составить программу для вычисления значений заданной функции https://www.cyberforum.ru/ turbo-pascal/ thread875209.html Задал лабораторные, но некоторые задания вызывают у меня затруднения (вроде и легкие, но не получаются), прошу Вас помочь, буду крайне признателен. Заранее спасибо! leshiikeha, обращаю Ваше внимание на правила форума: 1. Множественные задания в одной теме запрещены правилами форума. Для каждой задачи создавайте отдельную тему. 2. Текстовые задания набирайте вручную, формулы - в редакторе...

	23.05.2013, 10:55