Разное

BlackEric · Отправлено: **18:02, 22-08-2009** | #11

Цитата asus a9rp:

У меня ещё вопрос. Если вот тут
Код:
Write ('Какой у Вас Windows? [XP - 1, Vista - 2] -> '); Readln (x);
ввести 1 или 2 - всё нормально, если другую цифру - код = 0, а если букву или символ - программа отключается. Как это изменить (тоже сделать нулевой код)? »

Переменную x описываем как char. Тогда она корректно прочитает любой символ, но проверку на то что ввели не число вы должны делать сами.

Я бы сделал как-то так:

Код:

readln(x);
case ord(x) of
ord(1): inc(y);
ord(2): inc(y);
else
writeln('Неверный ввод!');
end;

Этот алгоритм не идеален, но общая идея примерно такова.
Пробуйте.

asus a9rp · Отправлено: **18:52, 22-08-2009** | #12

Спасибо, ппробую.
Как char я её писал, но только на месте Integer, а дальше ничего не менял.

asus a9rp · Отправлено: **22:54, 22-08-2009** | #13

Ну и покачто последний вопрос. Можно ли моей программе поменять иконку (ну к примеру как папке)?

asus a9rp · Отправлено: **02:03, 23-08-2009** | #14

BlackEric, вылезла одна ошибка - нестыковка тута:

Код:

Uses Crt;
Var x, y: Char;
 begin
  TextBackGround(1); ClrScr;
  y:=0;
  Writeln ('Какой у Вас Windows?');

И пишет:

Цитата Pascal:

Programm.pas(5,6) Error: Incompatible types: got "ShortInt" expected "Char"
Programm.pas(40) Fatal: There were 1 errors compiling module, stopping
Programm.pas(0) Fatal: Compilation aborted

BlackEric · Отправлено: **18:50, 23-08-2009** | #15

Цитата asus a9rp:

y:=0; »

Вы же переменной символьного типа присваиваете число. Так нельзя.

asus a9rp · Отправлено: **21:00, 23-08-2009** | #16

А как иначе?

BlackEric · Отправлено: **21:14, 23-08-2009** | #17

asus a9rp, а что вы хотите сделать?
Где работаем числами, там integer, real, где строки там Char или string.

asus a9rp · Отправлено: **22:55, 23-08-2009** | #18

BlackEric, ладно, пусть будет как было. Я просто хотел испрасить отключение программы после ввода буквы, а не цифры.

BlackEric · Отправлено: **00:35, 24-08-2009** | #19

asus a9rp,
1. Вам ничего не мешает описать несколько переменных
var
x: char;
y: integer;
.....и т.д.
2. Почитайте по приведение типов.
Char ковертируется в Byte одной функцией chr.

asus a9rp · Отправлено: **12:28, 24-08-2009** | #20

Я прописал, читал про приведение типов, но всё равно не получилось. Ладно, оставим как есть.
Но я просто объясню свою идею:
В программе требуется ввести число, если я ввожу правильное, то всё нормально. Если введено другое число, то выводится соответствующая надпись. Если введена буква, то программа отключается. Мне нужно было, чтобы если введена буква была выведеня такая же надпись, как и при неправильном числе. Но вводить нужно не буквы, а цифры. Вот и всё. Но с этим закончим. У меня только вопрос:

Цитата asus a9rp:

Можно ли моей программе поменять иконку (ну к примеру как папке)? »