Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Методом Эйлера решить дифференциальное уравнение https://www.cyberforum.ru/ cpp-beginners/ thread120234.html
кодеры есть? методом эйлера решить диф уравнение я знаю код есть везде, но я щас в плохом состоянии чтобы искать у кого выйдет быстрее всех - скину пятак баксов постим сю ПС. прогу...
Игра "кто хочет стать миллионером?" C++
Люди, если не жалко плз выложите код данной игры, если завалялся у кого нибудь...
Не могу найти ошибку C++
Как правильно сделать через рекурсию?
C++ Цикл: вычислить значения функции на заданном интервале На интервале 3≤x≤6 с шагом 0,3 для каждого y из интервала 5≤y≤7,2 с f(x,y)=³√x²+3y(Все выражение x²+3y под корнем третьей степени). Помогите пожалуйста!!!!!!!! https://www.cyberforum.ru/ cpp-beginners/ thread120167.html
C++ Массив(Матрица). https://www.cyberforum.ru/ cpp-beginners/ thread120151.html
Характеристикой столбца назовем наибольшее количество идущих подряд отрицательных элементов.Вывести максимальное количество элементов в столбце!!!! Помогите пожалуйста.
C++ Шифровка/дешифровка пароля/логина
Возникла проблема) Ситуация такая. Есть Логин и Пароль . Нужно их шифрануть. Есть алгоритм шифрования . Согласно этому алгоритму для шифровки нужно: 1)Шифруемая строка 2)Ключ 3)Длинна шифруемой...
C++ шифровка/дешифровка
Помогите пожалуйста. Надо написать прогу, которая шифрует/дешифрует введеный текст. (конкретно мне не понятно, как введеную фразу разбить на буквы, которые потом нужно заменить на другие)
C++ Работа с двоичным файлом Ребят помогите. Создать двоичный файл и записать в него степени числа 3. Вывести на экран компоненты файла с четным порядковым номером. Пжлста помогите мож кто делал наподобе такую задачу. https://www.cyberforum.ru/ cpp-beginners/ thread120131.html
C++ Использование функций шаблонов https://www.cyberforum.ru/ cpp-beginners/ thread120125.html
Ребят помогите. надо для работы с двумерными массивами арифметических типов данных разработать шаблоны ввода и вывода массива а также шаблон для решения задачи - Заменить вселементы меньшие заданного...
C++ Разработать рикурсивную функцию, НЕ возвращающее значение Ребят помогите. Даны первый член и знаменатель геометрической прогресии. Написать рекурсивку, для нахождения n-ого члена и суммы n первых членов прогрессии. В этой задаче есть все что я ненавижу и... https://www.cyberforum.ru/ cpp-beginners/ thread120122.html
2 / 2 / 1
Регистрация: 02.03.2010
Сообщений: 95
0

Перевести код с Pascal

22.04.2010, 21:57. Просмотров 1122. Ответов 1
Метки (Все метки)

нужно написать программу на C++ из паскаля

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
program pr1;
uses crt;
const WG=100;
type tmasi=array[1..WG] of integer;
var a:tmasi; n,kl:byte;
(*процедура ввода*)
procedure pr_wod(kl:byte; var n:byte; var mas:tmasi);
var i:byte;
begin
clrscr;
    begin
                  writeln('введите размерность массива меньше или равная 100');
                  readln(n);
               end;
   (*контроль значения переменной*)
   while n>WG do
   begin
    clrscr;
     writeln('неверно,ds ввели больше 100');
     readln(n);
   end;
     if kl=1 then
     write (' вы не ввели элемент масива по этому он выбран автоматически ---->  ');
     randomize;
     for i:=1 to n do
     case  kl of
     1:mas[i]:=random(201)-100;
     2:begin
         writeln('введи ',i,' элемент массива');
         readln(mas[i]);
       end;
     end;
end;
(*процедура вывода*)
procedure pr_out(n:byte; mas:tmasi);
var i:byte;
begin
  for i:=1 to n do
  write(mas[i]:6);
  writeln;
end;
(*функция нахождения отр. элемента*)
function f_otr(n:byte; mas:tmasi):byte;
var i:byte;
begin
  f_otr:=0;
  for i:=1 to n do
  if mas[i]<0 then begin
                     f_otr:=i;
                     break;
                   end;
end;
(*функция нахождения суммы отр. элементов массива*)
function f_sum(n:byte; mas:tmasi):integer;
var i:byte; sum:integer;
begin
  sum:=0;
  for i:=1 to n do
  if mas[i]<0 then 
  sum:=sum+mas[i];
  f_sum:=sum;
end;
(*процедура работы с отрицательными элементами*)
procedure pr_otr_el(n:byte;var a:tmasi);
var i,j,pos:byte; sum:integer;
begin
  pos:=f_otr(n,a);
  if pos=0 then begin
                  writeln('В массиве отсутствуют отрицтельные элементы');
                  end;
  sum:=f_sum(n,a);
  for i:=1 to pos-1 do
  a[i]:=sum;
  writeln('Первый отрицательный элемент- ',a[pos]);
  writeln('Сумма отрицательных элементов- ',sum);
  writeln('Массив переформирован');
  end;
begin
clrscr;
  while true do
  begin
 
    repeat
    writeln('1- создать массив из целых чисел;');
    writeln('2- вывод элементов одномерного массива;');
    writeln('3- работа с отрицательными элементами массива;');
    writeln('4- конец работы.');
    readln(kl);
    case kl of
    1:begin
       clrscr;
        pr_wod(2,n,a);
        ClrScr;
        writeln('Массив введен');
      end;
    2:begin
    clrscr;
      if n=0 then begin
                  pr_wod(1,n,a);
                  end;
      writeln(' Массив ');
      pr_out(n,a);
      end;
    3:begin
      clrscr;
          pr_otr_el(n,a);
          writeln('Пункт выполнен');
          writeln;
      end;
    4:begin writeln('пока');readln; end;
 
    end;
    until kl in [1..4];
     end;
 
end.
Добавлено через 23 часа 58 минут
напишите пожалуйста

Вернуться к обсуждению:
Перевести код с Pascal
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.04.2010, 21:57
Готовые ответы и решения:

Перевести код с Pascal на C# и C++
Помогите переписать прогу с одного языка на другой. Вот Pascal const maxn = 150; var w:...

Перевести код с C++ в Pascal
#include &lt;iostream&gt; #include &lt;cmath&gt; #include &lt;vector&gt; #include &lt;numeric&gt; using namespace...

Перевести код из Pascal в С++
Всем привет! Нужно срочно сделать задачку, условие такое: &quot;Вычислить приближенное значение...

Перевести код с Pascal
код for i:=1 to length(num_st)do begin num_st:=upcase(num_st); if num_st in then...

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