HI !
У меня такая проблема :
"Напишите программу, присваивающую переменной Char последний символ введенной строки. "
Я думаю , что это надо делать так, Прочитать строку , узнать количество символов.....
Но как вывести именно последний ? Первый понятно как, а вот поледний ?
Возможно ли пустить цикл
For I:=1 to Length(S) do ;
И как из этого значения взять последний символ ? С:=S[ Последний символ];
Полная версия: Последний символ ?
Если не нравится гото, придумай сам, как от него избавиться ;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.
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.
Зачем ты так 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.
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.
2 SKVOZNJAK
2 GLuk
Большое спасибо ! Вечером проверю )!
2 GLuk
Большое спасибо ! Вечером проверю )!
Мда.... 
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.