Организовать вывод товара и стоимость по запросу

11.07.2013, 09:25. **Показов** 1018. **Ответов** 1

Студворк — интернет-сервис помощи студентам

вот код

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
program primer_2_3;
uses crt;
type
cProduct=object
nname:string;
price:integer;
t:Text;
procedure lin;
procedure lout;
 
end;
 
procedure cProduct.lin;
begin
writeln('Vvedite name tovara',nname);
readln(nname);
writeln('Vvedite ceny tovara',price);
readln(price);
end;
 
procedure cProduct.lout;
begin
assign (t,'test2.txt');
rewrite(t);
write(t,nname);
writeln(t,' ',price);
close(t);
end;
 
Var
I : Integer;
Begin
  For I:=1 To 3 Do
  cProduct.lin;
  cProduct.lout;
  end;
end.

Ошибки:new4.pas(32,3) Error: Illegal expression
new4.pas(33,3) Error: Illegal expression
new4.pas(34,4) Fatal: There were 2 errors compiling module, stopping
new4.pas(0) Fatal: Compilation aborted

Добавлено через 4 часа 1 минуту
Или есть умельци которые с с++ на паскаль могут прогу переделать, будет еще лучше.
Вот код:

C++
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
#include<iostream.h>
#include<fstream.h>
#include<conio.h>
#include<process.h>
 
ofstream out("out.txt");
 
class cProduct
{
char number[5],name[12];
int price;
public:
 
void in()
{
cout<<"Vvedite name tovara\n";
cin>>name;
cout<<"Vvedite ceny tovara\n";
cin>>price;
}
 
void Out(j)
{
out<<j+1<<" "<<name<<" "<<price<<"\n";
}
 
void OutName()
{
cout<<name<<endl;
}
 
void OutPrice()
{
cout<<price<<endl;
}
 
void OutNamePrice()
{
cout<<name<<" "<<price<<endl;
}
};
 
void main()
{
cProduct *mas;
mas = new cProduct[5];
int n;
 
for (int i=0;i<5;i++)
{
mas[i].in();
mas[i].Out(i);
}
getch();
m:
clrscr();
int p;
cout<<"1.Spisok tovara\n2.Price\n3.Spisok tovara and price\n4.Vivod opredelennogo tovara and price\n5.Exit\n";
cin>>p;
if(p==1)
{
clrscr();
cout<<"Spisok tovara"<<endl;
for (int i=0;i<5;i++)
{
mas[i].OutName();
}
getch();
goto m;
}
if(p==2)
{
clrscr();
cout<<"Price"<<endl;
for (int i=0;i<5;i++)
{
mas[i].OutPrice();
}
getch();
goto m;
}
if(p==3)
{
clrscr();
cout<<"Spisok tovara and price"<<endl;
for (int i=0;i<5;i++)
{
mas[i].OutNamePrice();
}
getch();
goto m;
}
if(p==4)
{
clrscr();
cout<<"Vvedite nomer tovara kotoriy nugno vivesti ";
cin>>n;
clrscr();
cout<<"Vivod tovara pod nomerom "<<n<<endl;
mas[n-1].OutNamePrice();
getch();
goto m;
}
if(p==5)
{
exit(1);
}
}

заранее спасибо!

Добавлено через 3 часа 5 минут
Условие паскаль: Описать объект, и записать его в файл. Объект содержит: Номер товара(пять символов), наименование товара(12 символов) и стоимость товара(int). Организовать вывод товара и стоимость по запросу. В файл записать массив товаров >= 10 штук.

@Puporev · 11.07.2013, 10:25

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
program primer_2_3;
uses crt;
const nmax=10;
type cProduct=object
              artik:string[5];
              nname:string[12];
              price:integer;
              procedure lin(var f:text);
              procedure lout(var f:text);
              end;
 
procedure cProduct.lin(var f:text);
begin
writeln('Vvedite articul tovara do 5 simvolov');
readln(artik);
writeln('Vvedite name tovara do 12 simvolov');
readln(nname);
writeln('Vvedite ceny tovara, celoe chislo');
readln(price);
writeln(f,artik,' ',nname,' ',price);
end;
 
procedure cProduct.lout(var f:text);
var s:string;
begin
while not eof(f) do
 begin
  readln(f,s);
  artik:=copy(s,1,pos(' ',s)-1);
  write(artik);
  delete(s,1,pos(' ',s));
  nname:=copy(s,1,pos(' ',s)-1);
  write(' ',nname);
  delete(s,1,pos(' ',s));
  writeln(' ',s)
 end
end;
 
var n,i:integer;
    a:cProduct;
    f:text;
Begin
clrscr;
repeat
write('Kolichestvo tovarov ot 1 do ',nmax,' n=');
readln(n);
until n in [1..nmax];
assign(f,'tovar.txt');
rewrite(f);
for i:=1 to n do
a.lin(f);
close(f);
reset(f);
clrscr;
writeln('Spisok tovarov:');
a.lout(f);
close(f);
readln
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .