Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.03.2010, 21:25   #1
qwertyuiop12
 
Регистрация: 20.03.2010
Сообщений: 6
По умолчанию Паскаль. Обработка записей.

Даны массивы: N1,...,N5- номерные знаки автомашин.
L1,...,L5-пробег за месяц в км.
T1,...,T5- обработанные часы в течении месяца.

Напечатать два списка:
1) Список автомашин,у которых среднесуточный пробег за месяц менее 300км
2)Список автомашин, у которых среднесуточное время в наряде более 10ч.
qwertyuiop12 вне форума Ответить с цитированием
Старый 21.03.2010, 22:04   #2
Stepler
Форумчанин
 
Аватар для Stepler
 
Регистрация: 03.02.2008
Сообщений: 213
По умолчанию

Сделаю, ICQ 392-172-602
Пишу программы на заказ, контакты под аватаром!
Отзывы тут
Stepler вне форума Ответить с цитированием
Старый 21.03.2010, 23:20   #3
helpprogram
 
Регистрация: 03.03.2010
Сообщений: 4
По умолчанию

Пиши, сделаем в лучшем виде.
ICQ 491 - 901 - 645.
helpprogram@mail.ru
helpprogram вне форума Ответить с цитированием
Старый 21.03.2010, 23:51   #4
LeninNT
Пользователь
 
Регистрация: 18.03.2010
Сообщений: 13
По умолчанию

Сделаю качественно и недорого
648-407-307. kovbasa86@mail.ru
LeninNT вне форума Ответить с цитированием
Старый 21.03.2010, 23:57   #5
pproger
C++ hater
СтарожилДжуниор
 
Аватар для pproger
 
Регистрация: 19.07.2009
Сообщений: 3,333
По умолчанию

о господи..... лень взять учебник и за час сделать? вообще обленились

const numbers: array[1..5] of string = ('00001', '00002', '00003', '00004', '00005');
runs: array[1..5] of integer=(4000, 8000, 9000, 14300, 5500);
hours: array[1..5] of integer=(400, 50, 550, 450, 110);
var
i: integer;
begin
writeln('hours per day > 10');

for i := 1 to 5 do begin
if hours[i] / 30 > 10 then
writeln(numbers[i]);
end;

writeln('run per day < 300');

for i := 1 to 5 do begin
if runs[i] / 30 < 300 then
writeln(numbers[i]);
end;
end.


задание корявое... лучше делать на записях
I invented the term Object-Oriented, and I can tell you I did not have C++ in mind. (c)Alan Kay

My other car is cdr.

Q: Whats the object-oriented way to become wealthy?
A: Inheritance
pproger вне форума Ответить с цитированием
Старый 22.03.2010, 00:12   #6
helpprogram
 
Регистрация: 03.03.2010
Сообщений: 4
По умолчанию

Если нечем занятся, иди в тему:
Суперпозиция группировки данных. СУБД ACCESS, напиши им код на форуме, они тебе флаг дадут и ты сможешь возглавить колонну
helpprogram@mail.ru
helpprogram вне форума Ответить с цитированием
Старый 22.03.2010, 00:22   #7
pproger
C++ hater
СтарожилДжуниор
 
Аватар для pproger
 
Регистрация: 19.07.2009
Сообщений: 3,333
По умолчанию

2helpprogram
я твою работку перехватил? прям как конфетку у ребенка отобрал... маме жаловаться будешь?

самому то не стыдно деньги за такое брать? можешь еще у школы постоять, первоклашкам 2+2 считать за деньги
I invented the term Object-Oriented, and I can tell you I did not have C++ in mind. (c)Alan Kay

My other car is cdr.

Q: Whats the object-oriented way to become wealthy?
A: Inheritance
pproger вне форума Ответить с цитированием
Старый 22.03.2010, 00:33   #8
helpprogram
 
Регистрация: 03.03.2010
Сообщений: 4
По умолчанию

Ты все отрасли знаешь? Иди на форум иностранных языков, на форум php программистов.Сколько ты изучал программирование? 5-10 минут? чтоб за это не заплатить.
Конфетка ... ммм
Тем более тема про записи, а ты их не используешь.
helpprogram@mail.ru

Последний раз редактировалось helpprogram; 22.03.2010 в 00:41.
helpprogram вне форума Ответить с цитированием
Старый 22.03.2010, 00:43   #9
pproger
C++ hater
СтарожилДжуниор
 
Аватар для pproger
 
Регистрация: 19.07.2009
Сообщений: 3,333
По умолчанию

2helpprogram
все, что связанное с программированием (и не только) я решаю сам. посмотри на мое кол-во постов и на кол во созданных тем (можешь и на свои заодно взглянуть). я ничего не получаю с этого форума, понимаешь?
да, тема во фрилансе, ну и что? но задание не фрилансовское ниразу.

а насчет записей, о них упоминание только в заглавии, в задании про них ничего не сказано. более того, дают ясно понять, что используется 3 массива для каждой сущности (номер, время, километраж). поэтому я посчитал, что "запись" в данном контексте не паскалевский record, а в контексте каких-либо данных. но если тс попросит переделать именно со структурами (записи, бррр), не вопрос. и кстати, в своем посте я сделал на этом акцент, не заметил?
I invented the term Object-Oriented, and I can tell you I did not have C++ in mind. (c)Alan Kay

My other car is cdr.

Q: Whats the object-oriented way to become wealthy?
A: Inheritance
pproger вне форума Ответить с цитированием
Старый 22.03.2010, 00:48   #10
helpprogram
 
Регистрация: 03.03.2010
Сообщений: 4
По умолчанию

>>>>>>>>>>>>>>>>>> я ничего не получаю с этого форума, понимаешь?
Ты мешаешь бедным студентам и мне , зарабатывать на булочку, кофе и "конфетку"
=)))))))))))))))))))))
helpprogram@mail.ru
helpprogram вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль. Обработка записей. qwertyuiop12 Помощь студентам 5 21.03.2010 21:53
Паскаль. Обработка записей. qwertyuiop12 Помощь студентам 1 21.03.2010 13:06
обработка записей 555shiro Общие вопросы C/C++ 10 22.02.2010 20:41
Обработка записей C++ Mart Общие вопросы C/C++ 3 25.09.2008 22:41