Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Разное - [решено] Программа в Pascal

« Первая < Предыдущая 3 4 5
Ответить
Настройки темы
Разное - [решено] Программа в Pascal

Ветеран


Сообщения: 710
Благодарности: 12

Профиль | Отправить PM | Цитировать

Изменения
Автор: asus a9rp
Дата: 24-08-2009
Описание: Добавил новую версию программы
Я создавал программу как опрос. Вот она:
Код: Выделить весь код
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.
Ну так вот. Есть "inc(y)" и добавляет к результату (коду) 1. Мне нужно, чтобы в определённых местах добавлялось 3, 10, 20, 400, 1000 и т.д. Помогите. Заранее спасибо.
Опыт у меня примерно двухнедельный

Сейчас программа выглядет так (ориентируйтесь на эту версию):
читать дальше »
Код: Выделить весь код
Uses Crt;
Var x, y: Integer;
  begin
   TextBackGround(1); ClrScr;
   y:=0;
   Writeln ('Какой у Вас Windows?');
   Writeln ('');
   Writeln ('XP    -  1');
   Writeln ('Vista -  2');
   Writeln ('2000  -  3');
   Writeln ('Seven -  4');
   Writeln (''); Readln (x);
  case x of
   1:inc(y, 10);
   2:inc(y, 20);
   3:inc(y, 30);
   4:inc(y, 40);
   Else
      Writeln ('Значение не верно! Учитывается как 0!'); Readln;
   End;
   ClrScr;
   Writeln ('Какой у Вас Office?');
   Writeln ('');
   Writeln ('2003 -  1');
   Writeln ('2007 -  2');
   Writeln ('2010 -  3');
   Writeln (''); Readln (x);
  case x of
   1:inc(y);
   2:inc(y, 2);
   3:inc(y, 3);
   Else
      Writeln ('Значение не верно! Учитывается как 0!'); Readln;
   End;
   ClrScr;
   Writeln('');
   Writeln('Код: ',y);
   Readln;
 end.

Отправлено: 22:27, 20-08-2009

 

Аватара для lxa85

Необычный


Contributor


Сообщения: 4463
Благодарности: 994

Профиль | Сайт | Отправить PM | Цитировать

Собственно что я и пытался сказать - нарушение логических скобок.
На будущее, чтобы не путаться, не стесняйся использовать табуляцию.
Программа сразу наглядней становится.
Цитата asus a9rp:
При копитовании из Паскаля в ОСь или наоборот, русские буквы заменяются вопросиками. Возможно ли это исправить? »
Да. Это происходит из-за использования различных кодировок. Попробуй Notepad++ или другой более гибкий текстовый редактор. В них как правило устанавливают перекодировщики.
Если открывать стандартным блокнотом, то шрифт Terminal

Цитата asus a9rp:
Я не студент, а школьник (8-й класс). »
Не принимай всерьез, я уставший был.

-------
- Я не разрешаю тебе быть плохой! Потому что плохие люди совершают плохие поступки. А это нехорошо!
(Из наставлений 5 летней девочки своей младшей сестре)

Это сообщение посчитали полезным следующие участники:

Отправлено: 21:53, 17-09-2009 | #41



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


Сообщения: 710
Благодарности: 12

Профиль | Отправить PM | Цитировать

lxa85,
Цитата lxa85:
Собственно что я и пытался сказать - нарушение логических скобок. »
Это я тогда понял, но не понял где.
Цитата lxa85:
Попробуй Notepad++ »
Попробую, спасибо.
Цитата lxa85:
Цитата asus a9rp:
Я не студент, а школьник (8-й класс). »
Не принимай всерьез, я уставший был. »
Ничего, бывает. А я в серьёз и не принял. Обижаться тут неначто, так что всё в порядке.

Отправлено: 00:36, 18-09-2009 | #42


Ветеран


Сообщения: 710
Благодарности: 12

Профиль | Отправить PM | Цитировать

Вот, собственно, я и проверил Notepad++. Всё работает! Пока что вопросы все. Спасибище ограомное!

Отправлено: 01:00, 18-09-2009 | #43


Ветеран


Сообщения: 710
Благодарности: 12

Профиль | Отправить PM | Цитировать

А вот появился ещё один вопрос. Можно ли в Паскале написать программу с диалоговыми окнами, т.е. с кнопками, "галочками", "точечками", выпадающими списками и т.д. Мне кажется, что тут тоже самое, что и с иконтами, но это - ИМХО.

Отправлено: 22:28, 28-09-2009 | #44


Старожил


Сообщения: 435
Благодарности: 63

Профиль | Отправить PM | Цитировать

asus a9rp,
была к TP7 такая библиотека - Turbo Vision. Насколько я понимаю интерфейс TP7 на ней и написан.
Но все это умерло уже лет 15 как. Не тратьте время. Возьмите хотя бы Delphi или C++ c Qt.

-------
black-eric.livejournal.com

Отправлено: 23:53, 28-09-2009 | #45


Аватара для lxa85

Необычный


Contributor


Сообщения: 4463
Благодарности: 994

Профиль | Сайт | Отправить PM | Цитировать

Цитата asus a9rp:
Можно ли в Паскале написать программу с диалоговыми окнами »
Если брать чистый Паскаль, то нет. Диалоговые окна, кнопочки, списочки - это объекты.
Объекты - это Object Pascal. (Pascal + Объекты) Object Pascal - ведет нас к Delphi.
По моему так.

-------
- Я не разрешаю тебе быть плохой! Потому что плохие люди совершают плохие поступки. А это нехорошо!
(Из наставлений 5 летней девочки своей младшей сестре)

Это сообщение посчитали полезным следующие участники:

Отправлено: 01:09, 29-09-2009 | #46


Ветеран


Сообщения: 710
Благодарности: 12

Профиль | Отправить PM | Цитировать

lxa85, ясно, спасибо. Я посмотрю.

Отправлено: 01:32, 29-09-2009 | #47


Ветеран


Сообщения: 710
Благодарности: 12

Профиль | Отправить PM | Цитировать

А вот ещё проблемка. При копировании текста из Pascal в Notepad++ - русский в порядке, а если наоборот (что мне и нужно) - опять вопросики. Можно как-то исправить?
Я пользуюсь нотпадом, так как там можно копировать и вставлять текст используя Ctrl + C и Ctrl + V, а в паскале надо ПКМ - копировать, ПКМ - вставить. В нотпаде в несколько раз быстрее. Это проблема не смертельная - я могу написать транслитом, а потом в паскале переписать на русский. Но всёже хотелось бы сразу на человеческом языке.

Отправлено: 01:15, 05-10-2009 | #48


Аватара для Alan85

Забанен


Сообщения: 463
Благодарности: 91

Профиль | Цитировать

shift+del - вырезать
shift+insert - вставить
ctrl+insert - копировать
Команды используются в TP и многих других редакторах... А в нотепаде ++ поищи опцию включающую кодировку cp866 или DOS.
Это сообщение посчитали полезным следующие участники:

Отправлено: 06:50, 05-10-2009 | #49


Ветеран


Сообщения: 710
Благодарности: 12

Профиль | Отправить PM | Цитировать

Цитата Alan85:
shift+del - вырезать
shift+insert - вставить
ctrl+insert - копировать »
Спасибо. Я к кнопкам ОСи првык.
Цитата Alan85:
поищи опцию включающую кодировку cp866 или DOS. »
к сожалению не нашёл, но проблему пешил. Вы навели меня на мысль. Я покапался в настройках и с "Ситаксис"е нашёл паскаль, поставил, всё работает. Спасибо!

Отправлено: 00:24, 07-10-2009 | #50

« Первая < Предыдущая 3 4 5


Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Разное - [решено] Программа в Pascal

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Разное - Всё о 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


« Предыдущая тема | Следующая тема »


 
Переход