delphi, легкие задачки

[KaZaaM]

написать программу для вычисления НОД и НОК двух целых чисел:

вобщем по ноду я написал, а вот чет по ноку ваще сообразить не могу, пример нода:

PHP код:

procedure TForm2.Button1Click(Sender: TObject);
  var
    a,b,c,i:integer;
    s:string;
  begin
    a:=StrToInt(Edit1.Text);
    b:=StrToInt(Edit2.Text);
    if a>b then
      begin
        while(a mod b<>0) do
          begin
            c:=a mod b;
            a:=b;
            b:=c;
          end;
        s:=Edit1.text+' и '+Edit2.text+' НОД:'+IntToStr(b);
      end
    else if a<b then
      begin
        while(b mod a<>0) do
          begin
            c:=b mod a;
            b:=a;
            a:=c;
          end;
        s:=Edit1.text+' и '+Edit2.text+' НОД:'+IntToStr(a);
      end
    else if a=b then
      begin
        c:=a;
        s:=Edit1.text+' и '+Edit2.text+' НОД:'+IntToStr(c);
      end;
    i:=i+1;
    Memo1.Lines.Add(s);
  end;

end. 


и еще 2 задачки:
описать функцию digits(n), подсчитывающую количества различных цифр в десятичной записи натурального числа n. (использовать множества)

дано: var s:string[80];
написать программу, позволяющую определить, каких латинских букв гласных или согласных- больше в этой строке. (исользовать множества)

ПС: задачи простые на самом деле, просто времени нету вообще, зачеты блин, хватило тока на нод, за ранее спасибо, тем кто поможет чем сможет

[KaZaaM]

up

[tools]

Вот:

var
x,y:integer;

function NOD(x,y:integer):integer;
begin
if x=y then NOD:=x;
while x<>y do
     begin
       if x>y then
         x:=x-y
       else
         y:=y-x;
     end;
NOD:=x;
end;


begin
 writeln('Введите два числа:');
 readln(x,y);
 writeln('NOD:',NOD(x,y));
 writeln('NOK:',(x*y)/NOD(x,y));
 readln;
end.

[mihali4]

Правила форума читал? "Чудо"...
Неужели нельзя было дать теме нормальное название?
В этих случаях, между прочим, "деловые" (то есть соображающие) чаще откликаются.
Ведь в правилах четко сказано...

2.При создание новых тем запрещено:

2.1 Создавать темы с названиями, которые не отражают смысл сообщения

Усек?
Успехов.
Только больше не попадайся...
Хотел забанить, но почему-то пожалел...

[IT-man]

{описать функцию digits(n), подсчитывающую количества различных цифр в десятичной записи натурального числа n. (использовать множества)}
function digits(n:Longint):integer;
 var
 b:set of byte;
 c:integer;
 begin
 c:=0;
 b:=[];
 while n<>0 do begin
 if not (n mod 10 in b) then begin
 b:=b+[n mod 10];inc(c);
 end;
 n:=n div 10;
 end;
 digits:=c;
 end;

{дано: var s:string[80];
написать программу, позволяющую определить, каких латинских букв гласных или согласных- больше в этой строке. (исользовать множества)}
 var a:set of char;
     b:set of char;
	 I:integer;
	 s:string;
	 C:integer;
  begin
  c:=0;
  a:=[ 'A'..'z'];
  b:=['E','Y','U','O','A','I','e','y','u','o','a','i'];
  readln(s);
  for i:=1 to length(s) do
   if (s[i] in a) and (s[i] in b) then inc(c)
   else if s[i] in a then dec(c);
  if c>0 then writeln('gl')
   else if c<0 then writeln('sogl')
   else writeln('odinakovo');
   readln;
  end.

[KaZaaM]

михалыч спс и сори за такую тему, больше не буду)