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

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

06.12.2012, 19:52. Показов 2131. Ответов 2

Author24 — интернет-сервис помощи студентам
Здравствуйте уважаемые форумчане, помогите перевести следующую программу на 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 минут
Кто сможет?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.12.2012, 19:52
Ответы с готовыми решениями:

Перевод программы с pascal на С++
Столкнулся с трудностями при переводе данной программы на С++ Type Mat = array of real; var x, y,...

Перевод программы из Pascal на С++
Прошу людей которые знают Pascal и С++ перевести программу из Паскаля на С++. uses crt; const...

Перевод программы из Pascal на C++
program vlad; uses crt; var m:integer; a:real; begin clrscr; write('a: '); ...

Перевод программы с Pascal на С++
uses crt; var i :integer; BEGIN ClrScr; Write('Результат: '); for i := 20 to 50 do if (i...

2
0 / 0 / 0
Регистрация: 21.11.2012
Сообщений: 15
08.12.2012, 10:34  [ТС] 2
Помогите плиз.
0
-12 / 6 / 4
Регистрация: 19.01.2017
Сообщений: 584
24.01.2017, 23:21 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.
0
24.01.2017, 23:21
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.01.2017, 23:21
Помогаю со студенческими работами здесь

Перевод программы с Pascal на С++
Нужно перевести программу с языка Pascal на язык С++. Буду благодарен за помощь :) var text:...

Перевод программы Pascal -> C++
Помогите на Си++ перевести program a1; uses crt; var s,tmp:string; i,x:longint; ...

Перевод программы из Pascal в C++
Добрый вечер, нужна помощь! Буду благодарен. Сама задача звучит так : Найти значение выражения...

Перевод программы с Pascal в С++
Добрый день,мне нужно написать правильный код программы с Pascal на С++ var n,k:longint; begin...

Перевод программы из Pascal в C++
Здравствуйте! Помогите перевести готовую программу сделанную на Pascal'e в С++. Знания Паскаля...

Перевод программы с Pascal на С++
1. procedure TForm1.Button1Click(Sender: TObject); var i,k,n:integer; x,y,S:array of real;...


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

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

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