Перевод С++ в Pascal

@fhsdfsjf · 16.11.2016, 20:06. **Показов** 1425. **Ответов** 4

Студворк — интернет-сервис помощи студентам

Помогите перевести 2 кода

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#include <iostream>
#include<cmath>
using namespace std;
int main() {
double a,b,k,x,M,N;
cin>>a>>b>>k>>x;
if(k>0)
{
    M=(a*b*x/sqrt(k)+2.84);
    if((x>=0)&&(exp(k*x)+0.54*a*b+pow(M,2)!=0))
    {N=(0.84*a*pow(b,3)*pow(sin(x),2)+sqrt(x)/exp(k*x)+0.54*a*b+pow(M,2));
    cout<<"N="<<N<<endl;
}
else cout<<"нет решений"<<endl;
}
else cout<<"нет решений k=0"<<endl;
    return 0;
}

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
25
26
27
#include <iostream>
using namespace std;
#include<cmath>
int main ()
{
    double x,y;
cin>>x;
if(x<0.15)
{
    y=pow(sin(x),2);
    cout<<"y="<<y<<endl;
}
else{
    if(x==0.15)
    if(2+pow(x,2)>0)
    {
        y=1+sqrt(2+pow(x,2));
        cout<<"y="<<y<<endl;
    }
    else count<<"нет решений"<<endl;
    else{
        y=pow(cos(1+pow(x,2)),2);
        cout<<"y="<<y<<endl;
    }
}
    return 0;
}

@Ferrari F1 · 16.11.2016, 20:07

fhsdfsjf, ты просто скажи, что должны делать эти 2 кода и все

@fhsdfsjf · 16.11.2016, 22:08 **[ТС]**

1)Операторы ввода-вывода. Типы данных.
2)Условные операторы.

@Cyborg Drone · 17.11.2016, 16:58

fhsdfsjf, Вы бы ещё написали

1) Паскаль
2) Паскаль

Вас просили указать, что эти коды должны делать, а не разделы учебника, к которым эти коды относятся.

@JokeR.BY · 17.11.2016, 18:08

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const
    EPS = 0.0001;
var
    a, b, k, x, temp: Real;
begin
    ReadLn(a, b, k, x);
    if (k > 0)
    then
    begin
        temp := Exp(k*x) + 0.54*a*b + Sqr(a*b*x / Sqrt(k) + 2.84);
        if ((Abs(temp) < EPS) And ((x > 0) Or (Abs(x) < EPS)))
        then
            WriteLn('не решений')
        else
            WriteLn('N=', (0.84*a*Sqr(b)*b*Sqr(Sin(x)) + Sqrt(x) / temp):0:2);
    end
    else
        WriteLn('нет решений k<=0');
end.

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@Ferrari F1 807 / 534 / 158 Регистрация: 27.01.2015 Сообщений: 3,017 Записей в блоге: 1
	16.11.2016, 20:07
	fhsdfsjf, ты просто скажи, что должны делать эти 2 кода и все 0

@fhsdfsjf Заблокирован
	16.11.2016, 22:08 [ТС]
	1)Операторы ввода-вывода. Типы данных. 2)Условные операторы. 0

Перевод С++ в Pascal

Решение