|
тру программеры в паскале помогите
|
|
qwoste  | Дата: Пятница, 12.10.2012, 17:27 | Сообщение # 1 |
Титул:  Сообщений: 168
| короче, смысл заключается в том, что бы решить задачу в паскале (естественно за+ инаградки)
собственно сама задача:
Quote вывести случайное 4х значное число, и определить является ли оно палиндромом (читается одинакого слева направо и наоборот) [
хотябы как просто вывести случайное 4х значное число?
Разрешение на продажу
|
| |
| |
| Dorat | Дата: Пятница, 12.10.2012, 17:37 | Сообщение # 2 |
Сообщений: 2060
| qwoste, меня учили так:
Если в задаче сказано,что ввести,то при вводе мы уже подразумеваем,что будет вводить число,подходяшее по условиюДобавлено (12.10.2012, 17:37)
---------------------------------------------
qwoste, так что просто A:integer;begin readl(A) Добавлено (12.10.2012, 17:37)
---------------------------------------------
qwoste, Какую тему проходишь?
какие операторы можно использовать?
|
| |
| |
|
| Dorat | Дата: Пятница, 12.10.2012, 17:41 | Сообщение # 4 |
Сообщений: 2060
| qwoste, я же сказал:например написано в задаче ввести 4ех значное случайно число
следовательно мы уже понимаем,что должны вводить это число
мы с клавы можем ввести 6789 1250 что угодно,до сих пор не понял?Добавлено (12.10.2012, 17:41)
---------------------------------------------
вывести-вывести на экран ,т.е. ввести с клавы)
|
| |
| |
|
| McFly91 | Дата: Пятница, 12.10.2012, 18:01 | Сообщение # 6 |
Сообщений: 34
| program Example1;
var chyslo, i: integer;
chyslo_reverse: string;
begin
Randomize;
chyslo:=Random(9000) + 1000;
Writeln('Число: ', chyslo);
for i := 1 to 4 do
begin
chyslo_reverse:=chyslo_reverse + IntToStr(chyslo mod 10);
chyslo:=chyslo div 10;
end;
if chyslo_reverse = IntToStr(chyslo) then
begin
Writeln('Данное число - паллиндром');
end
else
begin
Writeln('Данное число - не паллиндром');
end;
Readln;
end.
|
| |
| |
|
| Ekkiel | Дата: Пятница, 12.10.2012, 18:14 | Сообщение # 8 |
Титул:  Сообщений: 301
| McFly91, Очень длинно,можно и короче сделать.
|
| |
| |
Sekirei  | Дата: Пятница, 12.10.2012, 18:15 | Сообщение # 9 |
Сообщений: 2610
| randomize~~~ :D
|
| |
| |
|
| Dorat | Дата: Пятница, 12.10.2012, 18:18 | Сообщение # 11 |
Сообщений: 2060
| McFly91, Вместо того чтобы создать переменную А создал chyslo_reverse
гений
|
| |
| |
| McFly91 | Дата: Пятница, 12.10.2012, 18:19 | Сообщение # 12 |
Сообщений: 34
| qwoste, Я в Delphi писал. У тебя какой Pascal?
|
| |
| |
| Dorat | Дата: Пятница, 12.10.2012, 18:19 | Сообщение # 13 |
Сообщений: 2060
| if chyslo_reverse = IntToStr(chyslo) then
begin
Writeln('Данное число - паллиндром');
end
else
begin
спасибо,вот тут поржал от души
|
| |
| |
| Ekkiel | Дата: Пятница, 12.10.2012, 18:19 | Сообщение # 14 |
Титул: Сообщений: 301
| qwoste, Напиши полностью задачу с тестами, или скан скинь в тему.
|
| |
| |
| Dorat | Дата: Пятница, 12.10.2012, 18:21 | Сообщение # 15 |
Сообщений: 2060
| if потом енд без тчоки с запятой
потом взявшийся не откуда esle ,после него ничего нету вдобавок лолДобавлено (12.10.2012, 18:21)
---------------------------------------------
qwoste, у него все не правильно
даже не пытайся
|
| |
| |
