задача по Паскаль... - Помощь студентам

Вера123 · 09.06.2009, 20:59

Найти наибольший общий делитель трех натуральных
чисел, имея в виду, что НОД (а, b, с) = НОД (НОД (а, b), с).
При решении определите функцию для расчета наибольшего общего делителя двух натуральных чисел, используя алгоритм Евклида.
(это из раздела подпрограмм)....вот я пробовала...

Код:

program nod;
var  d,f : real;

	function o(a,b,c : integer): real;
        begin
        writeln ('vvedite 1 chuslo');
	read (a);
	writeln ('vvedite 2 chuslo');
	read (b);
	writeln ('vvedite 3 chuslo');
	read (c);
	d:= a/b ;
        f:= d/c ;
    if f=0 then writeln ('');
end.

Sazary · 09.06.2009, 21:08

http://ru.wikipedia.org/wiki/Алгоритм_Евклида
http://algolist.manual.ru/maths/teornum/nod.php

Вера123 · 09.06.2009, 21:13

я это видела....я немогу это сделать....помоги...

Sazary · 09.06.2009, 21:20

http://programmersforum.ru/showthread.php?t=46783
http://programmersforum.ru/showthread.php?t=50397
http://programmersforum.ru/showthread.php?t=47459

Пользуйтесь поиском!

09.06.2009, 20:59	#1
Вера123 Пользователь Регистрация: 09.06.2009 Сообщений: 18	задача по Паскаль... Найти наибольший общий делитель трех натуральных чисел, имея в виду, что НОД (а, b, с) = НОД (НОД (а, b), с). При решении определите функцию для расчета наибольшего общего делителя двух натуральных чисел, используя алгоритм Евклида. (это из раздела подпрограмм)....вот я пробовала... Код: `program nod; var d,f : real; function o(a,b,c : integer): real; begin writeln ('vvedite 1 chuslo'); read (a); writeln ('vvedite 2 chuslo'); read (b); writeln ('vvedite 3 chuslo'); read (c); d:= a/b ; f:= d/c ; if f=0 then writeln (''); end.`

09.06.2009, 21:08	#2
Sazary В тени Старожил Регистрация: 19.12.2008 Сообщений: 5,788	http://ru.wikipedia.org/wiki/Алгоритм_Евклида http://algolist.manual.ru/maths/teornum/nod.php Вполне очевидно, чтобы что-то понять, необходимо книги читать. Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]

09.06.2009, 21:20	#4
Sazary В тени Старожил Регистрация: 19.12.2008 Сообщений: 5,788	http://programmersforum.ru/showthread.php?t=46783 http://programmersforum.ru/showthread.php?t=50397 http://programmersforum.ru/showthread.php?t=47459 Пользуйтесь поиском! Вполне очевидно, чтобы что-то понять, необходимо книги читать. Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задача на паскаль	St1fler92	Помощь студентам	2	27.05.2009 00:19
Задача Паскаль	rAbb1t	Помощь студентам	7	26.05.2009 23:52
Задача по паскаль.	aleksandr_dss	Помощь студентам	1	31.12.2008 00:09

09.06.2009, 21:13	#3
Вера123 Пользователь Регистрация: 09.06.2009 Сообщений: 18	я это видела....я немогу это сделать....помоги...