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

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

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

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

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

Перевод из Паскаля в C++ - C++
Переведите программу из Паскаля в С++, пожалусйта Вот код : const nmax=100; var a: array of integer; i,j,n,m,min:...

Перевод из Паскаля в с++ - C++
Задача: Найти все натуральные n-значные числа, цифры в которых образуют строго возрастающую последовательность Есть решение на...

Перевод с Паскаля на С++ - C++
Не могу ни как перевести полностью вот этот кусок кода на Паскале на си++ function h(var key: TKey): integer; {Вычисление хеш-функции} ...

Перевод с паскаля в с++ - C++
переводил код с паскаля в с++ и столкнулся с проблемой, помогите разобраться, пожалуйста! writeln(a,' rublej') написал в с++ как printf...

Перевод с Паскаля в С++ - C++
Помогите перевести этот код на С++ var a,z,x,x0,x1,xk,y,y0,y1,yk,zmin,h:real; i,n:integer; begin clrscr; write(‘Ввод X0:’); ...

Перевод с Паскаля в С++ - C++
var n: longint; max,x: byte; begin write('Введите число n: '); readln(n); max:=n mod 10; while n>0 do begin ...

1
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;
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.05.2013, 07:45
Привет! Вот еще темы с ответами:

Перевод из паскаля в с++ - C++
ребятки, спасайте! нивкакую не получаецо перевести программку: Program p32; uses crt; var s:string; procedure proc(var y:string); ...

Перевод с Паскаля на C++ - C++
Помогите пожалуйста перевести это код на C++!!!!!! Uses crt,graph; label 2,3,4; Var dr,md,i,k:integer; d:char; procedure dogd; ...

Перевод с паскаля на С++ - C++
Даны два массива A и B одинакового размера N. Сформировать новый массив C того же размера, каждый элемент которого равен максимальному из...

перевод с паскаля на С++ - C++
Дан массив ненулевых целых чисел размера N. Проверить, образуют ли его элементы геометрическую прогрессию (см. задание 4). Если образуют,...


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

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

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