Форум программистов, компьютерный форум, киберфорум
C для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 22.01.2015
Сообщений: 11
1

Перевести код с Pascal

22.01.2015, 22:50. Показов 1055. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте! Как написать такой код в си?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
 program 1;
var
  y:real; 
  x:integer;
begin
  read(x);
  if -5<x<0 then 
    y:=sqrt(sqr(x)+abs(x))
else
  if 0<=x<2 then 
   y:=5*sqr(x)+cos(x) 
    write(y);
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.01.2015, 22:50
Ответы с готовыми решениями:

Перевести код с Pascal
вот есть кусочек кода.я пытался передалть на застопорился на кодах клавиш repeat kod:=readkey;...

Перевести код с Pascal
program Project2; uses crt; var a1, a2, b1, b2, c1, c2: Integer; begin Writeln ('Enter...

Перевести код с Pascal
cоnst n = 3; type TMatr = array of real; var A: Tmatr; minRow, minCol, maxRow, MaxCol :...

Перевести код с Pascal
товарищи) нужна помощь))) из паскаля на си, плиииииз! uses crt; const n=4; type tel=record ...

1
Диссидент
Эксперт C
27709 / 17325 / 3811
Регистрация: 24.12.2010
Сообщений: 38,979
22.01.2015, 23:18 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Как-то так
C
1
2
3
4
5
6
7
8
9
program1()
{ double y; int x;
  scanf("%d", &x);
  if (x>-5 && x<0)
   y = sqrt(x*x+ ((x>=0) ? x : -x));   // sqr - ? = x[SUP]2[/SUP] ?
  else if (0<=x && x<2)
   y=5*x*x + cos(x);
  printf ("y=%lf\n", y);
}
1
22.01.2015, 23:18
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.01.2015, 23:18
Помогаю со студенческими работами здесь

Перевести код с Pascal
Program zadanie2; uses crt; var a:arrayof integer; k,i,j,p:integer; begin clrscr; repeat;...

Перевести код с Pascal на C
procedure isprime(n: longint; var ip: boolean); var i, sqrtn: longint; begin if (n &gt;= 5) and...

Перевести код с Pascal
var N:integer; a:array of integer; function Min(m1,m2:integer):integer; begin if(m1&gt;m2)...

Перевести код с Pascal на С
Помогите перевести код на С или С++ var speed: array of integer; count, i, max: byte; ...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru