VPF::Перевод программы из Pascal на C - Форум программистов

FaRReLL

Дата 7.12.2014, 16:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 7.12.2014

Репутация: нет
Всего: нет

Код


program vlad;
uses crt;
var
  x: integer;
  a,b,c,y:real;
begin
  clrscr;
  write('введите a: ');
  readln(a);
  write('введите b: ');
  readln(b);
  write('введите c: ');
  readln(c);
  write('введите x: ');
  readln(x);
  case x of
    1..4:   y:=c*x*x;
    5..10:  y:=a*sin(x+a);
    11..15: y:=a*ln(abs(b*b+c/2/x));
    else    y:=b+2*c;
  end;
  writeln('y= ',y:0:4);
  readln;
end.

bsa

Дата 11.12.2014, 12:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 9185
Регистрация: 6.4.2006
Где: Москва, Россия

Репутация: 85
Всего: 196

Код

#include <stdio.h>
#include <math.h>

int main()
{
     int x;
     float a,b,c,y;
     puts("\n");
     puts("введите a: ");
     scanf("%f", &a);
     puts("введите b: ");
     scanf("%f", &b);
     puts("введите c: ");
     scanf("%f", &c);
     puts("введите x: ");
     scanf("%i", &x);
     switch (x) {
     case 1:
     case 2:
     case 3:
     case 4:
          y = c * x * x;
          break;
     case 5:
     case 6:
     case 7:
     case 8:
     case 9:
     case 10:
          y = a * sin(x + a);
          break;
     case 11:
     case 12:
     case 13:
     case 14:
     case 15:
          y = a * log(fabs(b * b + c / 2 / x));
          break;
     default:
          y = b + 2 * c;
     }
     printf("y = %.4f\n", (double)y);
     getchar();
     getchar();
}

--------------------

Правильно заданный вопрос - половина ответа
Отзывы о работе модератора.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C/C++: Для новичков \| Следующая тема »