в чем ошибка кода

[Валентин1990]

я еще только только начинаю, и поэтому нужна помощь

[Валентин1990]

program Project3;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
Sol,Rob,f,g,a,b:string;
c,d:integer;
begin
c:=0;
d:=0;
writeln('vvedite 1th player');
readln(f);
writeln('vvedite 2th player');
readln(g);
a:=f;
b:=g;

If ('a'='Ino' and 'b'='Rob') then (c:=c-1 and d:=d-1)
else
writeln('vvedite 1th player');
readln(f);
writeln('vvedite 2th player');
readln(g);


readln;
end.

[Валентин1990]

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

[veniside]

If ('a'='Ino' and 'b'='Rob') then (c:=c-1 and d:=d-1)

это шо за изыски синтаксиса и логики? На Паскале это выглядит так:

if (a='Ino' and b='Rob') then begin
  //
  c:=c-1;
  d:=d-1;
end
else begin
  //
end;

[NetSpace]

const b='robert';//эта строка являеятся постоянной, её не изменить 
var s:string;//а это строковая переменная, её по ходу программы можем менять
begin
  write('s=');
  readln(s);//вводим строчку твоих символов 
 if(s=b)then...//если строки совпали, то вот тут что-то делаем
end.

так хотел? расширить алгоритм на 2-х игроков сам сможешь?

[Валентин1990]

Сообщение от veniside

это шо за изыски синтаксиса и логики? На Паскале это выглядит так:

if (a='Ino' and b='Rob') then begin
  //
  c:=c-1;
  d:=d-1;
end
else begin
  //
end;

я так делал, и все равно ошибка

[Валентин1990]

сделаю, спасибо за совет

[Валентин1990]

Сообщение от NetSpace

const b='robert';//эта строка являеятся постоянной, её не изменить 
var s:string;//а это строковая переменная, её по ходу программы можем менять
begin
  write('s=');
  readln(s);//вводим строчку твоих символов 
 if(s=b)then...//если строки совпали, то вот тут что-то делаем
end.

так хотел? расширить алгоритм на 2-х игроков сам сможешь?

так,но что то не совсем получилось


const
y='Ino';
x='Rob';
var
Sol,Rob,f,g,a,b:string;
c,d:integer;


begin
c:=0;
d:=0;
writeln('vvedite 1th player');
readln(f);
writeln('vvedite 2th player');
readln(g);


If (y=f and x=g) then
begin
c:=c-1;
d:=d-1;
end;
writeln(c,d);


readln;
end.


что у меня опять не так?

[Alex11223]

if (y=f) and (x=g)

[NetSpace]

и лучше построчно и с пояснением выведи результат:

writeln("c= ",c);
writeln("d= ",d);

самому же легче в этом ответе разобраться будет