KMA 
Долгожитель
|
     
Во первых, комментарии ставяться в {комментарий} скобках.
Во вторых когда перечисляешь что-то то надо все через запятую, поэтому:
Var a, b, c, k, x: integer; {вот здесь я точно уверен}
Далее у тебя не совсем соответствует реалиям задачи введеные данные. Ты на первом этапе должен всегда определить, что у тебя за входные данные, и что за выходные.
Т. е. как я это делаю.
Входные данные:
по условию задачи
а количество нормированных минут (т. е. тарификационных)
b тариф.
с рублей за 1 минуту.
неявно заданные:
t время которое проговорил человек.
Выходные данные:
x итоговая сумма.
В программе нужна последовательность даже ввода данных. Поэтому код лучше переделать:
write ('Количество нормированных минут ->');
readLn (a);
write ('Тариф на первые ', a, ' минут ->');
readLn (b);
write ('Цена за дополнительную минуту ->');
readLn (c);
write ('Ваш разговор составил ->');
readLn (t);
Далее после then идут операнды, но никак не простые выражения. Другое дело, когда ты присваиваешь значение.
if t>a {если время разговора больше нормированного}
then x:=(t-a)*c+b {то к тарифу (b) прибавим количество дополнительных минут помноженное на c}
else x:=b; {иначе, сумма состваил b}
write ('Вы должны заплатить ->', x, ' рублей');
Вот и все задача.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 15 апр. 2007 22:50 | IP
|
|
nik007
Удален
|
Будем стараться следовать указаниям умных людей!!!
А за помошь спасибо!
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 16 апр. 2007 5:40 | IP
|
|
Guest
Новичок
|
Решите задачу: дан массив из целых чисел, и число цифр в массиве, мы сдвигаем массив влево на одно место.
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 16 апр. 2007 15:10 | IP
|
|
miss_graffiti
Долгожитель
|
 
Все, можно бежать решать?
Попробуй сам хоть что-то сделать.
Будут вопросы - поможем.
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 16 апр. 2007 19:02 | IP
|
|
KMA
Долгожитель
|
Решите задачу: дан массив из целых чисел, и число цифр в массиве, мы сдвигаем массив влево на одно место.
Прикольно, ты прям приказ отдал. =) Надо либо просить хорошо, либо показывать что сам сделал, другого способа получить помощь еще никто не придумал.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 16 апр. 2007 22:10 | IP
|
|
Turbi4
Удален
|
oo;
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 18 апр. 2007 20:40 | IP
|
|
Turbi4
Удален
|
Народ поможіти розвязати контрольну задачу Дано рядок S= ' казнить нельзя помилувати' вставити в речення кому на потрібне місця (записати фрагмент програми) з необхідними операторами
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 18 апр. 2007 20:48 | IP
|
|
KMA
Долгожитель
|
Хоть я беларус, я тебя совсем не понимаю! Можно как-нибудь по русски хотя бы с заданием, что именно мы должны вставить?
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 18 апр. 2007 22:45 | IP
|
|
kub
Новичок
|
народ очень нужен текст проги
Создайте файл Каталог книг. Занесите в отдельный файл все произведения заданного пользователем автора. Структура записи файла Каталог книг: автор (40 знаков), название (80 знаков), год издания (4 знака), специальность (40 знаков). Записи упорядочены по фамилиям автора.
ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО
|
Всего сообщений: 10 | Присоединился: апрель 2007 | Отправлено: 24 апр. 2007 0:16 | IP
|
|
KMA
Долгожитель
|
Извени, но я повторяю уже раз 100, чтобы вам помогли, вы должны показать, что вы делаете. Конкретизируйте вопрос!
Не может быть все непонятным.
Если хотите чтобы программа была написана, то закажите задачу у меня, у miss graffitti, еще у кого-нибудь. Это цена, за то что вы не хотите ничего разбирать и понимать.
Как правило варианта два, или платите за полное решение, или же пытаетесь сделать что-то сами (разобраться), тогда вам помогут. Поймите, это не бесплатное решение задач, это помощь в их решении.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 24 апр. 2007 21:25 | IP
|
|
|
Форум
Турбо Паскаль. Программирование на Pascal
