Помогите с Pascal, помогите решить задачки) Поделиться Опции

[Star_cas]

Здрасте всем! Завтра отчёт а вот не могу решить две задачки, может кто поможет?!

(Решить надо и через while и через Repeat, но решите хотяб одним... а там я дальше)
1) Последовательность целых положительных чисел а0,а1...аn строится так:
если аn чётно , то аn+1=an/2
если аn нечётно, то an+1=3 * an+1
Найти минимальное n , для которого an=1, если
а) a0=27
б) а0=2000007

2) Описать процедуру swap(A, B ), Меняющую местами максимальные элементы матриц А и В (Считать что в матрице только один max элемент).

Буду очень благодарен!

PS советы типо иди учи прошу оставить при себе!

Сообщение отредактировал Star_cas - 12.12.2008, 9:04

[Fenja]

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

1) Последовательность целых положительных чисел а0,а1...аn строится так:
если аn чётно , то а( n+1) =an/2
если аn нечётно, то a( n+1) = 3 * a(n +1 )
Найти минимальное n , для которого an=1, если
а) a0=27
б) а0=2000007

так?

Сообщение отредактировал Fenja - 12.12.2008, 10:50

[Star_cas]

Еще один за день до сдачи проснулся

ммм... ну не проснулся... просто решить сам не смог....

это индексы.... типо диапозон от A(нулевое) до А(н-ное).... то что ты указал в скобки это маленькими пишется.... вот типо степени тока снизу

PS сам в шоке, как я объянил)))) но как-то так!))

[Valeo]

решить сам не смог....

Ты хоть пробовал????
Ладно рассказывать. Типо сами не были студентами

[Star_cas]

Valeo, чесно скажу что пробывал.... и не один я)))) суть программы номер один мне вообще не ясен.... а вот вторая просто не по силам

[Fenja]

Star_cas,
пробовал... вспомнил чуток поскаль, написал прогу но он ругается... в чем косяк не пойму..

[Star_cas]

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

[Fenja]

может я там что то правильно написал... а про процеду я тока помню что она есть

[FMC]

A и B - это две разные матрицы, или максимальные элементы одной матрицы? А то я что-то недопонял немного

В общем если это 2 матрицы, то будет выглядеть как-то так:

Код

type matrix=array [1..10,1..10] of real;
var a,b: matrix;
procedure swap(var A,B: matrix);
var x,y,r1,r2,c1,c2: integer;
      maxA,maxB: real;
begin
maxA:=A[1,1];
maxB:=B[1,1];
for x:=1 to 10 do
for y:=1 to 10 do begin
if A[x,y]>maxA then begin
r1:=x;
c1:=y;
maxA:=A[x,y];
end;
if B[x,y]>maxB then begin
r2:=x;
c2:=y;
maxB:=B[x,y];
end;
end;
A[r1,c1]:=maxB;
B[r2,c2]:=maxA;
end;

Сообщение отредактировал FMC - 12.12.2008, 16:28

[mEASYn]

ладно уж, подскажите и мне тогда. задача лабы примитивна : делим (ну или выполняем другие операции) целочислено два числа в формате 8-битное знаковое (это важно) и заносим результат в переменную такого же вида.
суть такова, нужно объяснить почему например при сложении 127 (1111111 в двоичном) и 1 получается -128. Объясняем что 111 1111 + 1=1000 0000 , то есть -128 в десятичном если это 8-битное знаковое число, переполнение сетки битов и тд.
я все не могу понять почему при делении 255 (11111111 (не укладывается в диапазон значений поэтому вводим в двоичной форме) ) на 4 (100) получается -1 (11111111). такая вот глупость.

[Fenja]

mEASYn,
я поделил виндовым кулькулятором 11111111 на 100 и получил 111111
т.е 255 поделил на 4 получил 63 или я чего то не понял

[mEASYn]

Fenja,
я специально написал

(это важно)

после важной фразы, смысл лабы - в изучении ошибок при машинном вычислении.

[FMC]

дак у тебя ж из-за того, что разрядов не хватает, 255 получается ты представляешь как 11111111, что в 8битном формате со знаком выглядит при переводе в десятичную систему как -1, а т.к. -1 на 4 нацело никак не поделить, вот у тебя и получается -1 в ответе... по-моему так

[mEASYn]

FMC,
почему бы тогда не получить в ответе ноль? однако результат -1 уже есть в таблице с правильными ответами, нужно только его внятно объяснить.

[FMC]

FMC,
почему бы тогда не получить в ответе ноль? однако результат -1 уже есть в таблице с правильными ответами, нужно только его внятно объяснить.

Тогда мб он остаток записывает в свободные разряды? =)))

[mEASYn]

уличная магия какая то, но доказательство которое начинается с "может быть" препода не устроит(

[eug]

mEASYn, объяснить можно так:
целочисленное деление подчиняется соотношению делимое = частное * делитель + остаток, остаток < делителя
имеем твое 255 - это -1 в представлении 8-битное знаковое, -1 = -1 * 4 + 3
поэтому препод и может получить -1 при делении

[mEASYn]

не препод может а прога может))