Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
sashablue847
0 / 0 / 0
Регистрация: 06.12.2018
Сообщений: 29
1

Перевод из Pascal в С++

15.01.2019, 14:43. Просмотров 296. Ответов 1
Метки нет (Все метки)

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
var
n, i: integer;
t: array [1..10] of real;
serv: array [1..10] of real;
nom: integer;
min: real;
begin
randomize;
Writeln ( ‘defining the number of buyer with a minimum service time’);
writeln ( ‘enter number of the buyers (<= 10));
readln (n);
for i: = 1 to n do
t [i]: = random * 10;
writeln ( ‘service time of the buyers’);
for i: = 1 to n do
write (t [i]: 5: 2, »);
writeln;
serv [1] = t [1];
for i: = 2 to n do
serv [i]: = serv [i-1] + t [i];
writeln ( ‘service time’);
for i: = 1 to n do
write (serv [i]: 5: 2, »);
writeln;
nom = 1;
min = t [1];
for i: = 2 to n do
if t [i] <min then
begin
min = t [i];
nom = i;
end;
write ( ‘number of buyer having min service time =);
writeln (nom)
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.01.2019, 14:43
Ответы с готовыми решениями:

перевод из Pascal в C++
Здравствуйте!Задача: Прямоугольный садовый участок шириной N и длиной M метров разбит на...

Перевод с Pascal на C++
Вечер добрый. Перевожу с pascal на c++. Подскажите или отредактируйте код, что не так? program...

Перевод из Pascal в C++
Помогите перевести в С++. Вот код : program Adam; uses crt; var func,x,y,yp:array of real;...

перевод из PASCAL в C++
Нужна программа для перевода из 2 в 10 систему счисления и обратно ... нашел на паскале но почти...

Перевод из Pascal в С++
Можно пожалуйста перевести в С++ и сделать ее рандомной. Еще у меня не получается вывести на...

1
ReDoX
438 / 326 / 170
Регистрация: 01.07.2015
Сообщений: 1,162
15.01.2019, 15:05 2
Хотя бы выделили бы тегами кода, а то читать невозможно, не говоря уже о переводе
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.01.2019, 15:05

перевод в C++ из Pascal
Кому не сложно переведите пожалуйста программу в С++. Она готова и полностью рабочая. вот на...

перевод с Pascal на C++
Const Max=1000; Eps=0.00001; Type Para=record X: integer;

Перевод c Pascal на С++
Помогите перевести пожалуйста program FindMin; type Mass=array of integer; function...


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

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

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