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

Перевод из паскаля в с ++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ md5 и указатели http://www.cyberforum.ru/cpp-beginners/thread862339.html
Здравствуйте! Есть функция md5 взятая из openssl, с помощью нее нужно сгенерировать хеш, данные для которого поступят из функции RSA, затем, нужно будет вернуть хеш в RSA для подписи. Для...
C++ malloc(): memory corruption и corrupted double-linked list всем привет! такой вопрос. пытаюсь попробовать простой пример кода для функции MPI_Allgatherv на кластере. В итоге получаю следующую ошибку(и) : *** glibc detected *** ./main: malloc(): memory... http://www.cyberforum.ru/cpp-beginners/thread862338.html
Клас с полем типа другого класа C++
Есть клас car с полями и методом заполнения етих полей. Надо написать клас tz в котором есть поле типа сar и пару других полей и метод заполнения даных в етот клас. как ето сделать. как заполнить...
Генератор случайных чисел C++
Всем привет, вот такая задачка. "Датчики случайных чисел можно привлекать при подборе проверочных исходных данных для программ. а) 25 действительных чисел, лежащих в диапазоне от -50 до 50. б)...
C++ Вычислить значение выражения http://www.cyberforum.ru/cpp-beginners/thread862305.html
Сама суть проблемы: мне нужно сделать 5 лабораторных работ по с++, просто написать программы. Они не сложные, любой начинающий в них справиться, но из-за того, что у меня были проблемы со здоровьем...
C++ Связывание классов в 1 файле Здравствуйте! Разрабатывая программу столкнулся с проблемой... в 1 файле разместил несколько классов которые нужно между собой связать... так чтобы из одно класса вызывалась функция с другого... подробнее

Показать сообщение отдельно
Antikiller3001

Перевод из паскаля в с ++ - C++

12.05.2013, 13:17. Просмотров 569. Ответов 4
Метки (Все метки)

Ребят помогите перевести в с ++

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
var p:array[1..1000] of integer; 
 c,c1:char; 
 i,j,N,K:integer; 
 name:string; 
 time1,time2:integer; 
begin 
 readln(N,K); 
 for i:=1 to K do 
 p[i]:=0; 
 for i:=1 to N do 
 begin 
 name:=''; 
 repeat 
 read(c); 
 name:=name+c 
 until c=' '; {считана фамилия} 
 read(c,c1); {считаны часы первого времени} 
 time1:=60*((ord(c)-ord('0'))*10+ ord(c1)-ord('0')); 
 read(c,c,c1); {пропущено двоеточие, и считаны минуты} 
 time1:=time1+(ord(c)-ord('0'))*10+ord(c1)-ord('0'); 
 read(с,c,c1); {считаны часы второго времени} 
 time2:=60*((ord(c)-ord('0'))*10+ ord(c1)-ord('0')); 
 readln(c,c,c1); {пропущено двоеточие, и считаны минуты} 
 time2:=time2+(ord(c)-ord('0'))*10+ord(c1)-ord('0'); 
 for j:=1 to K do 
 if p[j]<=time1 then 
 begin 
 p[j]:=time2; 
 writeln(name,' ',j); 
 break; 
 end; 
 end;
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru