Последний символ ? |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Последний символ ? |
{ Guest } |
Сообщение
#1
|
Гость |
HI !
У меня такая проблема : "Напишите программу, присваивающую переменной Char последний символ введенной строки. " Я думаю , что это надо делать так, Прочитать строку , узнать количество символов..... Но как вывести именно последний ? Первый понятно как, а вот поледний ? Возможно ли пустить цикл For I:=1 to Length(S) do ; И как из этого значения взять последний символ ? С:=S[ Последний символ]; |
SKVOZNJAK |
Сообщение
#2
|
Профи Группа: Пользователи Сообщений: 930 Пол: Мужской Репутация: 11 |
Если не нравится гото, придумай сам, как от него избавиться ;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 - |
GLuk |
Сообщение
#3
|
Профи Группа: Пользователи Сообщений: 775 Пол: Мужской Репутация: 0 |
Зачем ты так 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 } |
Сообщение
#4
|
Гость |
2 SKVOZNJAK
2 GLuk Большое спасибо ! Вечером проверю )! |
APAL |
Сообщение
#5
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Мда....
-------------------- |
Текстовая версия | 11.10.2024 15:24 |