![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
Олежик |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
Ребят..
выручите плиз.... Меня из инста вышвырнут, если я её не сделаю. Заранее спасибо! Вот задача... ... ... ... ... составить алгоритм и прогу определения по данным из таблицы банка, купившего акции на наибольшую сумму!!! Таблица нах. в текст. файле list.txt ! Каждая строка таблицы содержит 4 поля. Первое - поле символьного типа, содержит название банка. Длина поля - 15 символов! Второе поле - символьного типа, содержит название компании, акции которого куплены банком. Длина поля - 20 символов. Третье поле - числового типа, содержит кол-во акций, купленных банком. Четвёртое поле - -числового типа, содержит стоимость одной акции в рублях. Длина каждого из этих полей - 5 символов!!!! ... ... Язык PASCAL!!! =) ПЛИЗ!!! |
klem4 |
![]()
Сообщение
#2
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Что конкретно вызывает затруднение ?
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Олежик |
![]()
Сообщение
#3
|
Новичок ![]() Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
1.Текстовый файл создан....
2.не могу написать процедуру. И немногго запутался с основной частью программы.. просто у нас такой учитель, который примеры не даёт.. |
Lapp |
![]()
Сообщение
#4
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
И немногго запутался с основной частью программы.. Приведи тут то, что есть. Распутаем ![]() -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
Олежик |
![]()
Сообщение
#5
|
|||
Новичок ![]() Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
Program... далее у меня текст выводится процедура тоже
|
|||
Олежик |
![]()
Сообщение
#6
|
Новичок ![]() Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
Так вы мне поможете?
Я тока завтра утро прогу перепишу.. заранее огромное спасибо!!! |
hiv |
![]()
Сообщение
#7
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 660 Пол: Мужской Реальное имя: Михаил Репутация: ![]() ![]() ![]() |
далее у меня текст выводится Текст с русскими символами? Если да, то в какой кодировке? win(cp1251) или dos(cp866)процедура тоже Короче - если текст нормально читается в блокноте (notepad), то надо менять его кодировку с win на dos. -------------------- Никогда не жадничай. Свои проблемы с любовью дари людям!
|
Олежик |
![]()
Сообщение
#8
|
Новичок ![]() Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
короче....
ребят.... вы мне поможетет процедуру написать? и саму прогу? |
Артемий |
![]()
Сообщение
#9
|
![]() Помощник капитана ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 601 Пол: Мужской Реальное имя: Артем Репутация: ![]() ![]() ![]() |
Олежик,для упрощения ты можешь дать нам этот txt файл,заранее с кодировкой дос!
-------------------- Dum spiro spero!
|
Олежик |
![]()
Сообщение
#10
|
Новичок ![]() Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
вот оно...
ktz.txt(сделано в блокноте) ![]() вот (сделано в Pascal) ktz1.txt Прикрепленные файлы ![]() |
NTL |
![]()
Сообщение
#11
|
![]() Фанат Delphi ![]() ![]() Группа: Пользователи Сообщений: 72 Пол: Мужской Реальное имя: Сергей Репутация: ![]() ![]() ![]() |
Код while not EOF(f1)do begin readln(f1,bank,comp,nmAczi,stAczi); if nmAczi*stAczi>max then begin mxBank:=bank; max:=nmAczi*stAczi end; end; write('mxBank = ',mxBank); close(f1); -------------------- ICQ (384-043-857)
|
Олежик |
![]()
Сообщение
#12
|
Новичок ![]() Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
Код while not EOF(f1)do begin readln(f1,bank,comp,nmAczi,stAczi); if nmAczi*stAczi>max then begin mxBank:=bank; max:=nmAczi*stAczi end; end; write('mxBank = ',mxBank); close(f1); т.е. Я открываю файл..... Название банка кидаю в bank, Кто купил кидаю comp, сколько купили - nmAczi; цеена одной....stAczi, Я правильно понял? если да.... вопрос.... как мне их туда кинуть...... с помощью оператора with? Напишите пожалуйста... |
NTL |
![]()
Сообщение
#13
|
![]() Фанат Delphi ![]() ![]() Группа: Пользователи Сообщений: 72 Пол: Мужской Реальное имя: Сергей Репутация: ![]() ![]() ![]() |
как мне их туда кинуть...... с помощью оператора with? Напишите пожалуйста... Здесь и происходит "кидание". Из файла f1 считываем данные и сохраняем в 4 переменные. with здесь вообще ни причем, ибо в данном случае сохранение происходит не в записи Код readln(f1,bank,comp,nmAczi,stAczi); -------------------- ICQ (384-043-857)
|
![]() ![]() |
![]() |
Текстовая версия | 10.06.2024 18:49 |