Другие языки программирования и технологии
Где ошибка Паскаль задача счастливый билет
var x:array(0..255) of:string,x1,x2,x3,x4,x5,x6:string;beginassign (input,'input.txt');reset (input);assign (output,'output.txt');rewrite (output);read(x);x1:=x[1];x2:=x[2];x3:=x[3];x4:=x[4];x5:=x[5];x6:=x[6];if (x1+x2+x3)=(x4+x5+x6) then write('YES') else write('NO');end.где тут ошибка пишет ошибка компиляции
А где тут не ошибки?
P.S. Напиши условие задачи.
P.P.S.
var s:string[6];
begin
assign (input,'input.txt'); reset (input); readln(input,s);
assign (output,'output.txt'); rewrite (output);
if ord(s[1])+ord(s[2])+ord(s[3])=ord(s[4])+ord(s[5])+ord(s[6])
then writeln(output,'YES') else writeln(output,'NO');
end.
Предполагается, что в файле записано всегда 6-значное число, например, 001001, как это делается на билетах.
P.S. Напиши условие задачи.
P.P.S.
var s:string[6];
begin
assign (input,'input.txt'); reset (input); readln(input,s);
assign (output,'output.txt'); rewrite (output);
if ord(s[1])+ord(s[2])+ord(s[3])=ord(s[4])+ord(s[5])+ord(s[6])
then writeln(output,'YES') else writeln(output,'NO');
end.
Предполагается, что в файле записано всегда 6-значное число, например, 001001, как это делается на билетах.
var
input, output : text;
x:string[6];
i:byte;
y:array[1..6] of byte;
begin
assign (input,'input.txt');
assign (output,'output.txt');
{$I-}
reset (input);
{$I+}
if IOResult <> 0 then { если не нуль, то была ошибка }
begin
Write(Файл INPUT не найден! ');
Halt;
end;
{$I-}
rewrite (output);
{$I+}
if IOResult <> 0 then { если не нуль, то была ошибка }
begin
Write(Файл OUTPUT Невозможно создать! ');
Halt;
end;
ReadLn(input,x);
Close(input);
For i:=1 to 6 do y [ i ] = ord( x [ i ] );
if ((y[1]+y[2]+y[3])=(y[4]+y[5]+y[6]) then writeln(output,'YES') else WriteLn(output,"NO');
close (output);
END.
input, output : text;
x:string[6];
i:byte;
y:array[1..6] of byte;
begin
assign (input,'input.txt');
assign (output,'output.txt');
{$I-}
reset (input);
{$I+}
if IOResult <> 0 then { если не нуль, то была ошибка }
begin
Write(Файл INPUT не найден! ');
Halt;
end;
{$I-}
rewrite (output);
{$I+}
if IOResult <> 0 then { если не нуль, то была ошибка }
begin
Write(Файл OUTPUT Невозможно создать! ');
Halt;
end;
ReadLn(input,x);
Close(input);
For i:=1 to 6 do y [ i ] = ord( x [ i ] );
if ((y[1]+y[2]+y[3])=(y[4]+y[5]+y[6]) then writeln(output,'YES') else WriteLn(output,"NO');
close (output);
END.
без обид.. .
топорно написана прога.
топорно написана прога.
P.P.P.S. Фу ты, возможность редактирования уже пропала, придется добавить отдельно - забыл еще объявить в разделе var используемые файлы. Надо после s:string[6]; добавить input,output:text;
сделай
var
x : string[6];
далее.. . ты x1+x2+x3 - складываешь не цифры, а коды символов (хотя, на логике это может не отражаться) .
используй readLN
а в конце проги файлики надо закрывать: close(input)
чувствую, что еще должны быть ошибки )))
если что - пиши в аську: 383-331-341
var
x : string[6];
далее.. . ты x1+x2+x3 - складываешь не цифры, а коды символов (хотя, на логике это может не отражаться) .
используй readLN
а в конце проги файлики надо закрывать: close(input)
чувствую, что еще должны быть ошибки )))
если что - пиши в аську: 383-331-341
Надо после s:string[6]; добавить input,output:text;
Похожие вопросы
- Помогите найти ошибку в задачи,Паскаль...
- помогите найти ошибку в задаче по паскалю
- Помогите плз найти ошибку в задаче в паскале, есть код,что сделал
- Паскаль Задача
- кто может помочь с паскаль(задачи)?
- Найдите ошибку в задаче по ТР
- Помогите,пожалуйста,решить задачу на двумерные массивы,в паскале.(задача вн.)Спасибо.
- Помогите пожалуйста найти ошибку. Паскаль. Оператор Case of
- Помогите пожалуйста найти ошибку в задаче (Язык программирования Си)
- как сделать в Паскале задачу/программу по переводу числа из десятичной в римскую систему счисления???