Antikiller3001
1

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

12.05.2013, 13:17. Показов 872. Ответов 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;
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.05.2013, 13:17
Ответы с готовыми решениями:

Перевод из паскаля в С++
помогите, пожалуйста, перевести : Program enot; var c, a : integer; begin c:=0; repeat...

Перевод с паскаля в С++
помогите перевести код программы с паскаля в С++, пожалуйста! Program pr1; uses crt; var...

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

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

4
2830 / 1639 / 253
Регистрация: 03.12.2007
Сообщений: 4,222
12.05.2013, 14:08 2
Напиши, что за задание. А то тут, например, непонятно, зачем вообще под p массив.
0
Antikiller3001
12.05.2013, 15:44 3
На вход программе подаются сведения о пассажирах, желающих сдать свой
багаж в камеру хранения на заранее известное время до полуночи. В первой
строке сообщается число пассажиров N, которое не меньше 3, но не
превосходит 1000; во второй строке – количество ячеек в камере хранения K,
которое не меньше 10, но не превосходит 1000. Каждая из следующих N
строк имеет следующий формат:
<Фамилия> <время сдачи багажа> <время освобождения ячейки>,
где <Фамилия> – строка, состоящая не более чем из 20 непробельных
символов; <время сдачи багажа> – через двоеточие два целых числа,
соответствующие часам (от 00 до 23 – ровно 2 символа) и минутам (от 00 до
59 – ровно 2 символа); <время освобождения ячейки> имеет тот же формат.
<Фамилия> и <время сдачи багажа>, а также <время сдачи багажа> и <время
освобождения ячейки> разделены одним пробелом. Время освобождения
больше времени сдачи.
Сведения отсортированы в порядке времени сдачи багажа. Каждому из
пассажиров в камере хранения выделяется свободная ячейка с минимальным
номером. Если в момент сдачи багажа свободных ячеек нет, то пассажир
уходит, не дожидаясь освобождения одной из них.
Требуется написать программу (укажите используемую версию языка
программирования, например Borland Pascal 7.0), которая будет выводить на
экран для каждого пассажира номер ему предоставленной ячейки (можно
сразу после ввода данных очередного пассажир
2830 / 1639 / 253
Регистрация: 03.12.2007
Сообщений: 4,222
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
0 / 0 / 0
Регистрация: 12.10.2017
Сообщений: 44
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.10.2017, 18:08
Помогаю со студенческими работами здесь

Перевод с паскаля на С++
Здравствуйте. Помогите,пожалуйста,перевести код на С++. const n = 67; var matrix: array of...

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

Перевод с Паскаля на c++
Вот код на Паскале : program Matrix40; var a:array of integer; NumMax,Num, RowMax, M, N,...

Перевод с Паскаля на С++
Помогите переделать с Паскаля на С++. 1)Вывести максимальное число из файла in.txt. Листинг:...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru