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?
тут как то примерно как и в этом задание http://forum.pascal.net.ru/index.php?showtopic=23780
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
а тут паскаль у меня можешь тогда подробнее написать то я непонимаю все что с знаком связано ^
ого какая степень большая. Странно только почему так если все немогут превышать 3000 то и промежуточные результаты меньше будут непонел я зачем мне это написали в задании
У тебя 5 чисел... Если каждое число будет максимальным, то максимально возможный результат будет равен 3000*3000*3000*3000*3000 = 30005 = 243000000000000000, промежуточный - чуть меньше, но тебе гарантировали, что любой промежуточный результат поместится в Int64, то есть, только этот тип ты можешь использовать без опаски...
тогда вот такой вопрос (r ≤ 3000). там было написано это значит что результат не превышает 3000 как я понял и все можно в word тип поместить и результат наверное тоже но надо подумать как считать это все вот я этого и не знаю
считать если начать с перебора с подставление знаков то тогда может тип Int64 понадобится тоесть сперва так идут a + b + c + d + e = r потом a + b + c + d - e = r ну и так далее
а если будим както так перебирать a + b сравниваем с r и насколько больше или меньше но неможет быть больше 3000 и тогда подставляем a + b - c и опять сравниваем или так как-то нельзя?
Вот возможное решение.
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.
for i:=0 to nPar-1 do Read(f,Par0[i]);
Read(f,r0);
Close(f);
компелирую fps 0.6.4a это компилятор на котором учимся и на этом проверяют
может надо что то добавить например как это
{$mode TP}и тогда заработает на этом компиляторе а?
var X: int64; // Добавляешь эту переменную
...
for i:=0 to nPar-1 do begin
read(f, X);
Par0[i] := X;
end;
Read(f,r0);
а что это тут
2: beginцифры значат тут везде но это кажется не метка
Почему не метка? Как раз метка... Case в цикле не заметил?
да уж не заметил спасибо сейчас все понятно