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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
zedonator
0 / 0 / 0
Регистрация: 13.02.2014
Сообщений: 2
#1

Перевести с pascal в C++ - C++

13.02.2014, 17:54. Просмотров 257. Ответов 1
Метки нет (Все метки)

Помогите кто знает, вот код

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program pop;
uses crt;
     label 10;
var y,xn,xk,dx:real;
begin
clrscr;
 
xn:=6;
xk:=10.5;
dx:=0.5;
 
10:y:=arctan(sqrt(1-sqr(cos(xn))/cos(xn)));
writeln('___________________________');
writeln('xn=',xn:8:1  ,'  y= ',y:4:2);
writeln('|                         |');
xn:=xn+dx;
if xn< xk then goto 10;
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.02.2014, 17:54
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести с pascal в C++ (C++):

Перевести с Pascal на C++ - C++
Перевести с Pascal на C++ Var i,j,n : Longint; Fl : Boolean; Begin For n:=5 to 100 do Begin fl:=false;

Перевести с Pascal на C++ - C++
Здравствуйте! Помогите пожалуйста перевести вот эти программы с языка Pascal на C++ Сам я очень плохо знаю C++ поэтому был бы крайне...

Перевести с Pascal на C++ - C++
Всем привет) есть задачи: 2) Слова, содержащие сочетание ‘кот’, расположить в конце последовательности, сохраняя исходный порядок...

Перевести с Pascal на C++ - C++
Всем привет) есть задачи: 1) Поменять местами в каждом слове первую половину слова со второй. Есть решение этих задач, но нужно мне...

Перевести с pascal - C++
Помогите перевести программу с Паскаля на Си++ Program Negative; var a, b: arrayof String; i, j, n, m, answer: Integer; ...

Перевести с pascal на c++ - C++
Помогите тоже перевести из Pascal в с+ visual studio 6.0 Нашел тут похожую на свою задачу, хочу разобраться, но учу только с++ (( ...

1
_script_
169 / 137 / 34
Регистрация: 01.05.2012
Сообщений: 414
13.02.2014, 18:15 #2
zedonator,
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#include <iostream>
 
#include <math.h>
using namespace std;
 
int main()
{
    double y,xn,xk,dx;
    xn=6;
    xk=10.5;
    dx=0.5;
 
    do
    {
        y==atan(sqrt(1-cos(xn)*cos(xn)/cos(xn)));
        cout <<"___________________________\n";
        cout <<"xn="<<xn<<" y"<<y<<endl;
        cout<<"|                         |\n";
        xn=xn+dx;
    }
    while (xn< xk);
 
    return 0;
}
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.02.2014, 18:15
Привет! Вот еще темы с ответами:

Перевести с Pascal на C++ - C++
Здравствуйте! Помогите пожалуйста перевести вот эти программы с языка Pascal на C++ Сам я очень плохо знаю C++ поэтому был бы крайне...

Перевести из Pascal в C++ - C++
procedure RectPS(x1,x2,y1,y2: real); var p,s: real; begin begin P := (abs(x2-x1) + abs(y2-y1)) * 2; S := abs(x2-x1) *...

Перевести с Pascal на С++ - C++
Помогите пожалуйста Дано натуральное число n, переставить местами первую и последнию цифру местами uses crt; var...

Перевести с Pascal на C++ - C++
uses crt; var a,y:extended; i:longint; begin clrscr; write('a=');readln(a); if a&lt;1 then begin writeln('1'); ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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