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

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

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

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

06.12.2012, 19:52. Просмотров 1378. Ответов 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 минут
Кто сможет?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.12.2012, 19:52
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод программы с Pascal на C++ (C++):

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

Перевод программы из Pascal на С++ - C++
Прошу людей которые знают Pascal и С++ перевести программу из Паскаля на С++. uses crt; const nmax=100; var a:array of integer; ...

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

Перевод программы с pascal на С++ - C++
Столкнулся с трудностями при переводе данной программы на С++ Type Mat = array of real; var x, y, l:Mat; a, b, s:real; i:byte; ...

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

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

2
prorider
0 / 0 / 0
Регистрация: 21.11.2012
Сообщений: 15
08.12.2012, 10:34  [ТС] #2
Помогите плиз.
0
Like_society
0 / 0 / 0
Регистрация: 19.01.2017
Сообщений: 167
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.01.2017, 23:21
Привет! Вот еще темы с ответами:

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

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

Перевод текста программы с Pascal на C++ - C++
Такая вот задача:Найти сумму всех целых чисел из отрезка , которые при делении на 5 дают остаток 3. Есть текст программы на Паскале,нужно...

Перевод программы с Turbo Pascal на С++ - C++
Помогите пожалуйста перевести с Turbo Pascal на С++!!!! Задачу и тексты надо переписывать!.


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

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

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