0 / 0 / 0
Регистрация: 10.01.2019
Сообщений: 34
1

Перевод из Паскаля в С

12.01.2019, 19:56. Показов 1863. Ответов 4
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const a=-pi;
      b=pi;
      h=pi/10;
var x,y:real;
begin
writeln('----------------');
writeln('|  x  | y=f(x) |');
writeln('----------------');
x:=a;
while x<=b do
 begin
  if x<0 then y:=x*ln(abs(cos(x)))
  else if x<=2.5 then y:=1+x*x
  else y:=x-2;
  writeln('|',x:5:2,'|',y:7:3,' |');
  x:=x+h;
 end;
write('----------------');
end.
Помогите кто сможет
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.01.2019, 19:56
Ответы с готовыми решениями:

Перевод кода с Паскаля (перевод в метры)
var a,b,d:integer; c,e:real; begin writeln('1-дециметр 2-километр'); writeln('3-метр ...

Перевод с паскаля на с#
Народ помогите с паскаля перевести на С# такой код: Program schet; var l,f,i,r:integer; begin...

Перевод из Паскаля в C++
Здравствуйте! Помогите перевести код из Паскаля в C++. Трансляторов смотрел в гугле, так и не...

Перевод с паскаля на Си
Помогите, пожалуйста, перевести с паскаля на си const d = 6; var N: integer; a: array of...

4
1686 / 1011 / 656
Регистрация: 25.04.2016
Сообщений: 2,861
13.01.2019, 00:05 2
Лучший ответ Сообщение было отмечено easybudda как решение

Решение

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
#include <stdio.h>
#include <math.h>
#define PI 3.141592653f
 
int main (void)
{
    double a = -PI, b = PI, h = PI/10.0f;
    double x, y;
 
    printf("----------------\n");
    printf("|  x  | y=f(x) |\n");
    printf("----------------\n");
 
    for (x=a; x<=b; x+=h)
    {
        if (x < 0.0f)           y = x * log(fabs(cos(x)));
        else if (x <= 2.5f)     y = 1.0f + x*x;
        else                    y = x - 2.0f;
 
        printf("|%5.2lf|%7.3lf |\n", x, y);
    }
 
    printf("----------------\n");
    return 0;
}
0
995 / 656 / 313
Регистрация: 22.02.2018
Сообщений: 1,896
Записей в блоге: 2
13.01.2019, 07:26 3
Кажется мне, но результат по условию
C
1
if (x < 0.0f)           y = x * log(fabs(cos(x)));
никогда не выведется

Добавлено через 2 минуты
Скорее всего должно быть
C
1
2
3
4
5
....................
        if (x < 0.0f)           y = x * log(fabs(cos(x)));
        else if (x>=0. && x <= 2.5f)     y = 1.0f + x*x;
        else                    y = x - 2.0f;
....................
0
1673 / 839 / 391
Регистрация: 17.11.2018
Сообщений: 2,129
13.01.2019, 13:38 4
Цитата Сообщение от TrollHammer Посмотреть сообщение
Скорее всего должно быть
Те же коки, только сбоку, + ещё одно сравнение...
0
1686 / 1011 / 656
Регистрация: 25.04.2016
Сообщений: 2,861
13.01.2019, 16:15 5
TrollHammer, первая итерация цикла:

C
1
2
3
a = -PI;
x = a;    // x = -3.14...
if (x < 0.0f) y = x * log(fabs(cos(x)));
и так далее..

Указывать дополнительно else if (x>=0. && x <= 2.5f) нет нужды, поскольку этот случай успешно обрабатывается обычным else if (x <= 2.5f).
Первое условие - строго меньше 0, второе - меньше либо равно 2.5, иными словами то, что не меньше ноля. например сам ноль, окажется меньше 2.5 и попадет во второе условие.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.01.2019, 16:15
Помогаю со студенческими работами здесь

Перевод с паскаля на с#
Очень нужна помощь, помогите перевести следующий кусок кода. Не понимаю, я как написать это шарпе....

Перевод с Паскаля на С++
Кому не трудно. Помогите перевести пару задач несложных. 1 var a,b,c,tmp:real; begin ...

Перевод с паскаля на с#
Program Insert; const N=10; type Element = integer; Arr = array of...

Перевод из паскаля в Си
Помогите если не трудно Const Let=+; Dig=; Var S,S1:String; i,L:Byte;

Перевод с паскаля на си
Пожалуйста, помогите перевести код с паскаля на си (не ++). program z13; uses crt; var...

Перевод из паскаля в Си
Пожалуйста, очень надо const n=5; type matr=array of integer; var a:matr; procedure...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru