Последний символ ? Опции

[{ Guest }]

HI !

У меня такая проблема :

"Напишите программу, присваивающую переменной Char последний символ введенной строки. "

Я думаю , что это надо делать так, Прочитать строку , узнать количество символов.....
Но как вывести именно последний ? Первый понятно как, а вот поледний ?
Возможно ли пустить цикл

For I:=1 to Length(S) do ;

И как из этого значения взять последний символ ? С:=S[ Последний символ];

[SKVOZNJAK]

Если не нравится гото, придумай сам, как от него избавиться ;D

Код

PROGRAM STROKA;
VAR A: STRING[255];
   Q: INTEGER;
LABEL  1,2;

BEGIN
FOR Q:=1 TO 255 DO A[Q]:=CHR(1);
WRITELN('');
WRITELN('ЖИЗНЬ, ИЛИ КОШЕЛЕК!!! ВВОДИ СТРОКУ!');
READ(A);
FOR Q:=1 TO 255 DO IF ORD(A[Q])=1 THEN GOTO 1;
GOTO 2;
1: DEC(Q);
2: WRITELN('');
IF Q>0 THEN WRITELN(A[Q]);
END.

Сообщение отредактировано: volvo - 17.12.2004 20:31

[GLuk]

Зачем ты так SKVOZNJAK?? :D Это же жестоко!!

Код

Program ArrayWithoutZero;
Uses
    Crt;
Const
     S = 'The last char is D';
Function GetLastChar(S:String):Char;
begin
     GetLastChar:=S[Length(S)];
end;
Begin
     ClrScr;
     Write(GetLastChar(S));
End.

[{ Guest }]

2 SKVOZNJAK

2 GLuk

Большое спасибо ! Вечером проверю )!

[APAL]

Мда....