Модераторы: Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Pascal] Запись и чтение из файла. 
V
    Опции темы
Winprogrammer
Дата 4.2.2007, 20:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 141
Регистрация: 23.3.2006
Где: ::Россия.РСО-Алан ия.Владикавка

Репутация: нет
Всего: нет
лови

Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  ___________.rar 2,87 Kb
--------------------
Я не понял Вашего вопроса, но я Вам на него отвечу…-----------
Uploading файлов без гемороя - это просто!!!
Winprogrammer.ifolder.ru
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Neolamer
Дата 4.2.2007, 20:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 1.2.2007

Репутация: нет
Всего: нет
Цитата(Winprogrammer @ 4.2.2007,  20:17)
лови

сп, щас посмотрим.
PM MAIL   Вверх
Neolamer
  Дата 4.2.2007, 20:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 1.2.2007

Репутация: нет
Всего: нет
 smile не пашет вывод на экран после того как все введёшь я тоже самое писал

Это сообщение отредактировал(а) Neolamer - 4.2.2007, 20:42
PM MAIL   Вверх
Winprogrammer
Дата 4.2.2007, 20:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 141
Регистрация: 23.3.2006
Где: ::Россия.РСО-Алан ия.Владикавка

Репутация: нет
Всего: нет
А на экран я и не делал.

вот добавь после вызова процедуры экспорта в файл:
Код

 writeln(buf.fam);
 writeln(buf.d1);
 writeln(buf.d2);
 writeln(buf.d3);
 writeln(buf.d4);
 writeln(buf.d5);
 writeln(buf.d6);

--------------------
Я не понял Вашего вопроса, но я Вам на него отвечу…-----------
Uploading файлов без гемороя - это просто!!!
Winprogrammer.ifolder.ru
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Neolamer
Дата 4.2.2007, 20:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 1.2.2007

Репутация: нет
Всего: нет
Цитата(Winprogrammer @ 4.2.2007,  20:45)
А на экран я и не делал.

вот добавь после вызова процедуры экспорта в файл:
Код

 writeln(buf.fam);
 writeln(buf.d1);
 writeln(buf.d2);
 writeln(buf.d3);
 writeln(buf.d4);
 writeln(buf.d5);
 writeln(buf.d6);

Тогда инфа выводиться после каждого ввода сборщика, а я хочу чтоб она вывелась после всех вводов инфы, и чтоб она была по всем сборщикам хотя лучше бы ты мне объяснил чо делат по моим заданиям, как вывести фамилию сборщика и общее количество сделанных им деталий?
PM MAIL   Вверх
Winprogrammer
Дата 4.2.2007, 20:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 141
Регистрация: 23.3.2006
Где: ::Россия.РСО-Алан ия.Владикавка

Репутация: нет
Всего: нет
Заводишь массив нужной длины типа recfile и после ввода всей инфы бежишь но этому массиву и выводишь
--------------------
Я не понял Вашего вопроса, но я Вам на него отвечу…-----------
Uploading файлов без гемороя - это просто!!!
Winprogrammer.ifolder.ru
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Neolamer
Дата 4.2.2007, 21:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 1.2.2007

Репутация: нет
Всего: нет
smile Думаешь я смогу это сделать?

Добавлено @ 21:03 
Чтобы найти обще количество изделий сделаных каждым сборщиком нужно тоже масив заводить?
PM MAIL   Вверх
Winprogrammer
Дата 4.2.2007, 21:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 141
Регистрация: 23.3.2006
Где: ::Россия.РСО-Алан ия.Владикавка

Репутация: нет
Всего: нет
Цитата(Neolamer @  4.2.2007,  21:01 Найти цитируемый пост)
Думаешь я смогу это сделать?

Поверь в свои силы!!!!!!!!!

Цитата(Neolamer @  4.2.2007,  21:01 Найти цитируемый пост)
Чтобы найти обще количество изделий сделаных каждым сборщиком нужно тоже масив заводить? 

Зачем?! у тя уже есть массив для каждого сборщика. Бежишь по всему массиву и для каждого сборщика путем сумирования этих св-в находишь для каждого сумму всех изделий
Код

 buf.d1+buf.d2+buf.d3+buf.d4+ buf.d5+buf.d6;


Это сообщение отредактировал(а) Winprogrammer - 4.2.2007, 21:17
--------------------
Я не понял Вашего вопроса, но я Вам на него отвечу…-----------
Uploading файлов без гемороя - это просто!!!
Winprogrammer.ifolder.ru
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Neolamer
Дата 4.2.2007, 21:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 1.2.2007

Репутация: нет
Всего: нет
Цитата(Winprogrammer @ 4.2.2007,  21:15)
Зачем?! у тя уже есть массив для каждого сборщика. Бежишь по всему массиву и для каждого сборщика путем сумирования этих св-в находишь для каждого сумму всех изделий

я это и имел ввиду что типа его тоже использовать для этой цели
PM MAIL   Вверх
Winprogrammer
Дата 4.2.2007, 21:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 141
Регистрация: 23.3.2006
Где: ::Россия.РСО-Алан ия.Владикавка

Репутация: нет
Всего: нет
Цитата(Neolamer @  4.2.2007,  21:20 Найти цитируемый пост)
я это и имел ввиду что типа его тоже использовать для этой цели 

есессно! а для чего он тогда нужен?
--------------------
Я не понял Вашего вопроса, но я Вам на него отвечу…-----------
Uploading файлов без гемороя - это просто!!!
Winprogrammer.ifolder.ru
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Neolamer
Дата 4.2.2007, 21:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 1.2.2007

Репутация: нет
Всего: нет
Так это я сделал smile , теперь както надо найти фамилию сборщика собравшего наибольшее число изделий.
Код

uses crt;
type recfile=record (*Zapis dannih po sborshikam*)
fam:string[15];
d1,d2,d3,d4,d5,d6:word;
end;
var
i:integer; (*Nomer zapisi*)
f:Text;
m:array[1..7] of recfile;
procedure ExportToFile;
begin
writeln(f, m[i].fam);
writeln(f, m[i].d1);
writeln(f, m[i].d2);
writeln(f, m[i].d3);
writeln(f, m[i].d4);
writeln(f, m[i].d5);
writeln(f, m[i].d6);
end;
begin
clrscr;
assign(f,'sbor.txt');
rewrite(f);
writeln('Vvedite dannie po sborshikam:');
for i:=1 to 2 do
begin
write('Familia-> '); readln(m[i].fam);
write('Chislo isdelii sobranih v ponedelnik-> '); readln(m[i].d1);
write('Chislo isdelii sobranih vo vtornik  -> '); readln(m[i].d2);
write('Chislo isdelii sobranih v sredu     -> '); readln(m[i].d3);
write('Chislo isdelii sobranih v chetverg  -> '); readln(m[i].d4);
write('Chislo isdelii sobranih v piatnicu  -> '); readln(m[i].d5);
write('Chislo isdelii sobranih v subbotu   -> '); readln(m[i].d6);
ExportToFile;

end;
for i:=1 to 2 do
writeln(i,': ',m[i].fam,'-> ',m[i].d1+m[i].d2+m[i].d3+m[i].d4+m[i].d5+m[i].d6);
close(f);
readkey;
end.


Это сообщение отредактировал(а) Neolamer - 4.2.2007, 21:56
PM MAIL   Вверх
Winprogrammer
Дата 4.2.2007, 22:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 141
Регистрация: 23.3.2006
Где: ::Россия.РСО-Алан ия.Владикавка

Репутация: нет
Всего: нет
При подсчете кол-ва элементов просто в некую переменную записываешь и сравниваешь если у пред. больше тогда не изменяешь знач. этой переменной иначе изменяешь.
--------------------
Я не понял Вашего вопроса, но я Вам на него отвечу…-----------
Uploading файлов без гемороя - это просто!!!
Winprogrammer.ifolder.ru
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Neolamer
Дата 4.2.2007, 23:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 1.2.2007

Репутация: нет
Всего: нет
Цитата(Winprogrammer @ 4.2.2007,  22:35)
При подсчете кол-ва элементов просто в некую переменную записываешь и сравниваешь если у пред. больше тогда не изменяешь знач. этой переменной иначе изменяешь.

так я элементы считаю во writeln, т.к. если я отдельно считаю, что не получаеется подсчот по каждому сборщику а только по паследнему так как я смогу присвоить перменную этой сумме?

Добавлено @ 23:58 
Короче допеши пж эту прогу, у меня уже бошка гудит ничо несоображаю целый день за ней сижу, завтра её сдавать надо я нефига не соображаю smile  smile  smile я бешусь уже smile  smile 
PM MAIL   Вверх
Strannik
Дата 5.2.2007, 00:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 154
Регистрация: 25.1.2007

Репутация: 1
Всего: 2
Кстати, а не лучше ли было хранить кол-во деталей по дням в массиве? А то так некрасиво выходит.

Код

fmax:='';
max:=0;
for i:=1 to n do
 begin
  t:=m[i].d1+m[i].d2+m[i].d3+m[i].d4+m[i].d5+m[i].d6;
  if t>max then
   begin
    max:=t;
    fmax:=m[i].fam;
   end;
 end;
PM MAIL   Вверх
Neolamer
Дата 5.2.2007, 00:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 19
Регистрация: 1.2.2007

Репутация: нет
Всего: нет
Цитата(Strannik @ 5.2.2007,  00:02)
Кстати, а не лучше ли было хранить кол-во деталей по дням в массиве? А то так некрасиво выходит.

Код

fmax:='';
max:=0;
for i:=1 to n do
 begin
  t:=m[i].d1+m[i].d2+m[i].d3+m[i].d4+m[i].d5+m[i].d6;
  if t>max then
   begin
    max:=t;
    fmax:=m[i].fam;
   end;
 end;

Огромное сп, теперь мне нужной найти день когда этот чел больше всего собрал деталей.

Это сообщение отредактировал(а) Neolamer - 5.2.2007, 00:20
PM MAIL   Вверх
Страницы: (3) Все 1 [2] 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0648 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.