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

Из паскаля в С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Printf не переносит строку http://www.cyberforum.ru/cpp-beginners/thread1183937.html
for (int i = 0; i<10; ++i) { Rec.N = i*i; printf("%d", Rec.N, "\n"); } Выводит "0149162536496491"
C++ Вывести голосование в ячейку таблицы доброго времени суток! Поделитесь опытом, уже как две недели не могу найти ответ на свой вопрос: Сделал голосовалку rate, выглядит это так "Вверх100%down0%". Это голосовалка отображается под... http://www.cyberforum.ru/cpp-beginners/thread1183936.html
C++ Выбрать из файла символы, которые встречаются в нем только один раз
Помогите решить задачу с файлами пожалуйста Задача: Дан файл, содержащий текст на русском языке. Выбрать из него те символы, которые встречаются в нем только один раз, в том порядке, в котором они...
Не вычисляется сумма ряда C++
// ConsoleApplication1.cpp: определяет точку входа для консольного приложения. // #include "stdafx.h" #include "iostream" #include "iomanip" #include <cmath> #include <stdio.h>
C++ Создать класс “Поликлиника”, состоящей из класса ”Врач” http://www.cyberforum.ru/cpp-beginners/thread1183875.html
Создать класс “Поликлиника”, состоящей из класса ”Врач”. Класс “Поликлиника”: номер поликлиники, фамилия заведующей, телефон заведующей. Класс “Врач” : фамилия врача, специальность. Определить в...
C++ Cоставить программу звездолет, якобы будет летать корабль и стрелять по астероидам Ребят всем привет, дали задание составить программу звездолет, якобы будет летать корабль и стрелять по астероидам, в итоге нашел и скачал и отправил программу, теперь преподавателю приспичило, что... подробнее

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

Из паскаля в С++ - C++

21.05.2014, 20:48. Просмотров 100. Ответов 0
Метки (Все метки)

В С++ не понимаю ничего. помогите, пожалуйста с кодом.
в С++ перевести его.
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
var
  a: array[1..100] of real;
  x,y,z,s,buf: real;
  i,j,n: integer;
begin
  write('введите количество точек: ');
  readln(n);               {количество точек}
  for i:=1 to n do
  begin
    writeln('введите координаты ',i,' точки:');
    read(x,y,z);           {вводим координаты каждой точки}
    s:=(sqrt(x*x+y*y+z*z));
    writeln('расстояние ',i,' = ',s:6:2);
    a[i]:=s;               {расстояние - в массив}
  end;
  readln;
                           {упорядочиваем массив}
  for i:=2 to n do
    for j:=n downto i do
    if a[j-1]>a[j] then
    begin
      buf:=a[j-1];
      a[j-1]:=a[j];
      a[j]:=buf;
    end;
  write('расстояния, отсортированные по неубыванию:');
  for i:=1 to n do write(a[i]:5:2,' '); {выводим на печать}
  readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru