Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Максим_Лост
3 / 3 / 2
Регистрация: 22.01.2010
Сообщений: 89
1

Изменить программу

12.03.2010, 10:32. Просмотров 328. Ответов 3
Метки нет (Все метки)

Дана последовательность из n натуральных чисел и натуральное число А. Найти в данной последовательности число, которое имеет самый большой наибольший общий делитель с числом А.
Изменить программу, чтобы сама последовательность была дана, а её не вводили:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
function NOD(m,n:integer):integer;
begin
while m<>n do
if m>n then m:=m-n else n:=n-m;
NOD:=m;
end;
var n,a,b,mx,d:word; i:integer;
begin
clrscr;
write(' введите число  ГЂ=');
readln(a);
write(' сколько чисел в последовательности n=');
readln(n);
write(' b1=');
readln(b);
mx:=Nod(a,b);
d:=b;
for i:=2 to n do
 begin
  write('b',i,'=');
  readln(b);
  if NOD(a,b)>mx then
   begin
    mx:=NOD(a,b);
    d:=b;
   end;
 end;
write('сам наиб нод с числом ', имеет число a,'   'нод,d,' =',mx);
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.03.2010, 10:32
Ответы с готовыми решениями:

Изменить программу.
Есть прога практически готовая, но кое что нужно изменить. Преподователь просил...

Изменить программу
Помогите изменить программу, чтобы получить фрактал на прикреплённом рисунке....

изменить программу
В одномерном массиве, состоящем из п целочисленных элементов, вычислить: 1)...

как изменить программу?
Как мне надо поменять программу, что бы все &quot;if&quot; были бы в функции? Условия...

Изменить готовую программу
Нужно изменить подпрограмму с function на Procedure function...

3
Shadow1308
3 / 3 / 1
Регистрация: 12.03.2010
Сообщений: 50
12.03.2010, 11:03 2
или я чего недогоняю, или ты не всё написал что в задании проситься, или программа неправильная.....Я в этой проге вообще никакой последовательности не наблюдаю=( И ещё переменная m - это что такое?Мне кажется что программа эта не вся.
0
Puporev
Модератор
54722 / 42128 / 29086
Регистрация: 18.05.2008
Сообщений: 99,442
12.03.2010, 11:53 3
Максим_Лост, Что-то ты гонишь от большого ума. Это только так пишется, что дана. А кто тебе ее даст, в каком виде?
Если очень хочется напиши массив-константу и его проверяй.
Shadow1308, Если ума нет, то и не лезь куда не просят.
0
AHTOCuK
8 / 8 / 4
Регистрация: 08.10.2009
Сообщений: 103
12.03.2010, 13:30 4
в смысле случайными числами заполнить последовательность?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.03.2010, 13:30

Изменить программу ввода
В программе написано что ввод числел производиться рандомно, но надо их вводить...

Как можно изменить программу?
program laba5; uses GraphABC; const n = 9; type MarkType1...

Изменить программу, чтобы в ней использовались рекуррентные последовательности
Как нужно изменить эту программу, чтобы в ней использовались рекуррентные...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru