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

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

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

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

Перевести код 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
Доброго времени суток. На форуме находил похожие темы, но к сожалению так и не смог разобраться....

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

Решение

C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#include <stdio.h>
#include <math.h>
 
/* gcc file.c -o progname -lm */
 
int main (void)
{
    float a, x, y;
    printf("x = "); scanf("%f", &x);
    printf("y = "); scanf("%f", &y);
 
    a = sqrt(x) + sqrt(y);
 
    if (a <= 1.0)                   printf("a = %f\n", 1.1);
    if (a > 1.0 && a <= 2.0)        printf("a = %f\n", cos(x)+y);
    if (a >= 10.0)                  printf("a = %f\n", log(x)+1.0);
    if (a > 2.0 && a < 10.0)        printf("a = %f\n", 0.0);
 
    return 0;
}
0
0 / 0 / 0
Регистрация: 19.03.2018
Сообщений: 24
09.04.2018, 17:14  [ТС] 3
Я не знаю почему, но ответ не совпадает(
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.04.2018, 17:14
Помогаю со студенческими работами здесь

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

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

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

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

Можно как-то переделать код из Turbo Pascal чтобы он работал в pascal abc.net?
Сделайте пожалуйста, я просто не вникаю uses Graph, Crt; var grDriver: integer; grMode:...

Необходимо перевести программу с Pascal ABC на free pascal
var a, factorial:longint; const c:array of char= ('0','1'); var res:string; d:0..1; k,...


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

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

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