Массив

[Snake_ua]

var i, g1, g2, g3, g4: byte;
year: string;
zx : array [1..9] of string;

Function StrToInt(ss: char): integer;
begin
StrToInt:=Ord(ss);
end;

Function TablResult(chis: byte): string;
begin
for i := 1 to 4 do if (year[i] = 'chis') then zx[chis] := zx[chis] + 'chis';
TablResult := zx[chis];
end;

BEGIN
Write('Введите год: g = ');
Readln(year);

if StrToInt(year[1]) = 0 then g1 := 0 else g1 := (StrToInt(year[1])-48);
if StrToInt(year[2]) = 0 then g2 := 0 else g2 := (StrToInt(year[2])-48);
if StrToInt(year[3]) = 0 then g3 := 0 else g3 := (StrToInt(year[3])-48);
if StrToInt(year[4]) = 0 then g4 := 0 else g4 := (StrToInt(year[4])-48);

Writeln(TablResult(1));
Writeln(TablResult(2));
Writeln(TablResult(3));
..............................
Writeln(TablResult(9));
END.


Люди, помогите решить проблемму. В функции TablResult
zx[chis] := zx[chis] + 'chis'
к массиву типа string прибавляю число, которое паскаль распознает как string. Наглядно понятно, но на практике zx[chis] остается неизменным, к нему не прибавляется 'chis'. Помогите исправить ошибку.

[mihali4]

Совсем не помню "голый" паскаль, но у меня вопрос - а почему chis имеет тип BYTE??? А если сделать его char-ом или стрингом? И прибавлять без всяких кавычек?

[madmot]

Заметь, в функции TablResult ты в цикле проходишь по каждому символу переменной year. И стоит условие РАВЕН ЛИ ЭТОТ СИМВОЛ стороке состоящей из символов 'chis'. Естественно условие не выполняется и ничего не происходит.
Напиши условия задачи, а то начал разбираться и не понятно а для чего вообще нужна эта функция. Год из строки в цифры переводит нормально.