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

Перевести код с Паскаля на С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Найти количество элементов на четных местах, удовлетворяющих условию http://www.cyberforum.ru/cpp-beginners/thread1216404.html
В массиве T(30), сформированном случайным образом, найти количество элементов, стоящих на четных местах, удовлетворяющих условию a<T i(индекс)<b, где а и b - заданные числа.
C++ Отсортировать массив, поставив сначала чётные элементы, а потом нечётные Люди добрые помогите пожалуйста! мне нужно заполнить двумерный массив А случайными целыми числами от –1000 до +1000 и отсортировать массив поставивши сначало парные элементы а потом непарные но при... http://www.cyberforum.ru/cpp-beginners/thread1216402.html
Значения, которые есть в первом массиве и которых нет во втором массиве, скопировать в третий массив C++
Помогите сделать вот условие Объявить тип структуры, содержащий сведения о фамилии и адреса людей. Ввести два массива таких структур. Значение, которые есть в первом массиве и которых нет во...
C++ Разбор арифметических выражений
Здравствуйте друзья снова я к вам за помощью конечно вопрос может покажется банальным, но то ли время уже много и голова не соображает, то ли я тугой но ни как не могу понять смысла выражения. (ch...
C++ В тексте после указанного символа вставить подстроку http://www.cyberforum.ru/cpp-beginners/thread1216373.html
в тексте после указанного символа вставить подстроку
C++ Программа которая переводит дюймы в сантиметры и сантиметры в дюймы. В чем ошибка? в меню когда пишешь что то кроме 1 или 2 оно не выводит то что написано в default #include <iostream> #include <conio.h> using namespace std; int main() { double chislo; double result;... подробнее

Показать сообщение отдельно
blond_blond
1 / 1 / 0
Регистрация: 31.03.2014
Сообщений: 43

Перевести код с Паскаля на С++ - C++

25.06.2014, 01:39. Просмотров 293. Ответов 2
Метки (Все метки)

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
Program proga;
uses crt;
Type
gostinica= record
FIO:string[20];
nomer:integer;
cena:integer;
kolvo:integer;
itogo: integer;
end;
Var
gst:gostinica;
Begin
clrscr;
writeln('vvedite dannie');
readln(gst.FIO);
writeln('vvedite nomer');
readln(gst.nomer);
writeln('vvedite cena');
readln(gst.cena);
writeln('vvedite kolvo');
readln(gst.kolvo);
clrscr;
writeln('г=========T===========T=========T=========T=================¬');
writeln('¦ FIO ¦ nomer ¦ cena ¦ kolvo ¦ itogo ¦ ');
writeln('¦=========+===========+=========+=========+=================¦ ');
writeln('¦',gst.FIO:9,'¦',gst.nomer:11,'¦',gst.cena:9,'¦',gst.kolvo:9,'¦' ,(gst.cena*gst.kolvo),'¦');
writeln('L=========¦===========¦=========¦=========¦=================- ');
readkey;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru