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

Перевести паскаль в c++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Найти вещественные корни уравнения ax4+bx2+c=0 http://www.cyberforum.ru/cpp-beginners/thread1075517.html
Вот условие: Даны числа a, b, с (проверить, чтобы а≠0, иначе повторить ввод). Найти вещественные корни уравнения ax4+bx2+c=0. Если корней нет, дать сообщение об этом. #include <iostream> //Для функций cin, cout #include <math.h> //Для функций sin, pow #include <iomanip> using namespace std; int main(int argc, char* argv) { double a,b,c;
C++ Ошибка в унаследованном конструкторе Битый час сижу и не могу понять, в чем дело. Компилятор на 19 строке выдает ошибку undefined reference to `vtable for baseDMA' #ifndef H_H_INCLUDED #define H_H_INCLUDED #include <iostream> // Базовый класс, использующий динамическое выделение памяти class ABC { private: char*label; int rating; http://www.cyberforum.ru/cpp-beginners/thread1075513.html
C++ Дан двумерный массив. найти количество элементов в каждой строке, меньших диагонального в этой строке
1.Сформировать квадратную матрицу 000001 000020 000300 0n-10000 n00000 2.Дан двумерный массив. найти количество элементов в каждой строке, меньших диагонального в этой строке.
"Точность вычислений" или "Элементарная погрешность" C++
Всем привет! Решаю задачку (Задача А - во вложениях), где даны координаты вершин треугольника, и нужно найти наибольший угол в нем. Ну так вот. Это код моей программы. Она работает правильно. Но иногда возникает проблема с точностью вычислений: например, когда вводишь координаты 0;0, 2;2, 4;4 (лежат на одной прямой), то вместо 180 программа выводит очень необычный ответ:...
C++ Найти сумму ряда с точностью эпсилон (е) http://www.cyberforum.ru/cpp-beginners/thread1075487.html
Дано задание.Найти сумму ряда с точностью эпсилон(е),общий член которого равен а(n) = (3*n!)/(2*n)!.Точность считается достигнутой,если следующий член последовательности меньше заданного е. Я написал прогу но мои познания пока печально стремятся к нулю.Посмотрите пожалуйста. #include "stdafx.h" #include <iostream> #include <locale> using namespace std; int main() {
C++ Создать генератор чисел на основе массива из 3 елементов Нужно сделать генератор чисел на основе массива из 3 елементов. Например 000, 001, ... , 011, 012, ... , 999 Никак не могу цикл организовать. Помогите пожалуйста. подробнее

Показать сообщение отдельно
alex-net
3 / 3 / 1
Регистрация: 27.11.2012
Сообщений: 171
19.01.2014, 15:36     Перевести паскаль в 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
function func(d:integer):boolean;
var i:integer;
begin
    result:=true;
    for i:=2 to d-1 do
       if d mod i = 0 then 
         begin 
            result:=false;
            break;
         end;
end;
 
function st(x,e1,n:integer):integer;
var i,k1:integer;
begin
k1:=x;
   for i:=2 to e1 do
      begin
         k1:=k1*x;
         k1:=k1 mod n;
      end;
   result:=k1;
end;
 
var i,p,q,f,n,cc,x,y,e1,d:integer;
 
begin
   write('введите p и q ');
   readln(p,q);
   n:=p*q;
   writeln('n = ',n);
   f:=(p-1)*(q-1);
   write('введите e ');
   readln(e1);
   d:=1;
   while(cc = 0) do
     begin
        d:=d+1;
        if (d*e1) mod f = 1 then 
          {if func(d div e1) then}
               begin cc:=1;end;
     end;
   writeln('e & d = ',e1,' ',d);
   write('введите x ');
   readln(x);
   y:=st(x,e1,n);
   writeln('зашифрованное = ',y);
   x:=st(y,d,n);
   write('расшифрованное = ',x);
 
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 09:24. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru