Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Последний символ ?
Автор: { Guest } 29.11.2003 4:22
HI !
У меня такая проблема :
"Напишите программу, присваивающую переменной Char последний символ введенной строки. "
Я думаю , что это надо делать так, Прочитать строку , узнать количество символов.....
Но как вывести именно последний ? Первый понятно как, а вот поледний ?
Возможно ли пустить цикл
For I:=1 to Length(S) do ;
И как из этого значения взять последний символ ? С:=S[ Последний символ];
Автор: SKVOZNJAK 29.11.2003 6:53
Если не нравится гото, придумай сам, как от него избавиться ;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.
Автор: GLuk 29.11.2003 12:34
Зачем ты так 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.
Автор: { Guest } 29.11.2003 12:41
2 SKVOZNJAK
2 GLuk
Большое спасибо ! Вечером проверю )!
Автор: APAL 1.12.2003 14:35
Мда.... 