Архив форума ЛГ - Программирование

Программирование

Silent_Hill

Назад к темам раздела.

2009-09-15 11:00:48

Silent_Hill

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

1. Найти ромб наибольшей площади с вершинами в заданном множестве точек на плоскости

2. Найти такие основания систем счисления x, y, в которых Ax = By (x, y - основание) A, B, - натуральные числа, состоящие не более чем из 6 цифр, которые записаны с помощью цифр от 0 до 9 в системах счисления с основанием x и y соответственно. Числа A и B программа запрашивает. количество цифр в числе A может отличаться от количества цифр в числе B. Найти такие основания систем счисления x, y, в которых Ax = By (x, y - основание), A, B - натуральные числа состоящие не более чем из 6 цифр, которые записаны с помощью цифр от 0 до 9 в системах счичления с основанием x и y соответственно. Числа A и B программа запрашивает. Количество цифр в числе A может отличатся от количества цифр в числе B.

2009-09-15 16:04:23

Yesjoke

Silent_Hill, тип данных везде longint, чтоб не париться, если надо будет, поменяешь сам)

program p2;
var a,b,x,y:longint;

function toten(a,x:longint):longint;
begin
if a div 10=0 then toten:=a
else toten:=(a mod 10) + x*toten(a div 10,x);
end;

procedure BM(a,b:longint; var x,y:longint);
var a1,b1:longint;
begin
repeat
begin
a1:=toten(a,x);
b1:=toten(b,y);
if a1>b1 then y:=y+1;
if a1<b1 then x:=x+1;
end;
until a1=b1;
end;

function minraz(a:longint):longint;
var min:longint;
begin
min:=0;
while a>0 do
begin
if a mod 10>=min then min:=(a mod 10)+1;
a:=a div 10;
end;
minraz:=min;
end;

Begin
a:=40;
b:=100000;
x:=minraz(a);
y:=minraz(b);
BM(a,b,x,y);
writeln(x,' ',y);
End.

2009-09-15 16:05:35

Yesjoke

Silent_Hill, еще ввод с клавы для чисел А и В сделаешь сам))

2009-09-15 16:06:34

Yesjoke

Silent_Hill, и еще вопрос - как в первой задаче задается множество точек на плоскости?

2009-09-16 15:39:48

Yesjoke

2009-09-16 22:25:43

zlotty

а мне казалось что не так.. хм

2009-09-17 05:00:45

Yesjoke

zlotty
а ты код проверь ;-)

2009-09-17 05:09:40 B-baller

zlotty
аха.. проверь проверь... дашка почти никогда не ошибаетсо..

2009-09-17 11:59:31

Silent_Hill

Yesjoke
Точки задаются массивом. Координаты х и у

2009-09-17 14:37:32

Yesjoke

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

2009-09-17 15:08:44

Yesjoke
Silent_Hill
в уме решаецца вся кодировка (( писать влом((

2009-09-17 20:30:28

Silent_Hill

Yesjoke
конечно скажу))... а ты мне скажи что будет стоить? просто врядли 9 леву от 5 нежно золото

2009-09-18 11:35:26

Yesjoke

Silent_Hill
ой) глупости какие) ниче не будет стоить, можешь ромашки мне подарить разве что))))))))

2009-09-20 15:07:56

Silent_Hill

Yesjoke
Ты мне ещё поможешь ?

2009-09-21 19:23:55

Yesjoke

Silent_Hill
когда надо сдать задачку?

2009-09-21 23:55:44

Silent_Hill

на этой неделе

2009-09-22 00:25:25

lomea_ranyar

Silent_Hill
ок, вообщем как решить я поняла, завтра-послезавтра код выложу

2009-09-22 00:28:37

Yesjoke

Silent_Hill
стукни мне 411853789

2009-09-25 09:56:44

Silent_Hill

lomea_ranyar
а сёня уже после-после завтра

2009-09-25 14:19:21

zlotty

lomea_ranyar
аяяй