Помоги решить задачки в Паскаль

[Dolphin]

Сообщение от sergeyf1

Даны натуральные числа a и b, причём b>0. Найти частное и остаток при делении a на b, оперируя лишь целыми числами и не используя операции div и mod, за исключением деления на 2 чётных чисел; число шагов не должно превосходить C1 log(a/b)+C2 для некоторых констант C1, C2.

int a, b, x, y;
x = a / b;
y = a % b;

div и mod не используются

[DarkUser]

Сообщение от Timur Rasulov

Не понимаю я таких условий... Скоро скажут "сопроцессор не юзать, память не юзать"....

Это-ж не производственные задачи, а для студентов... штоб их думать заставить... походу безрезультатно.

Сообщение от Timur Rasulov

div и mod не используются

fDiv:= 0;

while a > b do
begin
inc(fDiv);
a := a-b;
end;
fMod := a;

это без жесткого ограничения по числу шагов.
иначе по ходу цикла суммировать b и отнимать уже сумму, для уменьшения числа шагов.

[DarkUser]

Оффтоп:

Сообщение от Timur Rasulov

Скоро скажут "сопроцессор не юзать, память не юзать"....

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

[DarkUser]

Сообщение от sergeyf1

Составить программу на языке программирования и в блок-схеме.
Даны натуральные числа n и k, n>1. Напечатать k десятичных знаков числа 1/n. При наличии двух десятичных разложений выбирается то из них, которое не содержит девятки в периоде. Программа должна использовать только целые переменные.

Истина где-то рядом:

r := n;
l := 10;

write('0.');
for i := 0 to k - 1 do
begin
d := 0;

while r < l do
begin
l := l - r;
inc(d);
end;
l := l * 10;
write(d);
end;

[Nadir Zaitov]

Сообщение от DarkUser

Истина где-то рядом:

А не слишком сложно?

Readln(N);
Readln(K);
L:=1;
Write('0.');
for i := 1 to k do
      begin
          L:=L*10;
          write(L div N);
          L:=L mod N;
      end;
end.

[Nadir Zaitov]

Сообщение от DarkUser

это без жесткого ограничения по числу шагов. иначе по ходу цикла суммировать b и отнимать уже сумму, для уменьшения числа шагов.

 
Var M: Array[1..64] of Integer;
     A, B, N, X, i:Integer;
 
Begin
readln(A,B);
i:=0;
X:=B;
while A>X do
       begin 
           inc(i);
           M[i]:=X;
           X:=2*X; {в теории лучше сдвиг влево, но это не наглядно :)}
       end;
 
while A>B do
       begin
           if A>M[i] then begin
                                A:=A-M[i];
                                N:=N+2^i; {в теории опять-же лучше сдвиг:)}
                               end;
           dec(i)
       end;
writeln("A Div B:=";N);
writeln("A Mod B:=";A);
end.

[Nadir Zaitov]

Сообщение от sergeyf1

Составить программу на языке программирования и в блок-схеме. Дано натуральное число n>1. Определить длину периода десятичной записи дроби 1/n.

А эта задачка была на олимпиаде для школьников в наши годы Откудова сей перечень задачек?

[DarkUser]

Оффтоп:

Сообщение от Nadir Zaitov

А не слишком сложно?

Решил по аналогии с предыдущей не пользовать div и mod

[Nadir Zaitov]

Сообщение от sergeyf1

Дано натуральное число n>1. Определить длину периода десятичной записи дроби 1/n.

var A:array[1..1000] of Integer;
     L,i,j,N,K: Intger; 
begin
Readln(N);
L:=1;
i:=0;
While i>=0 do
      begin
          inc(i)
          L:=L*10;
          L:=L mod N;
          A[i]:=L;
          if i>1 than 
                      for j:=1 to i-1 do
                               if A[j]:=L than 
                                            begin
                                                K:=j-i;
                                                i:=-1;
                                            end;
      end;
Writeln(K);
end.

[Nadir Zaitov]

Сообщение от sergeyf1

Задача 8. Составить программу на языке программирования и в блок-схеме. Дан двумерный массив целых чисел. Найти количество различных чисел среди элементов этого массива.

Тут в теории: разложить двумерный массив в одномерный (пишете функцию, эммулирующую одномерный массив), далее сортируете члены в одномерном массиве стандартными методами. Далее одним циклом вычисляете сколько там одинаковых/различных элементов...