Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
0 / 0 / 1
Регистрация: 01.12.2012
Сообщений: 32
1

Вывод на экран информации о товаре, название которого введено с клавиатуры

01.04.2013, 07:45. Показов 2372. Ответов 2
Метки нет (Все метки)

В текстовом файле хранится список товаров. Для каждого товара указаны его название, название магазина, в котором продается товар, стоимость товара в тыс. руб. и его количество с указанием единицы измерения (например, 100 шт., 20 кг).

Написать программу, выполняющую следующие действия:
корректировку или дополнение списка с клавиатуры;
сортировку по названию товара или по названию магазина;
вывод на экран информации о товаре, название которого введено с клавиатуры;
запись списка в файл под тем же или новым именем.
у меня сделан вывод файла, и вывод на экран информации о товаре...
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.04.2013, 07:45
Ответы с готовыми решениями:

Вывод на экран информации о товаре, название которого введено с клавиатуры
Помогите пожалуйста написать программу(можно и за разумную оплату): В записи хранится список...

Вывод на экран информации о товарах, продающихся в магазине, название которого введено с клавиатуры
Помогите исправить ошибки и дополнить программу а то не совсем все получилось. Задание: Описать...

Вывод на дисплей информации о маршрутах, которые начинаются или кончаются в пункте, название которого введено
помогите разобраться как вывести информацию о маршрутах, которые начинаются или кончаются в пункте?...

Вывести информацию о людях, родившихся в месяц,название которого введено с клавиатуры
Даны сведения :фамилия, имя, знак зодиака, дата рождения (массив из трех чисел).Вывести информацию...

2
0 / 0 / 1
Регистрация: 01.12.2012
Сообщений: 32
02.04.2013, 07:51  [ТС] 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
 program Zadanie16;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
 
const Max_n = 100;
type
   str20 = string [20];
   str14 = string [14];
   goods = record
      name   : str20;
      name1  : str14;
      price  : real;
      number : integer;
   end;
var stock     : array[1 .. Max_n] of goods;
    i, j, len,n : integer;         
    name      : str20;
    name1     : str14;
    found     : boolean;
    f,f1      : text;
    g         : goods;
begin
   assign(f, 'stock.txt');
   reset(f);
    i := 1;
 
   while not Eof(f) do
  begin
      with stock[i] do readln(f, name, name1, price, number);
      inc(i);
      if i > Max_n then
    begin
         writeln('Perepolnenie massiva'); exit
    end;
  end;
      n:=i-1;
      for i:= 1 to n do
      writeln(stock[i].name:20,stock[i].name1:14, stock[i].price:10:2, stock[i].number:7);
     writeln('Otsortiruem po imeni');
      for i:=1 to n-1 do
      for j:=1 to n-1 do
       if (stock[j].name>stock[j+1].name)then
       begin
          g:= stock[j];
          stock[j]:=stock[j+1];
          stock[j+1]:=g
       end;
       for i:= 1 to n do
      writeln(stock[i].name:20,stock[i].name1:14, stock[i].price:10:2, stock[i].number:7);
 
      while true do
      begin
      writeln('Vvedite naimenovanie'); Readln(name);
      len := length(name);
      if len = 0 then break;
      for j := len + 1 to 20 do name := name + ' ';
      found := false;
      for j := 1 to i - 1 do begin
          if name <> stock[j].name then continue;
          with stock[j] do writeln (name:20, name1:14, price:10:2, number:7);
          found := true;
          break;
      end;
      if not found then writeln ('Tovar ne naiden');
      end;
     
 
 
 
 
 
 
 
 
 
end.
Вот, что сделано у меня, это поиск товара, и 2 сортировки, но нету перезаписи файл, может кто помочь?)
0
222 / 220 / 218
Регистрация: 03.07.2012
Сообщений: 460
02.04.2013, 08:16 3
Pascal
1
2
3
4
rewrite(f);
for i:= 1 to n do
  writeln(f,stock[i].name:20,stock[i].name1:14, stock[i].price:10:2, stock[i].number:7);
close(f);
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.04.2013, 08:16

Структуры: вывод на экран информации о поезде, номер которого введен с клавиатуры
Описать структуру с именем POEZD, содержащую следующие поля: название пункта назначения; номер...

Структура: Вывод на экран информации о человеке, номер телефона которого введен с клавиатуры
1. Описать файл записей с именем note, содержащий следующие поля: фамилия, имя, номер телефона,...

Вывести на экран информации о человеке, номер телефона которого введен с клавиатуры
Программа должна :Написать программу, выполняющую следующие действия: • ввод с клавиатуры данных в...

Выполнение процедуры\функции название которой введено с клавиатуры
нужен кусок кода отвечающий за то чтобы выполнялась та процедура или функция название которой будет...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.