Question

Нужно перевести задачу с С++ на Paskal с объяснением ( дорого )
#include

using namespace std;

bool isletter(char c) {
return c == 'A'
|| c == 'B'
|| c == 'C'
|| c == 'E'
|| c == 'H'
|| c == 'K'
|| c == 'M'
|| c == 'O'
|| c == 'P'
|| c == 'T'
|| c == 'X'
|| c == 'Y';
}

int main() {
int n;
cin >> n;
for (int i = 0; i < n; ++i) {
string s;
cin >> s;
if (s.length() == 6
&& isletter(s[0])
&& isdigit(s[1])
&& isdigit(s[2])
&& isdigit(s[3])
&& isletter(s[4])
&& isletter(s[5])) {
cout << "Yes";
} else {
cout << "No";
}
cout << endl;
}
return 0;
}

Answer 1

function isletter (c : Char) : boolean;

begin

case c of

'A': isletter := true;

'B': isletter := true;

'C': isletter := true;

'E': isletter := true;

'H': isletter := true;

'K': isletter := true;

'M': isletter := true;

'O': isletter := true;

'P': isletter := true;

'T': isletter := true;

'X': isletter := true;

'Y': isletter := true;

else

isletter := false;

end;

end;

function isdigit(c:char):boolean;

begin

IsDigit:=c in ['0'..'9']

end;

var

n : integer;

i : integer;

s : string;

begin

readln(n);

for i := 1 to n do

begin

readln(s);

if (length(s) = 6) and (isletter(s[1])) and (isdigit(s[2])) and (isdigit(s[3])) and (isdigit(s[4])) and (isletter(s[5])) and (isletter(s[6])) then

writeln('Yes')

else

writeln('No');

end;

end.

Чего объяснять та?) Переписал все точь в точь за исключением того, что в free pascal вроде как нет встроенной функции проверки char на цифра ли и пришлось писать самому. + Мне не оч нрав реализация isletter. Стремная, но так было в спрайтах, так что я молчу.