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

периписать из Pascal в C++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Рандом с исключением http://www.cyberforum.ru/cpp-beginners/thread392206.html
Добрый день... подскажите пожалуйста..как сделать целочисленный рандом от 1 до N, но при этом чтобы в нём исключалось заданное число к примеру если заданное число = 3, а N = 9 то рандом должен проводится в диапазоне 1,2,4,5,6,7,8,9
C++ М-последовательности Доброе время суток! Подскажите пожалуйста кто может - как сформировать случайную последовательность нулей и единиц, с периодом , в которой 1023 символа. Заранее спасибо за внимание) http://www.cyberforum.ru/cpp-beginners/thread392184.html
Поиск и вывод слов начинающихся на 'l' C++
{int i,j; char s,s1; cin.getline(s,255); for(i=0;i<255;i++) { if (s=='l') {j=i; while (s!=' ') {s1=s; i++;
задачи в C++: Циклы. Одномерный массив C++
Задачи нужно решить на Microsoft Visual C++! Циклы. 1.Дано натуральное число n. Переставить местами первую и последнюю цифры этого числа. 2.Дано натуральное k. Напечатать k-ю цифру последовательности 149162536, в которой выписаны подряд квадраты всех натуральных чисел. Одномерный массив. 3. Даны натуральные числа M, n и целые числа a1; a2; ...; an. Все элементы массива разные....
C++ Дано натуральное число.Определить,сколько раз в нём встречается минимальная цифра(например, для числа 102200 ответ равен 3,для числа 40330-2,для числ http://www.cyberforum.ru/cpp-beginners/thread392147.html
Дано натуральное число.Определить,сколько раз в нём встречается минимальная цифра(например, для числа 102200 ответ равен 3,для числа 40330-2,для числа 10345-1)?
C++ Известны оценки по физике каждого ученика двух классов.Определить средниюю оценку в каждом классе.Количество учащихся в каждом классе одинаковое! Известны оценки по физике каждого ученика двух классов.Определить средниюю оценку в каждом классе.Количество учащихся в каждом классе одинаковое! подробнее

Показать сообщение отдельно
Own3D
 Аватар для Own3D
121 / 121 / 37
Регистрация: 29.10.2011
Сообщений: 308
26.11.2011, 14:07     периписать из Pascal в C++
перепишите пжлста 3 оч простыхпрограмки с паскаля на с++.
сам в с++ вообще не разбираюсь, а по заданию требуют.
тока перепишите алгоритм точь в точь как в паскале, если где то структура программы и кривая на ваш взгляд, оставьте как есть.


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
uses crt;
var
mas:array [-100..100] of integer;
sum,i,n:integer; {i - index, n - kol-vo elementov}
begin
clrscr;
n:=10;
sum:=0;
  for i:=1 to n do
  begin
    writeln('Enter ',i,' elements');
    readln(mas[i]);
    clrscr;
  end;
write ('Array =');
  for i:=1 to n do
  begin
    write(mas[i]:4);
    if mas[i]<0 then  sum:=sum+mas[i];
  end;
writeln;
writeln('Summa otricatelnix elementov massiva= ',sum);
readln;
end.

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
uses crt;
const e=6; {Razmer}
var x,y:Byte;
M:array [1..10, 1..10] of Byte;
begin
clrscr;
Randomize;
for x := 1 To e Do
  For y := 1 To e Do
  M[x,y]:= Random(9);
Writeln('Original matrix:');
for x := e downto 1 do
begin
  for y := 1 To e Do
  Write(M[x,y],' ');
  Writeln;
end;
writeln;
Writeln('Reversed matrix:');
for x := 1 To e Do
begin
  for y := 1 To e Do
  Write(M[x,y],' ');
  Writeln;
end;
Readln;
end.

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
36
37
38
39
40
41
uses crt;
const
e=5; {kol-vo elementov}
var m:array[-100..100] of integer;
i,max,min,imax,isk,iisk:integer;
begin
clrscr;
       for i:= 1 to e do
       begin
       write('Enter ',i, ' element - ');
       readln(m[i]);
       end;
max:=m[1];
       for i:=2 to e do
       begin
        if m[i]>max then
        begin
        max:=m[i];
        imax:=i;
        end;
       end;
writeln('Max element of array=',max, ', Index=',imax);
min:=m[1];
       for i:=2 to e do
       begin
        if m[i]<min then
        min:=m[i];
       end;
m[imax]:=min;
isk:=m[1];
       for i:=2 to e do
       begin
        if m[i]>isk then
        begin
        isk:=m[i];
        iisk:=i;
        end;
       end;
writeln('Required element=',isk, ', Index=',iisk);
readln;
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 18:43. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru