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

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

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

Перевод с Паскаля на С++ - C++

24.05.2013, 05:35. Просмотров 285. Ответов 1
Метки нет (Все метки)

Кому не трудно. Помогите перевести пару задач несложных.
1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  a,b,c,tmp:real;
begin
  write('Введите три числа A,B,C=');
  read(a,b,c);
  tmp:=b;
  b:=a;
  a:=c;
  c:=tmp;
  writeln('A=',a:0:1,' B=',b:0:1,' C=',c:0:1);
  readln;
end.
2
Pascal
1
2
3
4
5
6
7
8
var
  n:longint;
begin
  write('Количество секунд=');
  read(n);
  write('Кол-во полных минут, прошедших с начала последнего часа=',n div 60 mod 60);
  readln;
end.
3
Pascal
1
2
3
4
5
6
7
8
9
var
  a:integer;
begin
  write('Введите четырехзначное число, А=');
  readln(a);
  writeln('«Данное число читается одинаково слева направо и справа налево» = ',
  (a div 1000=a mod 10) and (a div 10 mod 10=a div 100 mod 10));
  readln;
end.
4.
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
var
  x1,x2,x3,x4,y1,y2,y3,y4:integer;
begin
  write('Введите координаты 1 вершины x1,y1=');
  readln(x1,y1);
  write('Введите координаты 2 вершины x2,y2=');
  readln(x2,y2);
  write('Введите координаты 3 вершины x3,y3=');
  readln(x3,y3);
  if x1=x2 then
    x4:=x3
  else if x1=x3 then
    x4:=x2
  else
    x4:=x1;
  if y1=y2 then
    y4:=y3
  else if y1=y3 then
    y4:=y2
  else
    y4:=y1;
  writeln('Координаты 4 вершины x4,y4=',x4,',',y4);
  readln;
end.
Буду очень признательна. )
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.05.2013, 05:35     Перевод с Паскаля на С++
Посмотрите здесь:

Перевод с Паскаля на С++ C++
C++ Перевод с Паскаля на C++
C++ перевод с паскаля на С++
C++ Перевод с паскаля на си
C++ Перевод из паскаля в с ++
Перевод из Паскаля в C++ C++
Перевод из Паскаля в C++ C++
Перевод с паскаля на с++ C++
C++ Перевод с паскаля на с++
C++ Перевод из Паскаля в Си++
Перевод с Паскаля в С++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
exet0l
0 / 0 / 0
Регистрация: 08.02.2013
Сообщений: 4
24.05.2013, 07:45     Перевод с Паскаля на С++ #2
1
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#include <iostream>
#include <windows.h>
 
int main()
{
    float a,b,c,tmp;
 
    std::cout << "Введите три числа A,B,C=";
 
    std::cin >> a;
    std::cin >> b;
    std::cin >> c;
 
    tmp = b;
    b=a;
    a=c;
    c=tmp;
 
    std::cout << "A=" << a << " B=" << b << " C=" << c << std::endl;
    
    system("pause");
    return 0;
}
2
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#include <iostream>
#include <windows.h>
 
int main()
{
    long int n;
 
    std::cout << "Количество секунд=";
 
    std::cin >> n;
 
    std::cout << "Кол-во полных минут, прошедших с начала последнего часа=" << (n / 60) % 60 << std::endl;
    
    system("pause");
    return 0;
}
3
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#include <iostream>
#include <windows.h>
 
int main()
{
    int a;
 
    std::cout << "Введите четырехзначное число, А=";
 
    std::cin >> a;
 
    std::cout << "«Данное число читается одинаково слева направо и справа налево» = " 
    << ((a / 1000 == a % 10) && ((a / 10) % 10 == (a / 100) % 10)) << std::endl;
    
    system("pause");
    return 0;
}
Yandex
Объявления
24.05.2013, 07:45     Перевод с Паскаля на С++
Ответ Создать тему
Опции темы

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