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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Dimka4351
1 / 1 / 0
Регистрация: 08.10.2013
Сообщений: 22
#1

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

24.12.2013, 20:40. Просмотров 127. Ответов 0
Метки нет (Все метки)

Добрый вечер!
Кому не сложно, переведите прогу из паскаля в с++
Вот задание:
Описать запись с именем 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++
Задание: Даны два числа n и m. Создайте двумерный массив и заполните его по следующим правилам: Числа, стоящие в строке 0 или в столбце 0...

переведите с Паскаля на си++ - C++
на паскале получается...а вот на си++ не о чем(( Program MinMax17; const N=10; TheArr:array of integer = (10,20,1,4,5,-6,7,8,9,10);...

переведите с Паскаля на си++ - C++
uses crt; const nmax=100; var a:array of integer; n,i,j,i1,i2:byte; mn:integer; begin repeat write('Размер массива до...

Переведите с Паскаля - C++
Всем привет! Нарыл в инете прогу на Паскале (прога определяет день недели по дате). Нужно перевести ее на С++ program denned; ...

Переведите с паскаля в С++ - C++
if (str='А') or (str='A') then j:=j+1; if (str='а') or (str='a') then k:=k+1;

Переведите из Паскаля в С++ - C++
uses crt; var x,y,z,t,max:real; BEGIN writeln('Введите длины сторон треугольника'); write('1 -> '); readln(x); ...

переведите на С++ из паскаля - C++
помогите пожалуйста program zadacha_10; uses crt; type s=record f: string ; {фамилия} fakul: string ; ...

переведите с паскаля на с++.пожалуйста - C++
uses crt; var i,j,n,k:integer; a:array of byte; begin Write ('Введите n='); Readln(n); clrscr; k:=0; j:=0; i:=1;

переведите с Паскаля на си++ пожалуйста! - C++
Дано имя файла и целое число N (0 < N < 27). Создать текстовый файл с указанным именем и записать в него N строк длины N; строка с номером...

Переведите пожалуйста с паскаля на с++ - C++
var i,j: integer; function lol(x: integer): integer; var i,k: integer; begin k:=0; for i:=1 to x-1 do if x mod i = 0 then ...


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

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

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