Перевод кода из Pascal в C++

@five0f · Регистрация: 26.09.2017

Author24 — интернет-сервис помощи студентам

Помогите с переводом

Pascal

var s: string;
    i, n, k: integer;
 
begin
  k := 1;
  writeln('Enter string:');
  readln(s);
  s := s + ' ';
  n := 1;
  while s[n] = ' ' do n := n + 1;
  for i := n to length(s) - 1 do
    begin
      if odd(k) then s[i] := upcase(s[i]);
      if (s[i] = ' ') and (s[i + 1] <> ' ') then k := k + 1
    end;
  writeln('Result:');
  writeln(s);
  readln
end.

@Hitoku · 23.02.2018, 23:14

C++

#include <string>
#include <iostream>
 
int main()
{
    std::string s;
    std::cout << "Enter string: ";
    std::getline(std::cin, s);
    s += " ";
    int n = 0, k = 1;
    while (s[n] == ' ') n++;
    for (int i = n; i < s.size() - 1; i++) {
        if (k % 2 != 0) s[i] = toupper(s[i]);
        if (s[i] == ' ' && s[i + 1] != ' ') k++;
    }
    std::cout << "Result: " << s<<"\n";
    system("pause");
    return 0;   
}

@NazarSafari · 28.05.2020, 21:41

Pascal

const
  h = 0.1 * 4;
 
var
  y, x: real;
 
begin
  while not (x > 4) do
  begin
    y := abs(sin(x / 3.12) + cos(x * x)) - 8.3 * sin(3 * x) * y;
    writeln('x = ', x:1:1, '    y = ', y);
    x += h;
  end;

В С++ Пожалуйсто )

	28.05.2020, 21:41