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

(Pascal ABC -> Си) - C (СИ)

09.04.2018, 11:11. Показов 839. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var y,x:real;
 
begin
 
write('x = ');
read(x);
 
if (x>=1) and (x<0) then begin
  write('y = ',(x*x*x)+1);
  end
else begin write('y = 5,6'); end; 
 
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.04.2018, 11:11
Ответы с готовыми решениями:

Перевести код Pascal ABC NET в Pascal ABC
Помогите, плиз Сделал на Pascal ABC NET, но нужно его открыть в обычном Pascal ABC. Не компилит...

Перевод из Pascal ABC.net в Pascal ABC
Помогите, пожалуйста, перевести программу в Pascal ABC с Pascal ABC.net; если не трудно, объясните,...

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница?
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo Pascal, Pascal ABC,...

Нужно перевести программу с Turbo Pascal в Pascal ABC.NET
Вот есть программный код , но он для турбо паскаля, помогите перевести его в АБС.NET Program...

1
1858 / 1079 / 683
Регистрация: 25.04.2016
Сообщений: 3,036
09.04.2018, 16:55 2
Лучший ответ Сообщение было отмечено jaten как решение

Решение

Сдается мне в 8 строке ошибка.
if (x>=1) and (x<0) then begin .. это как? Результатом всегда будет 5.6

В любом случае, держите:
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#include <stdio.h>
 
int main (void)
{
    float x, y;
    printf("x = ");
    scanf("%f", &x);
 
    if (x >= 1 && x<0)
        printf("y = %f\n", x*x*x+1.0);
    else
        printf("y = %f\n", 5.6);
    return 0;
}
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.04.2018, 16:55
Помогаю со студенческими работами здесь

Различия трансляторов Pascal ABC.Net и Turbo/Borland Pascal
Пожалуйста, объясните различия между компиляторами Pascal ABC.Net и Turbo/Borland Pascal

Нужно перевести код из Turbo Pascal в Pascal ABC.NET
Доброго времени суток. На форуме находил похожие темы, но к сожалению так и не смог разобраться....

Список слов распечатать в алфавитном порядке. В Turbo Pascal или Pascal ABC
Дана непустая последовательность слов, в каждом из которых содержится от 1 до 6 заглавных латинских...

Нужно перевести код с Pascal ABC на Turbo Pascal - рисование работающей мельницы
Вот код, он должен рисовать работающею мельницу. uses graphABC,crt; type point=record ...


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

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

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