|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Разное - [решено] Программа в Pascal |
|
|
Разное - [решено] Программа в Pascal
|
Ветеран Сообщения: 710 |
Я создавал программу как опрос. Вот она:
Uses Crt; Var x, y: Integer; begin ClrScr; y:=0; Write ('Какой у Вас Windows? [XP - 1, Vista - 2] -> '); Readln (x); If x=1 Then begin inc(y) end Else If x=2 Then begin inc(y) end Else Writeln ('Значение не верно! Учитывается как 0!'); Writeln('Код: ',y); Readln; end. Опыт у меня примерно двухнедельный ![]() Сейчас программа выглядет так (ориентируйтесь на эту версию): |
|
Отправлено: 22:27, 20-08-2009 |
![]() Забанен Сообщения: 463
|
паскаль делает программы для DOS - а их там никогда не было. В винде эта проблема решается созданием ярлыка (pif файл)где и задается иконка , при этом и сам exe видится с иконокой пока не удалишь pif файл. вроде так.
а вот пример который тебе может помочь в решении твоей задачи. Обрати внимание что char тоже можно сравнивать при помощи case... |
Отправлено: 18:12, 24-08-2009 | #21 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 710
|
Профиль | Отправить PM | Цитировать Не получилось. За информацию про иконки - спасибо, а с этим - провал.
Хорошо. Раз все так хотят мне помочь, то (что бы всё получилось, а то у меня всё никак не выходит) переделайте пожалуйста мою программу так, она не отключалась. Программа содержится в первом сообщении ниже. |
Отправлено: 22:29, 24-08-2009 | #22 |
Ветеран Сообщения: 710
|
Профиль | Отправить PM | Цитировать Вот ещё вопрос. Как сделать так, что-бы введённое человеком число добавлялось в код? Т.е. Задаётся вопрос с ответом-числом, человек вводит своё число и оно добавляктся к сумме-коду. И вопрос к этому же. Как сделать, что-бы это число могло быть увеличено в 10, 100, 1000 раз. К примеру. Введено число 55, а мне надо 5500.
|
Отправлено: 20:02, 03-09-2009 | #23 |
Старожил Сообщения: 435
|
Профиль | Отправить PM | Цитировать asus a9rp, сложить или умножить обычно помогает
|
------- Отправлено: 12:35, 04-09-2009 | #24 |
Ветеран Сообщения: 710
|
Профиль | Отправить PM | Цитировать BlackEric, ну, вообще логично, но как это прописать?
(1:??? (y, 10)) |
Последний раз редактировалось asus a9rp, 08-09-2009 в 00:08. Отправлено: 00:02, 05-09-2009 | #25 |
Необычный Сообщения: 4463
|
Профиль | Сайт | Отправить PM | Цитировать asus a9rp,
Или я не правильно понял вопрос? |
------- Отправлено: 11:51, 05-09-2009 | #26 |
Старожил Сообщения: 435
|
Профиль | Отправить PM | Цитировать asus a9rp, воьмите _любую_ книгу по паскалю и прочитайте первые 3-4 главы. Времени съэкономите уйму.
|
------- Отправлено: 12:42, 05-09-2009 | #27 |
Ветеран Сообщения: 710
|
Профиль | Отправить PM | Цитировать lxa85, не совсем то. Но я это решил:
Uses CRT; Var x, y, z, k, a: Integer; BEGIN ClrScr; z:=10; k:=100; Write ('Number'); Readln (x); y:=x*z; Writeln (y); Readln; ClrScr; Write ('Number 2'); Readln (x); a:=x*k; Writeln (a); Readln; end. ![]() ![]() |
Отправлено: 20:04, 05-09-2009 | #28 |
Необычный Сообщения: 4463
|
Профиль | Сайт | Отправить PM | Цитировать Цитата asus a9rp:
Купи(найди, скачай) книгу. Здесь не школа, и самостоятельное исследование задач приветствуется. Знающим только приятно будет. А рассказывать главы учебников тратя свое время ... Надеюсь ты понял. ![]() |
|
------- Отправлено: 21:04, 05-09-2009 | #29 |
Ветеран Сообщения: 710
|
Профиль | Отправить PM | Цитировать lxa85, понял. Я просто имел в виду, что если что-то будет не понятно, то здесь объяснят, что и как, а книга не сможет объяснить непонятное. Она ведь говорить не может.
|
Отправлено: 00:06, 08-09-2009 | #30 |
|
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Разное - Всё о TURBO PASCAL (обсуждение, помощь в написание программ, ошибки, Pascal ABC) | Loading | Программирование и базы данных | 41 | 20-05-2015 15:28 | |
Разное - [решено] Графический режим Turbo Pascal и Windows 7 | Hector | Microsoft Windows 7 | 9 | 07-06-2010 13:53 | |
Delphi - [решено] Помогите с задачей /Pascal/ | Habetdin | Программирование и базы данных | 23 | 11-11-2009 22:46 | |
Разное - Pascal | ManHack | Программирование и базы данных | 2 | 01-09-2009 22:50 | |
[решено] программирование на pascal | PAUK | Программирование и базы данных | 2 | 09-11-2006 10:43 |
|