Форум программистов, компьютерный форум, киберфорум
Наши страницы

C++ конвертация из паскаль - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Собранное приложение завершается с ошибкой http://www.cyberforum.ru/cpp-beginners/thread873079.html
Здравствуйте. Подскажите пожалуйста новичку. Взял приложение из учебника, переписал в Visual Studio, собрал, а оно выкидывает. Приложение делает следующее: 1. Берет текст из файла unform.txt 2....
C++ Вывести стек наоборот Вывести стек наоборот. Использовать указатели. Помогите пожалуйста вывести стек нaоборот (функция printstack2). // STEK_3.cpp: определяет точку входа для консольного приложения. // #include... http://www.cyberforum.ru/cpp-beginners/thread873076.html
C++ нужен скрипт
народ помогите нужен скрипт который заставит мышку нажимать и отжимать левый, правый таб а также перемещатся в заданых координатах в пример можно написать как мышка после запуска скрипта сама...
C++ Введите числа a, b, c и т.д. с клавиатуры и реализуйте функции для соответствующих вычислений
Вычислить x = (sin(a) * sin(b) * sin(c))2+(sin(a) * sin(b) * sin(c))3. Оформить вычисление (sin(a) * sin(b) * sin(c)) как функцию.
C++ шифр RSA http://www.cyberforum.ru/cpp-beginners/thread873002.html
Добрый день, люди добрые помогите )) не могу понять в чем ошибка... сам алгоритм Два больших простых числа P и Q N=PQ затем вычисляется функция эйлера fi=(P-1)(Q-1) и выбирается некоторое D...
C++ Вычислить значение м при помоши вспомогательных функций Очень надо, помогите, пожалуйста) Заданы три массива случайных действительных чисел определенной размерности A, B, C. Необходимо вычислить значение М. Задание массивов, вывод их на печать и... подробнее

Показать сообщение отдельно
Zepp233
-45 / 0 / 0
Регистрация: 07.04.2013
Сообщений: 21

C++ конвертация из паскаль - C++

21.05.2013, 16:10. Просмотров 440. Ответов 0
Метки (Все метки)

Доброго времени суток дорогие форумчане. Можете помочь реализовать задачу на 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
Program labwork1;
uses crt;
var
   x, z, y, a, b: real;
   n, i, e, e1, e2:integer;
   h, a1, b1: string;
Begin
 
 
 
       repeat
         writeln ('Введи числа A и В,  где А<В и не больше 999');
         Writeln ('Введи начало интервала, a=');
         readln (a1);
         Writeln ('Введи b');
         readln (b1);
         val (b1,b,e2);
         val (a1,a,e1);
       until (b>a) and (e1=0) and (e2=0) and (length(a1)<=10) and (length(b1)<=10);
 
 
 
 
  repeat
       Writeln ('Введи целое положительное число, n='); readln (a1);
        val (a1,n,e);
  until  (n>0) and (e=0) and (length(a1)<=3);
 
 
     z:=(b-a)/n;
     x:=a;
   for i:=1 to n+1 do begin
    write ('x=', x, '      ');
    if x=0 then writeln ('не определено')
           else
               begin
                    y:=(Sin(x)/x)*Exp(-x)*(1+(exp(ln(x/3))));
                    writeln ('y=', y);
               end;
    x:=x+z;
   end;
 
 
End.
Помогите перетащить всё это дело на Си? Я собираюсь использовать Dev c++. Но увы. Буду очень благодарен если напишете, поставлю только +, вообще любому кто поможет. Cпасибо за ваше внимание)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.