операции со знаками Опции

[maksimla]

6 задание
Арифметическое значение a О b О c О d О e = r операции в знаках закрыты. Тут можно будет использовать здоровых чисел операций + , - ,* , div, mod.

Напишите правильную программу которая нашла бы какие должны быть операций знаках чтобы уравнение было бы правильное.

Первичные данные записаны в файле duom.txt На одной единственной строчке написаны отделенные пробелом здоровые числа a, b, c, d, e, r (a, b, c, d, e, r ≤ 3000).

Результат - полученое значение или слово - нельзя - записываются в файл rez.txt. Все элементы отделены одним пробелом.

Внимание Промежуточных подсчета результатов непереходят int64 .
первичные данные
4 3 2 3 1 6
результат
4 mod 3 + 2 * 3 – 1 = 6
Что еще за тип int64?
тут как то примерно как и в этом задание задача подсчет чтобы то число найти

[amega]

Что еще за тип int64?

о типах в делфи из ссправки скопировал:

Generic integer types for 32-bit implementations of Delphi  
Type	Range	Format
Integer	-2147483648..2147483647	signed 32-bit
Cardinal	0..4294967295	unsigned 32-bit
Fundamental integer types include Shortint, Smallint, Longint, Int64, Byte, Word, and Longword.

Fundamental integer types  
Type	Range	Format
Shortint	-128..127	signed 8-bit
Smallint	-32768..32767	signed 16-bit
Longint	-2147483648..2147483647	signed 32-bit
Int64	-2^63..2^63-1	signed 64-bit //<------------------------------------- вот твой тип
Byte	0..255	unsigned 8-bit
Word	0..65535	unsigned 16-bit
Longword	0..4294967295	unsigned 32-bit

[maksimla]

а тут паскаль у меня можешь тогда подробнее написать то я непонимаю все что с знаком связано ^

[Lapp]

я непонимаю все что с знаком связано ^

Этим знаком для простоты обозначается степень:
2^63 = 2⁶³ = 9223372036854775808

[maksimla]

ого какая степень большая. Странно только почему так если все немогут превышать 3000 то и промежуточные результаты меньше будут непонел я зачем мне это написали в задании

[volvo]

У тебя 5 чисел... Если каждое число будет максимальным, то максимально возможный результат будет равен 3000*3000*3000*3000*3000 = 3000⁵ = 243000000000000000, промежуточный - чуть меньше, но тебе гарантировали, что любой промежуточный результат поместится в Int64, то есть, только этот тип ты можешь использовать без опаски...

[maksimla]

тогда вот такой вопрос (r ≤ 3000). там было написано это значит что результат не превышает 3000 как я понял и все можно в word тип поместить и результат наверное тоже но надо подумать как считать это все вот я этого и не знаю

считать если начать с перебора с подставление знаков то тогда может тип Int64 понадобится тоесть сперва так идут a + b + c + d + e = r потом a + b + c + d - e = r ну и так далее

а если будим както так перебирать a + b сравниваем с r и насколько больше или меньше но неможет быть больше 3000 и тогда подставляем a + b - c и опять сравниваем или так как-то нельзя?

[Lapp]

Вот возможное решение.

const
  nPar=5;
  nOper=5;
  Opers: array[0..nOper-1]of string=('+','-','*','div','mod');

var
  Par,Par0: array[0..nPar-1]of Int64;
  Oper,Oper0: array[0..nPar]of word;
  i,m: word;
  r,r0,t: Int64;
  f: text;

begin
  Assign(f,'duom.txt');
  ReSet(f);
  for i:=0 to nPar-1 do Read(f,Par0[i]);
  Read(f,r0);
  Close(f);
  for i:=0 to nPar do Oper0[i]:=0;
  m:=0;
  repeat
    Par:=Par0;
    Oper:=Oper0;
    for i:=1 to nPar-1 do case Oper[i] of
      2: begin
        Par[i]:=Par[i-1] * Par[i];
        Par[i-1]:=0;
        Oper[i]:=Oper[i-1]
      end;
      3: begin
        Par[i]:=Par[i-1] div Par[i];
        Par[i-1]:=0;
        Oper[i]:=Oper[i-1]
      end;
      4: begin
        Par[i]:=Par[i-1] mod Par[i];
        Par[i-1]:=0;
        Oper[i]:=Oper[i-1]
      end
    end;
    r:=Par[0];
    for i:=1 to nPar-1 do case Oper[i] of
      0: r:=r+Par[i];
      1: r:=r-Par[i]
    end;
    if r=r0 then begin
      Write(Par0[0]);
      for i:=1 to nPar-1 do Write(' ',Opers[Oper0[i]],' ',Par0[i]);
      WriteLn(' = ',r);
      Inc(m)
    end;
    t:=1;
    for i:=1 to nPar do begin
      t:=Oper0[i]+t;
      Oper0[i]:=t mod nOper;
      t:=t div nOper
    end
  until Oper0[nPar]=1;
  WriteLn(m,' combinations found')
end.

Максим, ты спрашивай поактивнее, что неясно.

[maksimla]

for i:=0 to nPar-1 do Read(f,Par0[i]);
  Read(f,r0);
  Close(f);
 

а тут как то странно записывает в масив почему так
в файле 4 3 2 3 1 6
записывает в массив выводится
0 1 2 3 4 6

почему так ведь неправильно

[volvo]

а тут как то странно записывает в масив почему так

Нормально все записывает... Ты как проверял? У меня вот чего показывает:


Ты чем компилируешь?

[maksimla]

компелирую fps 0.6.4a это компилятор на котором учимся и на этом проверяют

[maksimla]

может надо что то добавить например как это

   {$mode TP}

и тогда заработает на этом компиляторе а?

Сообщение отредактировано: maksimla - 16.03.2009 20:19

[volvo]

может надо что то добавить

Да, добавить надо, но не совместимость... Какая-то глючноватая среда, если честно. Как можно сейчас пользоваться компилятором версии 1.0.6 ??? Там же нет практически ничего. Сейчас уже 2.2.X в ходу давно.

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

var X: int64; // Добавляешь эту переменную

...
  for i:=0 to nPar-1 do begin
    read(f, X);
    Par0[i] := X;
  end;
  Read(f,r0);

Так все читается как положено.

[maksimla]

а что это тут

2: begin

цифры значат тут везде но это кажется не метка

[volvo]

Почему не метка? Как раз метка... Case в цикле не заметил?

[maksimla]

да уж не заметил спасибо сейчас все понятно