Начинающему нужна помощь - Страница 3

Nekroliks · 03.09.2010, 19:06

Бродяга если хочеш всё понять учись по учебнику С.Н.Лукин ''Самоучитель Turbo-Pascal 7.0'' если прочтёшь всё от корки до корки станеш великим программером

Я сам по нему учился когда в школе паскаль был(учительница не могла понять откуда я столько знаю

, а сейчас подзабыл....

З.Ы. Посмотри в личку

Vladimir_S · 03.09.2010, 19:07

Цитата:

Сообщение от Бродяга

получилось.
раньше я только одну WRITE менял на WRITELN поэтому не работала?

Добавление "ln" к командам read и write приводит к тому, что ПОСЛЕ выполнения команды чтения или записи маркер перемещается на следующую строку.

А теперь в программе уберите все апострофы и посмотрите, что будет:

Код:

BEGIN
  Writeln(8-2);
  Writeln(6+5);
  Writeln(5*2);
  READLN;
END.

Бродяга · 03.09.2010, 19:14

Nekroliks имено этот самоучитель я и читаю. он предназначен для 6-11 класса, а я понять никак не могу. Да ещё и мой учитель уехал.
Vladimir_S сделал, и немного своего добавил - вылезли подсчёты этих выражений и то что я добавил. Спасибо!!! не закрывайте пожалуйста тему, если ещё вопросы будут я сюда напишу.
один - а как изменить путь куда компилятор будет програмки созданые ложить? у меня ложит в реестр далеко-далеко и найти проблемно.

Nekroliks · 03.09.2010, 19:17

Цитата:

Сообщение от Бродяга

Nekroliks имено этот самоучитель я и читаю. он предназначен для 6-11 класса, а я понять никак не могу. Да ещё и мой учитель уехал.
Vladimir_S сделал, и немного своего добавил - вылезли подсчёты этих выражений и то что я добавил. Спасибо!!! не закрывайте пожалуйста тему, если ещё вопросы будут я сюда напишу.
один - а как изменить путь куда компилятор будет програмки созданые ложить? у меня ложит в реестр далеко-далеко и найти проблемно.

Options>Directories, и там всё указываешь

Бродяга · 03.09.2010, 19:22

Спасибо!!

Бродяга · 03.09.2010, 20:51

попробовал решить задачу

Код:

В зоопарке три слона и довольно много кроликов, причем количество кроликов часто меняется. Слону положено съедать в сутки сто морковок, а кролику - две. Каждое утро служитель зоопарка сообщает компьютеру количество кроликов. Компьютер в ответ на это должен сообщить служителю общее количество морковок, которые сегодня нужно скормить кроликам и слонам.

создал условие

Код:

VAR krol, slon, nk, ns, vsego :Integer;
BEGIN
  nk:=2;  ns:=100;
  Readln (krol);
  slon:=3; vsego:=krol*nk + ns*slon;
  writeln (vsego)
END.

Всё как в самоучителе - запускаю програмку, появляется окошко ввода, ввожу цифру кроликов, нажимаю интер, на мгновение появляется ответ и программа гаснет. помогите!!

отменяется - решил сам.
во всех програмках надо ставить readln в конце?

Vladimir_S · 03.09.2010, 21:12

Цитата:

Сообщение от Бродяга

во всех програмках надо ставить readln в конце?

Нет, только в тех, в которых Вы хотите увидеть на экране результат работы. Это не всегда так - можно, например, организовать вывод в файл, и тогда эта остановка не нужна.
Кстати, использование оператора readln - это не единственный способ остановить программу, есть и другие. Но пока лучше этим голову не забивайте и используйте readln.

Nekroliks · 03.09.2010, 21:16

Цитата:

Сообщение от Бродяга

во всех програмках надо ставить readln в конце?

Только в простых(в более сложных всё подругому, я имею ввиду что там программу можно,к примеру, останавливать вмешательством пользователя), а в простых если хочешь посмотреть что получилось, нужно писать ReadLn... но есть и другие способы просмотра того что ты сделал.....

Бродяга · 03.09.2010, 22:03

Ну я уже научился с помощью readln вводить своё сообщение в программу и заставить компьютер ответить на него. завтра (а если смогу сегодня, буду учится создавать разветвляющиеся программы

Vladimir_S · 03.09.2010, 22:10

Цитата:

Сообщение от Бродяга

Ну я уже научился с помощью readln вводить своё сообщение в программу и заставить компьютер ответить на него. завтра (а если смогу сегодня, буду учится создавать разветвляющиеся программы

Успехов!

03.09.2010, 19:06	#21 (permalink)
Nekroliks Member Регистрация: 30.05.2010 Сообщений: 201 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 296	Бродяга если хочеш всё понять учись по учебнику С.Н.Лукин ''Самоучитель Turbo-Pascal 7.0'' если прочтёшь всё от корки до корки станеш великим программером Я сам по нему учился когда в школе паскаль был(учительница не могла понять откуда я столько знаю, а сейчас подзабыл.... З.Ы. Посмотри в личку

03.09.2010, 20:51	#26 (permalink)
Бродяга Снова перешел на Vist'у Регистрация: 17.04.2010 Сообщений: 1,685 Записей в дневнике: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 293	попробовал решить задачу Код: В зоопарке три слона и довольно много кроликов, причем количество кроликов часто меняется. Слону положено съедать в сутки сто морковок, а кролику - две. Каждое утро служитель зоопарка сообщает компьютеру количество кроликов. Компьютер в ответ на это должен сообщить служителю общее количество морковок, которые сегодня нужно скормить кроликам и слонам. создал условие Код: VAR krol, slon, nk, ns, vsego :Integer; BEGIN nk:=2; ns:=100; Readln (krol); slon:=3; vsego:=krolnk + nsslon; writeln (vsego) END. Всё как в самоучителе - запускаю програмку, появляется окошко ввода, ввожу цифру кроликов, нажимаю интер, на мгновение появляется ответ и программа гаснет. помогите!! отменяется - решил сам. во всех програмках надо ставить readln в конце?

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

03.09.2010, 19:14	#23 (permalink)
Бродяга Снова перешел на Vist'у Регистрация: 17.04.2010 Сообщений: 1,685 Записей в дневнике: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 293	Nekroliks имено этот самоучитель я и читаю. он предназначен для 6-11 класса, а я понять никак не могу. Да ещё и мой учитель уехал. Vladimir_S сделал, и немного своего добавил - вылезли подсчёты этих выражений и то что я добавил. Спасибо!!! не закрывайте пожалуйста тему, если ещё вопросы будут я сюда напишу. один - а как изменить путь куда компилятор будет програмки созданые ложить? у меня ложит в реестр далеко-далеко и найти проблемно.

03.09.2010, 19:22	#25 (permalink)
Бродяга Снова перешел на Vist'у Регистрация: 17.04.2010 Сообщений: 1,685 Записей в дневнике: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 293	Спасибо!!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

03.09.2010, 22:03	#29 (permalink)
Бродяга Снова перешел на Vist'у Регистрация: 17.04.2010 Сообщений: 1,685 Записей в дневнике: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 293	Ну я уже научился с помощью readln вводить своё сообщение в программу и заставить компьютер ответить на него. завтра (а если смогу сегодня, буду учится создавать разветвляющиеся программы