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

Как правильно переделать в c++ ? - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Написать программу, осуществляющую блочную сортировку одномерного массива http://www.cyberforum.ru/cpp-beginners/thread918712.html
Написать программу, осуществляющую блочную сортировку одномерного массива
C++ Написать программу для перевода чисел из двоичной в шестнадцатеричную систему счисления Написать программу для перевода чисел из двоичной в шестнадцатеричную систему счисления http://www.cyberforum.ru/cpp-beginners/thread918711.html
Программа запускается, но работает некорректно C++
Недавно начал изучать С++, перешел к указателям. Написал небольшой код, компилятор почти никаких ошибок не выводит, программа запускается но работает не правильно, после того как ввожу значения, закрывается.
C++ Игра в дурака в консоли (прокритикуй код)
написал игру в дурака в консоли, хотелось бы узнать больше своих кривых мест #include<string> struct crds { std::string name; }ns= { "6","7","8","9","10","В","Д","К","Т" }; #include<string>
C++ Перегрузки нестатическими компонентными функциямими http://www.cyberforum.ru/cpp-beginners/thread918630.html
Ребят, привет) Есть профи в перегрузках? Нужно разъяснить суть и назначение перегрузок операторов () ->
C++ Проверить решение задачи Здравствуйте. Есть задача: Напишите класс safearay, который использует массив типа int фиксированного размера (назовем его LIMIT) в качестве своей единственной переменной. В классе будет два метода. Первый, putel(), принимает индекс и значение типа int как аргументы и вставляет это значение в массив по заданному индексу. Второй, getel(), принимает индекс как аргумент и возвращает значение типа... подробнее

Показать сообщение отдельно
RavilSHai
0 / 0 / 0
Регистрация: 26.10.2012
Сообщений: 82

Как правильно переделать в c++ ? - C++

06.07.2013, 14:10. Просмотров 251. Ответов 1
Метки (Все метки)

pascal код
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
uses crt;
var
x,a,b,c,e,d,h:real;
i,j:longint;
q:char;
 
function f(x,d:real):real;
  begin
    f:=d*ln(x)-1/x;
  end;
function fs(x,d:real):real;
  begin
    fs:=d/x+1/sqr(x);
  end;
 
Begin
  clrscr;
  writeln('Введите e');
  readln(e);
  for i:=15 to 25 do
    begin
      d:=i/10;
      a:=1.1;      
      x:=a;
      h:=e+0.01;
      {writeln('  ',h:3:3);}
      writeln('  Для d=',d:1:1);
      while (abs(h/x)>=e) do
        begin
          h:=-f(x,d)/(fs(x,d)*x);
          x:=x+h;
          writeln('для x=',x:5:8,' h=',h:5:8);
        end;
        writeln('f(',x:5:8,')=',f(x,d):5:10);
        writeln('Ввод для продолжения');
        readln;
    end;
  readkey;
End.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru