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

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

Войти
Регистрация
Восстановить пароль
 
Antikiller3001
Сообщений: n/a
#1

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

12.05.2013, 13:17. Просмотров 543. Ответов 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;
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.05.2013, 13:17
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод из паскаля в с ++ (C++):

Перевод из Паскаля в С++ - C++
Нужно переделать задачу из Паскаля в С++Builder. Поможете? Вот само задание:Описать функцию PowerA234(A), вычисляющую вторую, третью и...

Перевод из Паскаля в C++ - C++
Переведите программу из Паскаля в С++, пожалусйта Вот код : const nmax=100; var a: array of integer; i,j,n,m,min:...

Перевод из Паскаля в с++ - C++
Задача: Найти все натуральные n-значные числа, цифры в которых образуют строго возрастающую последовательность Есть решение на...

Перевод из Паскаля в Си++ - C++
program p1; var a,k:string; mas:array of string; b,c,i,nu:integer; begin nu:= 0; i:=1; readln (a); for i:=1...

Перевод с Паскаля в С++ - C++
uses crt; function rec(n:integer):real; var z:integer; begin z:=1; if n=0 then begin z:=1; rec:=1 end

перевод с паскаля на С++ - C++
Дан массив ненулевых целых чисел размера N. Проверить, образуют ли его элементы геометрическую прогрессию (см. задание 4). Если образуют,...

4
Somebody
2791 / 1602 / 147
Регистрация: 03.12.2007
Сообщений: 4,198
Завершенные тесты: 1
12.05.2013, 14:08 #2
Напиши, что за задание. А то тут, например, непонятно, зачем вообще под p массив.
0
Antikiller3001
Сообщений: n/a
12.05.2013, 15:44 #3
На вход программе подаются сведения о пассажирах, желающих сдать свой
багаж в камеру хранения на заранее известное время до полуночи. В первой
строке сообщается число пассажиров N, которое не меньше 3, но не
превосходит 1000; во второй строке – количество ячеек в камере хранения K,
которое не меньше 10, но не превосходит 1000. Каждая из следующих N
строк имеет следующий формат:
<Фамилия> <время сдачи багажа> <время освобождения ячейки>,
где <Фамилия> – строка, состоящая не более чем из 20 непробельных
символов; <время сдачи багажа> – через двоеточие два целых числа,
соответствующие часам (от 00 до 23 – ровно 2 символа) и минутам (от 00 до
59 – ровно 2 символа); <время освобождения ячейки> имеет тот же формат.
<Фамилия> и <время сдачи багажа>, а также <время сдачи багажа> и <время
освобождения ячейки> разделены одним пробелом. Время освобождения
больше времени сдачи.
Сведения отсортированы в порядке времени сдачи багажа. Каждому из
пассажиров в камере хранения выделяется свободная ячейка с минимальным
номером. Если в момент сдачи багажа свободных ячеек нет, то пассажир
уходит, не дожидаясь освобождения одной из них.
Требуется написать программу (укажите используемую версию языка
программирования, например Borland Pascal 7.0), которая будет выводить на
экран для каждого пассажира номер ему предоставленной ячейки (можно
сразу после ввода данных очередного пассажир
Somebody
2791 / 1602 / 147
Регистрация: 03.12.2007
Сообщений: 4,198
Завершенные тесты: 1
12.05.2013, 20:00 #4
C++
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
#include <iostream>
#include <string>
 
using namespace std;
 
int main()
{
    int n, k;
    cin >> n >> k;
    cin.get();
    int p[1000] = {0};
    for (int i = 0; i < n; i++)
    {
        string name;
        int h, m, time1, time2;
        cin >> name;
        cin >> h; cin.get(); cin >> m;
        time1 = h * 60 + m;
        cin >> h; cin.get(); cin >> m;
        time2 = h * 60 + m;
        cin.get();
        for (int j = 0; j < k; j++)
        {
            if (p[j] <= time1)
            {
                p[j] = time2;
                cout << name << ' ' << j << endl;
                break;
            }
        }
    }
}
0
Mykita
0 / 0 / 0
Регистрация: 12.10.2017
Сообщений: 4
12.10.2017, 18:08 #5
Помогите, перевести этот код с паскаля на си++, плиз!

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
Uses Crt;
 
Function f(x: Double): Double;
 Begin
   f := x // тут ваша функция!!!
 End;
 
Var
 x, Eps, a, b, c: Double;
 n: Integer;
 
begin
 ClrScr;
 Writeln('Введите значения a и b'); Read(a, b);
 WriteLn('Введите точность Eps'); Read(Eps);
 
 n := 0;
 Repeat
   c := (a + b) / 2;
   If (f(a) * f(c)) < 0 Then b := c
   Else a := c;
   Inc(n)
 Until (b - a) <= Eps;
 
 x := (a + b) / 2;
 WriteLn('Корень равен  x=', x:10:7);
 WriteLn('Количество делений = ',n);
 ReadKey
end.
0
12.10.2017, 18:08
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.10.2017, 18:08
Привет! Вот еще темы с ответами:

Перевод с Паскаля на С++ - C++
Не могу ни как перевести полностью вот этот кусок кода на Паскале на си++ function h(var key: TKey): integer; {Вычисление хеш-функции} ...

Перевод с паскаля на с++ - C++
program z1; var i,j,m,k,z,x,l:integer; begin readln(m); for i:=0 to m do begin z:=1; if i=0 then z:=1 else begin x:=i; ...

Перевод из Паскаля в С++ - C++
const RusLit = ; EngLit = ; var Str: string; procedure StringClear(var Str: string); var ResStr: string; i:...

Перевод из Паскаля в C++ - C++
Пожалуйста помогите перевести одну функцию из Паскаля в C++. Буду очень признательна, так как очень плохо знаю Паскаль, а C++ тоже не очень...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

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