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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ Реализовать нижеприведенные классы, перегрузить операторы http://www.cyberforum.ru/cpp-beginners/thread1055309.html
УВАЖАЕМЫЕ ФОРУМЧАТА ПОМОГИ МНЕ СДЕЛАТЬ ЗАДАЧУ))))ОЧЕНЬ БЛАГОДАРНА БУДУ))) ПРЕПОД ЗАДОЛБАЛ.....(((((( Реализовать нижеприведенные классы: class CInt { public: CInt (int); int value; operator int (); operator char* (); };
C++ Используя класс cdistance, выполнить действия УВАЖАЕМЫЕ ФОРУМЧАТА ПОМОГИ МНЕ СДЕЛАТЬ ЗАДАЧУ))))ОЧЕНЬ БЛАГОДАРНА БУДУ))) Используя класс cdistance, выполнить действия. При этом P1 — периметр треугольника, P2 — периметр квадрата, S1 — площадь треугольника, S2 — площадь квадрата, L1 — длина окружности, ФС — форматная строка, Д — действие. ФС: (%1 %%25), Д: P1–P2/2–S1–S2/2–L1; http://www.cyberforum.ru/cpp-beginners/thread1055303.html
C++ C++ не считывает пробелы из бинарного файла
Всем салют. Завис на одной проблемке, может кто поможет? При побайтовом считывании бинарного файла (для примера расширение .png), считываются все символы кроме пробелов!!! Как быть не знаю просто P.S. при том же бинарном побайтовом чтении текстового файла пробелы нормально считываются. считываю так: fread(&buf,sizeof(BYTE),1,file1);
Обработчик исключительных ситуаций C++
Нужна любая программа такого типа, помогите пожалуйста.
C++ Разработать функцию, определяющую среднее арифметическое кодов символов в строке S http://www.cyberforum.ru/cpp-beginners/thread1055291.html
Разработать функцию Mean(const S:string):integer, определяющую среднее арифметическое кодов символов в строке S (дробную часть отбросить). С помощью данной функции вывести только такие строки из введенного набора, у которых среднее арифметическое кодов символов не меньше 70.
C++ Узнать, будет ли любое с двоих слов частью второго Не могу понять как обработать строчку без применения string. Нужно узнать будет ли любое с двоих слов частью второго. Как я понял алгоритм такой: нужно прочитать 3 строки не используя string и проверить, не является ли любое с двух первых частью третьего. Также не пойму что должно происходить если обнаружено совпадение, в таком случае слово должно записываться в новый файл или выводиться на... подробнее

Показать сообщение отдельно
Dimka4351
1 / 1 / 0
Регистрация: 08.10.2013
Сообщений: 22
24.12.2013, 20:40     Переведите программу из Паскаля в С++
Добрый вечер!
Кому не сложно, переведите прогу из паскаля в с++
Вот задание:
Описать запись с именем 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 минут
Извините, если кого по тревожил! Сам разобрался)
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 20:11. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru