IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> алгоритм евклида
сообщение
Сообщение #1


ыыыыщщщщщщыыыы
**

Группа: Пользователи
Сообщений: 68
Пол: Мужской
Реальное имя: Иван

Репутация: -  0  +


условие в прикрепленном файле.
вот то что сделал, дальше что делать не врубаюсь
uses crt;
function nod(a, b:longint):longint;
begin
if (a=0) or (b=0) then if a=0 then nod:=b
else nod:=a
else if a >= b then nod:=nod(a mod b,b)
else nod:=nod(a,b mod a);
end;
var f,g,i:integer;
ff,aa:array[1..1000] of integer;
begin
clrscr;
read(f,g);
ff[1]:=f;
ff[2]:=g;
i:=2;
while ff[i] mod ff[i-1]>0 do
begin
inc(i);
ff[i]:=ff[i-1] mod ff[i-2];
aa[i]:=ff[i-1] div ff[i-2];
end;
readkey;
end.



Сообщение отредактировано: Feagor -


Эскизы прикрепленных изображений
Прикрепленное изображение

--------------------
Никогда не задавайте вопрос, если не уверены, что хотите получить ответ...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


Ой smile.gif Да, конечно.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Feagor   алгоритм евклида   10.01.2008 19:28
Tan   Тут материал с пояснением.   10.01.2008 19:43
Feagor   2 Tan - посмотри внимательно задание, и посмотри п…   10.01.2008 20:06
Tan   Алгоритм Евклида - это поиск наибольшего общего де…   10.01.2008 20:22
Michael_Rybak   Tan, имеется ввиду расширенный алгоритм Эвклида. П…   10.01.2008 21:38
Feagor   2 Michael_Rybak в каком объяснении?я туплю?=) а с …   10.01.2008 23:59
Michael_Rybak   б) - сократи уравнение на нод и подумай что дальше…   11.01.2008 0:01
Feagor   спасип, буду разбиратся! понял на счет объясне…   11.01.2008 0:03
Feagor   после десятикратного прочтения объяснения, до сих …   11.01.2008 0:24
Michael_Rybak   u=s[n] v=p[n]   11.01.2008 1:15
Feagor   а n- это последний член? или как?   11.01.2008 15:11
Feagor   по материалам algolist.manual.ru решил сделать вот…   11.01.2008 16:18
Michael_Rybak   работает неправильно на каком тесте?   11.01.2008 16:19
Feagor   2 Michael_Rybak попровил свои кривые ручки - зараб…   11.01.2008 16:41
Michael_Rybak   про б я тебе уже сказал что делать.   11.01.2008 16:50
Feagor   ну вот смотри, берем уравнение fu+gv=nod(f,g) дели…   11.01.2008 17:04
Michael_Rybak   Не совсем так. Тебе нужно вычислить не m, k и l -…   11.01.2008 17:49
Feagor   может не нод(x,y), а нод(k,l)?   11.01.2008 17:54
Michael_Rybak   Ой :) Да, конечно.   11.01.2008 18:17
Feagor   вот что получилось:uses crt; procedure nod(a, b:l…   11.01.2008 18:26
Michael_Rybak   :) всегда рад :)   11.01.2008 19:16


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 22:42
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name