Форум программистов, компьютерный форум CyberForum.ru

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
prorider
0 / 0 / 0
Регистрация: 21.11.2012
Сообщений: 15
#1

Перевод программы с Pascal на C++ - C++

06.12.2012, 19:52. Просмотров 1314. Ответов 2

Здравствуйте уважаемые форумчане, помогите перевести следующую программу на C++:

Pascal
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
program z3;
 
var
  a, b, c, x, x1, x2, dX, k: real;
 
function f(x: real; a: real; b: real; c: real): real;
begin
  if (x < 1) and (c <> 0) 
  then begin
    k := a * sqr(x) + b / c;
    if ((trunc(a) and trunc(b)) xor trunc(c)) <> 0
      then writeln('x= ', x:0:4, ' y= ', k:0:4)
    else writeln('x= ', x:0:4, ' y= ', trunc(k));
  end
  else
  if (x > 1.5) and (c = 0) 
  then begin
    k := (x - a) / (sqr(x - c));
    if ((trunc(a) and trunc(b)) xor trunc(c)) <> 0
      then writeln('x= ', x:0:4, ' y= ', k:0:4)
    else writeln('x= ', x:0:4, ' y= ', trunc(k));
  end
  else
  if c <> 0
  then begin
    k := sqr(x) / sqr(c);
    if ((trunc(a) and trunc(b)) xor trunc(c)) <> 0
      then writeln('x= ', x:0:4, ' y= ', k:0:4)
    else writeln('x= ', x:0:4, ' y= ', trunc(k));
  end
  else
    writeln('x= ', x:0:4, ' y Не определяется');
  
end;
 
begin
  writeln('Введите a: ');
  readln(a);
  writeln('Введите b: ');
  readln(b);
  writeln('Введите c: ');
  readln(c);
  write('Введите начальное x: ');
  readln(x1);
  write('Введите конечное x: ');
  readln(x2);
  write('Введите шаг dx: ');
  readln(dX);
  x := x1;
  while x <= x2 do
  begin
    f(x, a, b, c);
    x := x + dX;
  end;
  
end.
 Комментарий модератора 
Запрещено размещать задания в виде картинок и других файлов с их текстом.


Добавлено через 39 минут
Помогите пожалуйста.

Добавлено через 3 часа 12 минут
Кто сможет?
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.12.2012, 19:52     Перевод программы с Pascal на C++
Посмотрите здесь:
Перевод программы из Pascal на C++ C++
C++ Перевод программы с Pascal на С++
Перевод программы с Pascal на С++ C++
C++ Перевод программы с pascal на С++
C++ Перевод программы из Pascal в C++
C++ Перевод программы из Pascal на С++
C++ Перевод программы с Pascal на С++
C++ Перевод текста программы с Pascal на C++
C++ Перевод программы с Turbo Pascal на С++
C++ Перевод программы c Pascal ABC на С++
C++ Среднеарифметическое каждого столбца матрицы: перевод программы с Pascal
Перевод из Pascal в C++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
prorider
0 / 0 / 0
Регистрация: 21.11.2012
Сообщений: 15
08.12.2012, 10:34  [ТС]     Перевод программы с Pascal на C++ #2
Помогите плиз.
Like_society
0 / 0 / 0
Регистрация: 19.01.2017
Сообщений: 162
24.01.2017, 23:21     Перевод программы с Pascal на C++ #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program a1;
uses crt;
var
 a: array [1..8] of integer;
 i,col: integer;
begin
 clrscr;
 randomize;
 for i:=1 to 8 do
  begin
   a[i]:=random(21)-10;
   write(a[i],' ');
   if a[i]<0 then inc(col);
  end;
 writeln;
 writeln('col<0=',col);
 readkey;
end.
Yandex
Объявления
24.01.2017, 23:21     Перевод программы с Pascal на C++
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru