Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
wasted
7 / 0 / 1
Регистрация: 06.05.2012
Сообщений: 33
#1

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

02.12.2012, 10:40. Просмотров 998. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста написать программу(можно и за разумную оплату):
В записи хранится список товаров. Для каждого товара указаны его название, стоимость единицы товара в тыс. руб., количество и единица измерения (например, 100 шт., 20 кг). Написать программу, выполняющую:
1)ввод списка с клавиатуры;
2)вывод на экран информации о товаре, название которого введено с клавиатуры;
3)вывод на экран информации о штучном товаре в диапазоне цен от 100 до 300 тыс. руб.;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2012, 10:40
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вывод на экран информации о товаре, название которого введено с клавиатуры (Turbo Pascal):

Вывод на экран информации о товаре, название которого введено с клавиатуры - Turbo Pascal
В текстовом файле хранится список товаров. Для каждого товара указаны его название, название магазина, в котором продается товар, стоимость...

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

Добавить сортировку товаров по алфавиту и вывод информации о конкретном товаре - Turbo Pascal
Помогите дописать программу Если помогаете объясняйте подробней Задача: 1)Ввод данных с клавиатуры в массив состоящий из 8 элементов...

Вывести номера рейсов самолётов, вылетающих в пункт, название которого совпало с введённым с клавиатуры - Turbo Pascal
Организовать файл записей AEROFLOT, содержащих следующие поля: название пункта назначения рейса, номер рейса, тип самолёта. Поместить...

Разработать программу, которая осуществляет поиск в массиве записей информации о студенте, фамилия которого вводится с клавиатуры - Turbo Pascal
Разработать программу, которая выполняет те же действия что и в примере, но вводит исходные данные из текстового файла. это задание вот...

Организуйте вывод информации из файла по вводимому с клавиатуры номеру записи - Turbo Pascal
Напишите программу, организующую хранение в файле нескольких (до 5) записей о ваших друзьях. Организуйте вывод информации по вводимому с...

2
EvilVoodoo
258 / 93 / 8
Регистрация: 18.04.2011
Сообщений: 718
Записей в блоге: 1
02.12.2012, 10:53 #2
Что именно у вас не получается? Выложите код, который вы сделали - попробуем разобраться где проблемы.
Если вы хотите, чтобы вам с нуля написали такую программу - то вам уже, имхо, в раздел Фриланс
0
wasted
7 / 0 / 1
Регистрация: 06.05.2012
Сообщений: 33
02.12.2012, 15:32  [ТС] #3
Есть код похожего задания, Примерно такого вида надо сделать
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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
uses crt;
const nmax=20;
 
type telephone = record
     tel:  string[9];
     nom:  string[10];
     fam:  string;
     end;
     mas=array [1..nmax] of telephone;
 
var t: mas;
    n,v:byte;
 
procedure Vvod (var r: byte; var z: mas);
var c: char;
begin
c:='n';
if r>=20 then writeln('Лимит телефонных номеров исчерпан') else
   repeat
   clrscr;
   inc(r);
   writeln('Внесите ',r,' запись в телефонный справочник:');
   with z[r] do
        begin
        repeat
          write('Телефон (000-00-00): '); readln(tel);
        until (length(tel)=9) and ((tel[4]='-') and (tel[7]='-'));
        write('Номер помещения: '); readln(nom);
        write('Список служащих: '); readln(fam);
        end;
    write('Внести следующую запись? (y/n) '); readln(c);
    until c<>'y';
end;
 
procedure NomerT (r: byte; z: mas);
var i,k: byte;
    s: string;
begin
clrscr;
k:=0;
write('Введите номер телефона для поиска: ');  readln(s);
for i:=1 to r do
    with z[i] do
         if tel=s then
            begin
            inc(k);
            writeln('Телефон: ',tel);
            writeln('Номер помещения: ',nom);
            writeln('Служащие: ',fam);
            end;
if k=0 then writeln('В базе нет информации о данном номере телефона');
writeln('Enter to continue..');
readln;
end;
 
procedure NomerP (r: byte; z: mas);
var i,k: byte;
    s: string;
begin
clrscr;
k:=0;
write('Введите номер помещения для поиска: ');  readln(s);
for i:=1 to r do
    with z[i] do
         if nom=s then
            begin
            inc(k);
            writeln('Номер помещения: ',nom);
            writeln('Номер телефона: ',tel);
            end;
if k=0 then writeln('В базе нет информации о данном номере помещения');
writeln('Enter to continue..');
readln;
end;
 
procedure Familie (r: byte; z: mas);
var i,k: byte;
    s: string;
begin
clrscr;
k:=0;
write('Введите фамилию сотрудника для поиска: ');  readln(s);
for i:=1 to r do
    with z[i] do
         if pos(s,fam)<>0 then
            begin
            inc(k);
            writeln('Фамилия: ',s);
            writeln('Телефон: ',tel);
            writeln('Номер помещения: ',nom);
            end;
if k=0 then writeln('В базе нет информации о данном сотруднике');
writeln('Enter to continue..');
readln;
end;
 
begin
repeat
clrscr;
writeln('0-завершение работы');
writeln('1-ввод/добавление данных');
writeln('2-поиск по номеру телефона');
writeln('3-поиск по номеру помещения');
writeln('4-поиск по фамилии');
readln(v);
case v of
1: Vvod (n,t);
2: NomerT (n,t);
3: NomerP (n,t);
4: Familie (n,t);
end;
until v=0;
end.
И есть свои наброски по осуществлению своего задания:
Осуществление ввода с клавиатуры:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
begin
for i:= 1 to 10 do
 begin
 Writeln('Vvedite nazvanie tovara');
 ReadLn(a[i].name);
 Writeln('Stoimost tovara');
 ReadLn(a[i].st);
 Writeln('Kol-vo tovara')
 ReadLn(a[i].kolvo);
 Writeln('Edinica izmerenia')
 ReadLn(a[i].edizm);
 end;
end;
вывод на экран информации о товаре, название которого введено с клавиатуры;

Pascal
1
2
3
4
5
6
ReadLn('название товара');
for i:= 1 to 10 do
 begin
 if 'название товара' = a[i].name then
 WriteLn(a[i].name,'____',a[i].st,'_____',a[i].kolvo,'_____',a[i].edizm);
 end;
вывод на экран информации о штучном товаре в диапазоне цен от 100 до 300 тыс. руб.;
Pascal
1
2
3
4
5
for i:= 1 to 10 do
 begin
 if (a[i].st>100) or (a[i].st<300) and (a[i].edizm='шт') then 
WriteLn(a[i].name,'____',a[i].st,'_____',a[i].kolvo,'_____',a[i].edizm);
end;
Объединить самому ума не хватает...

Добавлено через 19 минут
Набросал что смог:
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
uses crt;
const nmax=5;
 
type tovary = record
     name:  string;
     st:  string;
     kolvo: byte;
     edizm:string;
     end;
var var a:array [1..nmax] of Tovary;
 
procedure Vvod;
var i:integer;
begin
for i:= 1 to nmax do
 begin
 Writeln('Vvedite nazvanie tovara');
 ReadLn(a[i].name);
 Writeln('Stoimost tovara');
 ReadLn(a[i].st);
 Writeln('Kol-vo tovara');
 ReadLn(a[i].kolvo);
 Writeln('Edinica izmerenia');
 ReadLn(a[i].edizm);
 end;
end;
 
 
 
procedure nazv ;
var i,k: integer;
    s: string;
begin
Writeln(' Vvedite nazvanie tovara');
Readln(s);
for i:= 1 to 10 do
 begin
 if s = a[i].name then
 WriteLn(a[i].name,'____',a[i].st,'_____',a[i].kolvo,'_____',a[i].edizm);
 end;
end;
 
 
 
 
 
procedure Vyvod;
var i,k: byte;
    s: string;
begin
for i:= 1 to 10 do
 begin
 if (a[i].st>100) or (a[i].st<300) and (a[i].edizm='шт') then 
WriteLn(a[i].name,'____',a[i].st,'_____',a[i].kolvo,'_____',a[i].edizm);
end;
end;
 
begin
repeat
clrscr;
writeln('0-zavershenie raboty');
writeln('1-vvod spiska');
writeln('2-vyvod informacii o tovare');
writeln('3-vyvod informacii o shtychnom tovare');
readln(v);
case v of
1: Vvod;
2: nazv;
3: Vyvod;
end;
until v=0;
end.
Ругается в строке:
Pascal
1
if (a[i].st>100) or (a[i].st<300) and (a[i].edizm='шт') then
Пишет тип не правильный, понять не могу почему, и какой поставить

Добавлено через 32 минуты
Проблему решил. Тема не актуальна

Добавлено через 3 часа 36 минут
Готовый код:
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
uses crt;
const n= 4;
type tovary = record
     name:  string;
     st:  real;
     kolvo: byte;
     edizm:string;
     end;
 
var a:array [1..n] of Tovary;
 
procedure Vvod;
var i:integer;
begin
for i:= 1 to n do
 begin
 Writeln('Vvedite nazvanie tovara');
 ReadLn(a[i].name);
 Writeln('Stoimost tovara');
 ReadLn(a[i].st);
 Writeln('Kol-vo tovara');
 ReadLn(a[i].kolvo);
 Writeln('Edinica izmerenia');
 ReadLn(a[i].edizm);
 end;
end;
 
 
 
procedure nazv ;
var i: integer;
    s: string;
begin
Writeln(' Vvedite nazvanie ISKOMOGO tovara');
Readln(s);
for i:= 1 to n do
 if s = a[i].name then
 WriteLn(a[i].name,'____',a[i].st:3:3,'_____',a[i].kolvo,'_____',a[i].edizm);
 Writeln;
end;
 
procedure Vyvod;
var i,k: byte;
begin
for i:= 1 to n do
 if ( (a[i].st > 100) and (a[i].st<300) and (a[i].edizm='sht')) then
WriteLn(a[i].name,'____',a[i].st:3:3,'_____',a[i].kolvo,'_____',a[i].edizm);
end;
 
begin
clrscr;
Writeln('Vvodite spisok');
Vvod;
nazv;
Writeln('infa o shtychnom tovare v diapazone ot 100 do 300');
vyvod;
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.12.2012, 15:32
Привет! Вот еще темы с ответами:

Создать и вывести на экран дерево, элементы которого вводятся с клавиатуры и имеют целый тип - Pascal
Создать и вывести на экран дерево, элементы которого вводятся с клавиатуры и имеют целый тип. Причем для каждой вершины дерева во всех...

Присвоить переменной название последнего из городов, название которого содержит более 4 букв - Turbo Pascal
Код Pascal 1Задан список городов. Присвоить переменной Т название последнего из городов, название которого содержит более 4 букв.

вывод на экран случайного одномерного массива,ввод с клавиатуры одномерного массива и вывод его на экран.и все это в одной проге.как это сделать? - Pascal
надо чтобы при запуске прграммы в паскале сначала вывелся на кран одномерный случайный массив,потом ввод с клавиатуры одномерного массива и...

Вывод информации из файла на экран - Turbo Pascal
Добрый день! Задача такова: нужно считать информацию из файла, и вывести её на экран. 1 строка – два целых числа: M и N . 2 строка –...


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

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

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