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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Перевод с C# на С++ (в заданном тексте найти 20 наиболее часто встречающихся слов с указанием количества использования каждого из них) http://www.cyberforum.ru/cpp-beginners/thread876682.html
Помогите пожалуйста перевести с C# на С++.... Я не очень хорошо сейчас знаю библиотеку STL... Задание такое: В заданном тексте найти 20 наиболее часто встречающихся слов с указанием количества...
C++ Распознавание текстуры Пожалуйста, подскажите каким образом возможно реализовать распознавание текстуры цветных камней Какие-нибудь идеи или алгоритмы. На входе просто фотография камня. На выходе текстура камня. любые... http://www.cyberforum.ru/cpp-beginners/thread876677.html
C++ Бинарное дерево
#include "stdafx.h" #include <iostream> #include <conio.h> int last; void add(double volue) { //double *arr = new double;
Указатель на буфер C++
Доброго времени суток. Вопрос вот в чем есть моя функция drawLine: void Windows::drawLine(int x1, int y1, int x2, int y2, char* bitmap, int bitmap_width, int bitmap_height) { BITMAPINFO* bi =...
C++ Отключить предупреждение (character constant too long for its type [enabled by default]) http://www.cyberforum.ru/cpp-beginners/thread876660.html
Компилятор mingw32 пишет предупреждение: character constant too long for its type if (fileName == L'//' || fileName == L'\\') std::wstring ExtractFileName(const wchar_t* fileName)...
C++ Написать программу, которая по одной из цифр 0,1,2,3, 4,5,6,7,8,9 – послед-ней цифре числа N - находит последнюю цифру квадрата этого числа Чтобы определить на какую цифру оканчивается квадрат целого числа, достаточно знать последнюю цифру самого числа. Написать программу, которая по одной из цифр 0,1,2,3, 4,5,6,7,8,9 – послед-ней цифре... подробнее

Показать сообщение отдельно
DirektrisaMorga
0 / 0 / 0
Регистрация: 03.02.2013
Сообщений: 12

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

24.05.2013, 05:35. Просмотров 315. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru