Форум программистов, компьютерный форум CyberForum.ru

Переведите программу из Паскаля в С++ - C++

Восстановить пароль Регистрация
 
Dimka4351
1 / 1 / 0
Регистрация: 08.10.2013
Сообщений: 22
24.12.2013, 20:40     Переведите программу из Паскаля в С++ #1
Добрый вечер!
Кому не сложно, переведите прогу из паскаля в с++
Вот задание:
Описать запись с именем PRICE, содержащую следующие поля:
• TOVAR — название товара;
• MAG — название магазина, в котором продается товар;
• STOIM — стоимость товара в руб.
2. Написать программу, выполняющую следующие действия:
• ввод с клавиатуры данных в массив SPISOK, состоящий из восьми эле¬ментов типа PRICE; записи должны быть размещены в алфавитном по¬рядке по названиям товаров;
• вывод на экран информации о товаре, название которого введено с клавиа¬туры;
• если таких товаров нет, выдать на дисплей соответствующее сообщение.

А вот код на Паскале:
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
Uses crt; 
Const n=8; 
Type price=record 
Naz:string; 
Kod:word; 
Mag:string; 
Stm:real; 
End; 
Var 
A:array[1..n] of price; 
X:price; 
I,j:byte; 
Mg:string; 
Begin 
Clrscr; 
Writeln(‘введите данные о’,n,’товарах:); 
For I:=1 to n do 
Begin 
Writeln(‘товар’,i); 
With a do 
Begin 
Write(‘название:); readln(naz); 
Write(‘код:); readln(kod); 
Write(‘магазин:); readln(mag); 
Write(‘стоимость:); readln(stm); 
End; 
End; 
Clrscr; 
{сортировка по коду} 
For i:=1 to n-1 do 
For j:=i+1 to n do 
If a.kod>a[j].kod then 
Begin 
X:=a; 
A:=a[j]; 
A[j]:=x; 
End; 
Writeln(‘список товаров::30); 
Writeln(--------------); 
Writeln(‘|название|код|магазин|стоимость|’); 
Writeln(--------); 
For i:-=1 to n do 
With a do 
Begin 
GotoXY(1,whereY);write(‘|’,naz); 
GotoXY(15,whereY);write(‘|’,kod); 
GotoXY(23,whereY);write(‘|’,mag); 
GotoXY(35,whereY);write(‘|’,stm:10:2); 
GotoXY(47,whereY);write(‘|’); 
End; 
Writeln(--------------); 
Write(какой товар в магазине:); 
Readln(mg); 
J:=0; 
For i:=1 to n do 
If a.mag=mg then 
Begin 
J:=1; 
Write(a.naz); 
End; 
If j=0 then write(‘такого нет’); 
Readln 
End
Заранее спасибо!

Добавлено через 17 минут
Извините, если кого по тревожил! Сам разобрался)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2013, 20:40     Переведите программу из Паскаля в С++
Посмотрите здесь:

переведите на С++ из паскаля C++
Переведите с Паскаля C++
C++ переведите с Паскаля на си++
C++ переведите с Паскаля на си++
переведите код с паскаля на с++ C++
C++ Ребята переведите с Паскаля на си++ п л с
переведите с Паскаля на си++ пожалуйста! C++
C++ Переведите прогамму с паскаля на c++
C++ Переведите из Паскаля в С++
C++ Переведите программу из Паскаля на С++
Переведите код с паскаля на си C++
Переведите с паскаля в С++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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