Пытаюсь самостоятельно изучать Паскаль. Возникли вопросы.

[Студент заочник]

Возникли такие вопросы:

1. На Висте турбо паскаль не раскрывается на весь экран, такое маленькое окошечко, так и набираю в нём код. Есть ли для Висты турбо паскаль? Если есть версия сносно работающая на Висте, подскажите где скачать?

2. Существует ли русский турбо паскаль (т.е. русифицированный)?

3. Как правильно сохранять программы на турбо паскале?
Вот, я открываю турбо паскаль, набираю код, откомпилировав, делаю Run, вбиваю значения, всё работает, вычисления правильные. Я сохраняю как обычно, пишу имя, сохранить, сохраняется файл .PAS , его можно открыть в турбо паскале и запустить программу, делать вычисления.

Ещё пытаюсь сохранить в формате .ехе, пишу имя файла добавляю .EXE, жму ОК, сохраняется файл ехе (приложение), запускаю его как обычную программу в виндовсе, открывается окошко и сразу закрывается почему так происходит? Ведь на Паскале пишут программы, и их вроде можно запускать в виндовсе. Объясните новичку в чём подвох. Сохранял так решение задачи:

Задача:
Услуги телефонной сети оплачиваются по следующему правилу: за разговоры до А минут в месяц - В руб., а разговоры сверх установленной нормы оплачиваются из расчета С руб. за минуту. Написать программу, вычисляющую плату за пользование телефоном для введенного времени разговоров за месяц.

Program Telefon;
Var A,B,C,M,Rez:Longint;
Y:Char;
Begin
While Y<>'Y' Do
Begin
WriteLn ('Vvedite A:');
ReadLn (A);
WriteLn ('Vvedite B:');
ReadLn (B);
WriteLn ('Vvedite C:');
ReadLn (C);
WriteLn ('Vvedite M:');
ReadLn (M);
Rez:=(M-A)*C+B;
WriteLn ('Itogo v etom mesyace za ' ,M, ' minut razgovorov vi dolgni: ' ,Rez, ' rub.');
WriteLn ('Vihod? (Y/N)');
ReadLn (Y);
End;
End.

называл файл TELEFON.EXE, он открывается и закрывается. Пробовал этот файл запускать на другом компе с XP, эффект тот же самый открывается и закрывается. Я так понимаю такая программа, должна запускаться без турбо паскаля в виндовсе и делать вычисления? Но эта моя программа открывается, и сразу самопроизвольно закрывается. Что я делаю не так?

4. Можно ли в турбо паскале писать русскими буквами? Пробовал разные версии турбо паскалей, но к сожалению в них нельзя написать по-русски например

WriteLn ('Введите количество минут тарифа:');

Если возможно писать русскими буквами посоветуйте какую-нибудь версию, где это возможно сделать или если есть у вас такой турбо паскаль дайте пожалуйста ссылку на скачивание.

[IT-man]

1 пиши в блокноте сохраняй с расширением pas в папке с паскалем и запускай из паскаля
2 schoolpak
3 при первом удачном запуске в папке с паскалем итак создается ехе -файл его и запускайте
4 смотри ответ на 3 вопрос

[Sazary]

2. Существует ли русский турбо паскаль (т.е. русифицированный)?

Вроде, нет. Да и зачем?

3. Как правильно сохранять программы на турбо паскале?
....открывается окошко и сразу закрывается почему так происходит?

Перед последним end'ом добавьте readln.
Программа отрабатывает свое и закрывается. Для просмотра результатов ее нужно задержать.

4. Можно ли в турбо паскале писать русскими буквами?

Воспользуйтесь поиском.. Уже не один раз поднималась тема.
Есть frirus.com и keyrus.exe.

[OCTAGRAM]

Если трафик не жмёт (или Яндекс Локален), можно глянуть «урок для начинающих»: http://programmersforum.ru/showthread.php?t=29313

Там большинство частых вопросов рассмотрены. В том числе рецепт, как копировать текст с форума в Паскаль и обратно.

[puporev]

4. Можно ли в турбо паскале писать русскими буквами?

Чаще всего проблема решается установлением в настройках компьютера первым языком русского(обычно стоит английский). Переключение на русский правые Ctrl+Shift на латиницу - левые.

[Студент заочник]

Сообщение от OCTAGRAM

Если трафик не жмёт (или Яндекс Локален), можно глянуть «урок для начинающих»: http://programmersforum.ru/showthread.php?t=29313

Там большинство частых вопросов рассмотрены. В том числе рецепт, как копировать текст с форума в Паскаль и обратно.

Спасибо. Изучил.

OCTAGRAM, каким турбо паскалем пользуетесь вы? посоветуйте какой лучший и дайте ссылку пожалуйста.

Вот я тут опять пытаюсь создать программку по решению задачи.

Вот создал файл с таким кодом:

Program Telefon;
Var A,B,C,M,Rez:Longint;
Begin
WriteLn ('Vvedite A:');
ReadLn (A);
WriteLn ('Vvedite B:');
ReadLn (B);
WriteLn ('Vvedite C:');
ReadLn (C);
WriteLn ('Vvedite M:');
ReadLn (M);
Rez:=B+(M-A)*C;
WriteLn ('Itogo v etom mesyace za ' ,M, ' minut razgovorov vi dolgni: ' ,Rez, ' rub.');
ReadLn;
End.

Вот скрин:



Дальше компилирую, ошибок нет.

Скрин:



Дальше запускаю Run, вбиваю значения, жму Ентер программа считает правильно. Жму Enter, происходит выход из программы. Сохраняю в папку с названием TELEFON.PAS

Скрин:



Дальше чтобы получить готовую программу (файл exe) сохраняю так File / Save as... выбираю папку, пишу имя файла TELEFON.EXE жму ОК. Сохраняется программка типа exe, захожу в папку запускаю этот файл TELEFON.EXE двумя кликами мышки. Он открывается, и в доли секунды закрывается. Успел снять принт скрин экрана. Вот он!



Почему он пустой? Почему не работает? почему не просит вводить числовые значения? Просто тупо открывается и сразу закрывается, еле заметно глазу. Ведь такая программа как я понимаю должна открыться, запросить ввести данные, посчитать, вывести ответ, и закрыться после нажатия Ентер так? Опытные ребята как такая прога должна работать под виндовс? Или у меня хреновый турбо паскаль?

[Sazary]

Дальше чтобы получить готовую программу (файл exe) сохраняю так File / Save as... выбираю папку, пишу имя файла TELEFON.EXE жму ОК.

Чтобы получить экзешник, нужно программу скомпилировать. Что вы и сделали. После этого ищите его в папке с исходником (или, может быть, еще в папке bin).

[OCTAGRAM]

Странице так на 16ой написано (и нарисовано), где искать EXE–шник. Вот только зачем он?

UPD: Как ставить Паскаль, тоже написано.

[Студент заочник]

Сообщение от Sazary

Чтобы получить экзешник, нужно программу скомпилировать. Что вы и сделали. После этого ищите его в папке с исходником (или, может быть, еще в папке bin).

Посмотрел, точно есть файлы ехе в папке Pascal, но я файлы .PAS совсем в другую папку сохранял, поэтому не видел так как не лазил в папку Pascal. Эти екзешники которые сами насоздавались в папке Pascal как ни странно запускаются, и нормально работают.

С этим всё понятно!

Теперь по задаче.

Задачи из книги И.Г. Семакин, А.П. Шестаков "Основы программирования".

Первая задача. (Задача №11 стр. 311 из раздела "Задачи по теме "Развилка" под раздел "Текстовые задачи").

Задача:
Услуги телефонной сети оплачиваются по следующему правилу: за разговоры до А минут в месяц - В руб., а разговоры сверх установленной нормы оплачиваются из расчета С руб. за минуту. Написать программу, вычисляющую плату за пользование телефоном для введенного времени разговоров за месяц.

Правильно (грамотно) ли моё решение или можно доработать (улучшить):

Program Telefon;
Var A,B,C,M,Rez:Longint;
Begin
WriteLn ('Vvedite A:');
ReadLn (A);
WriteLn ('Vvedite B:');
ReadLn (B);
WriteLn ('Vvedite C:');
ReadLn (C);
WriteLn ('Vvedite M:');
ReadLn (M);
Rez:=B+(M-A)*C;
WriteLn ('Itogo v etom mesyace za ' ,M, ' minut razgovorov vi dolgni: ' ,Rez, ' rub.');
ReadLn;
End.

Вторая задача. (Задача №6 стр.321 из раздела "Задачи по теме "Циклы" под раздел "Цикл с параметром").

Задача:
Составить алгоритм решения задачи: сколько можно купить быков, коров и телят, платя за быка 10 руб., за корову - 5 руб., а за теленка - 0,5 руб., если на 100 руб. надо купить 100 голов скота?

Вот к этому даже не знаю как подступиться, думал два дня ничего не получилось, прошу помощи. подскажите как она решается?

[OCTAGRAM]

Сообщение от Студент заочник

Вторая задача. (Задача №6 стр.321 из раздела "Задачи по теме "Циклы" под раздел "Цикл с параметром").

Задача:
Составить алгоритм решения задачи: сколько можно купить быков, коров и телят, платя за быка 10 руб., за корову - 5 руб., а за теленка - 0,5 руб., если на 100 руб. надо купить 100 голов скота?

Вот к этому даже не знаю как подступиться, думал два дня ничего не получилось, прошу помощи. подскажите как она решается?

Видимо, перебором.