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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.05.2016, 08:52   #1
destra1j
Пользователь
 
Регистрация: 04.05.2016
Сообщений: 47
Сообщение (PascalABC.NET)вопрос по записям

я уже делал задачи с записями но там пользователь вводил значение полей но тут мне задали сделать так чтоб поля уже были заполнены в условии программы и их пользователю вводить не приходилось.Подскажите как это сделать буду очень благодарен.
Работаю в Паскале ABC.NEN

Последний раз редактировалось destra1j; 06.05.2016 в 10:24.
destra1j вне форума Ответить с цитированием
Старый 06.05.2016, 10:04   #2
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,758
По умолчанию

делали? где наработки? ссылки на темы? + где нормальный заголовок темы?
Alar вне форума Ответить с цитированием
Старый 06.05.2016, 10:23   #3
destra1j
Пользователь
 
Регистрация: 04.05.2016
Сообщений: 47
По умолчанию

Код:
program pract;
type Production=record
 kod_tovara:string;
 nazva:string;
 firma:string;
 data_vig:integer;
 kilk:integer;
 cena:integer;
 end; 
var
Sklad :array [1..100] of Production;
i,n:integer;
begin
for I:=1 to 100 do 
   begin
   writeln ('введите сведения о’, i , ‘-м товаре'); 
   
   writeln ('введите номер товара');
   readln (Sklad[i].kod_tovara); 
   writeln ('введите название'); 
   readln (Sklad[i].nazva); 
   writeln ('введите фирму'); 
   readln (Sklad[i].firma); 
   writeln ('введите дату производства'); 
   readln(Sklad[i].data_vig); 
   writeln ('введите введите количество'); 
   readln(Sklad[i].kilk); 
   writeln ('введите цену'); 
   readln (Sklad[i].cena);
   end;
 writeln ('ввод закончен');
 writeln;
 writeln('введите цену товара');
 readln(n);
 for I:=1 to 100 do 
      if Sklad[i].cena=n then 
         writeln(' название товара : ’, Sklad[i].kod tovara');
end.
вот моя прошлая задача в которой пользователь вводит данные
destra1j вне форума Ответить с цитированием
Старый 06.05.2016, 10:31   #4
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Код:
type zap=record
         p1:string[20];
         p2:integer;
         p3:double;
         end;
const n=3;        
      z:array[1..n]of zap=((p1:'название1';p2:25;p3:25.65),
                           (p1:'название2';p2:15;p3:35.65),
                           (p1:'название3';p2:35;p3:15.65));
var i:byte;
begin
for i:=1 to n do
writeln(z[i].p1,' ',z[i].p2,' ',z[i].p3);
end.
puporev вне форума Ответить с цитированием
Старый 06.05.2016, 10:34   #5
destra1j
Пользователь
 
Регистрация: 04.05.2016
Сообщений: 47
По умолчанию

спасибо
destra1j вне форума Ответить с цитированием
Старый 06.05.2016, 10:37   #6
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

самый простой способ - это объявить файл и скинуть все ваши записи в него.
например:
Код:
type Production=record
 kod_tovara:string[255];
 nazva:string[255];
 firma:string[255];
 data_vig:integer;
 kilk:integer;
 cena:integer;
 end;
const ProductFileName  = 'Product.db';
var
Sklad :array [1..100] of Production;
f : file of Production;
i,n:integer;
begin
  If Not FileExists(ProductFileName) then begin
    Write('Сколько записей будете вводить: '); ReadLn(n);
    for I:=1 to n do begin
     writeln ('введите сведения о’, i , ‘-м товаре'); 
     writeln ('введите номер товара');
     readln (Sklad[i].kod_tovara); 
     writeln ('введите название'); 
     readln (Sklad[i].nazva); 
     writeln ('введите фирму'); 
     readln (Sklad[i].firma); 
     writeln ('введите дату производства'); 
     readln(Sklad[i].data_vig); 
     writeln ('введите введите количество'); 
     readln(Sklad[i].kilk); 
     writeln ('введите цену'); 
     readln (Sklad[i].cena);
    end;
    writeln ('ввод закончен');

    {теперь сохраним все записи из массива в файл}
    Assign(f, ProductFileName );
    Rewrite(f);
    for i:=1 to n do Write(f, Sklad[i]);
    Close(f);
  end
  else begin {если есть файл, читаем из него}
    Assign(f, ProductFileName );
    Reset(f);
    n:=0;
    while Not eof(f) do begin
       inc(n);
       Read(f, Sklad[n])
    end;
    Close(f);
  end;

.... 
дальше ваша программа....
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
навигатор по записям Aqil_f Microsoft Office Excel 15 31.05.2018 12:07
Вопрос по записям в Ассеss sosed Microsoft Office Access 1 17.09.2015 15:56
Задача по записям zenid Помощь студентам 2 23.04.2012 19:00
цикл по записям vladislav_m БД в Delphi 7 05.04.2012 19:35
поиск по записям незнайка_на_земле Помощь студентам 5 25.10.2011 21:53