 симметричная строка |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| tigrа |
Сообщение
#1
|
|
Гость  |
Помогите задачу решить,пожалуйста. Читается ли введенное целое число,имеющее 2 и более знаков одинаково справа на лево и слева на право?
|
 
|
|
| APAL |
Сообщение
#2
|
 Смотрю...  Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация:  6  |
Подобная задача уже рассматривалась в этом разделе.
-------------------- |
   |
|
| APAL |
Сообщение
#3
|
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Вот на скорую руку сваял...
Код Var St : String; i : Byte; Begin Write('Число: '); Readln(St); For i:=1 to (Length(St) div 2) do If St[i]<>St[Length(St)-i+1] then Begin Writeln('Не соответствует требованиям.'); Halt(0); End; Writeln('Соответствует требованиям.'); End. -------------------- |
|
|
|
| tigra |
Сообщение
#4
|
|
Гость |
Спасибо большое, все работает Вот только выдержка нулевая,прочитать ничего не успеваю. Подскажите,плиз, что сделать :-)
|
|
|
|
| GoodWind |
Сообщение
#5
|
 Автооответчик Группа: Пользователи Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16 |
в конце программы
Цитата readkey; поставить... перед Цитата end. конечно  -------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
|
|
|
|
| Altair |
Сообщение
#6
|
 Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Код Uses CRT; Var St : String; i : Byte; Begin Write('Число: '); Readln(St); For i:=1 to (Length(St) div 2) do If St[i]<>St[Length(St)-i+1] then Begin Writeln('Не соответствует требованиям.'); Halt(0); End; Writeln('Соответствует требованиям.'); readkey; End. Вот так. tigra, регистрируйся, котяра ;)  -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
|
|
|
| APAL |
Сообщение
#7
|
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Или просто нажать Alt+F5 по окончанию работы...
-------------------- |
|
|
|
| Altair |
Сообщение
#8
|
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Именно.
[offtop] tigra, а вы заходили в инет из интернет кафе? [/offtop] -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
|
|
|
| tigra |
Сообщение
#9
|
 Новичок Группа: Пользователи Сообщений: 11 Пол: Женский Репутация: 0 |
Сплошной offtop:
Нет, я из дома. Про то что до ENDа писать надо это конечно спасибо за замечание(  ), но не так все запущено. Просто я это умею делать только через crt, а он у меня чего-то не поддерживается. |
|
|
|
| tigra |
Сообщение
#10
|
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Женский Репутация: 0 |
ДА ! это можно сделать как то так:
repeat until (keypress) но вот только орфография у меня неправильная -> ничего не получается <_< |
|
|
|
| GoodWind |
Сообщение
#11
|
|
Автооответчик Группа: Пользователи Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16 |
правильно
Код repeat until keypressed; -------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
|
|
|
|
| Altair |
Сообщение
#12
|
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Цитата через crt, а он у меня чего-то не поддерживается. Он у Вас (можно на "ты" перейти? ) не пропаченный. Там возникает ошибка деления на 0. Цитата Нет, я из дома Офигеть! Все данные говорят, что Ваш дом в США. Ох уж эти IP -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
|
|
|
| APAL |
Сообщение
#13
|
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Тогда заменить Repeat-Until на Readln;
-------------------- |
|
|
|
| GoodWind |
Сообщение
#14
|
|
Автооответчик Группа: Пользователи Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16 |
Цитата Тогда заменить Repeat-Until на Readln; ну ето на нажатие enter, а если юзверь будет нажимать "any key", то будет появляться набираемый текст, а это не кул -------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
|
|
|
|
| tigra |
Сообщение
#15
|
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Женский Репутация: 0 |
Ну вот теперь все нормал, спасибо!
Цитата можно на "ты" перейти? да,конечно. Цитата Все данные говорят, что Ваш дом в США. А у меня все зарегестрировано не через то место,через которое стоило бы... |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 2.06.2024 12:26 |
Связь с администрацией: bu_gen в домене octagram.name