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

Перевести программу с языка Паскаль в язык С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Проверить, имеется ли в одномерном числовом массиве A из n элементов, хотя бы одна пара взаимно обратных чисел. http://www.cyberforum.ru/cpp-beginners/thread380181.html
Проверить, имеется ли в одномерном числовом массиве A из n элементов, хотя бы одна пара взаимно обратных чисел. перенес в С++
C++ Многопутевая сортировка добрый вечер) имеется код программы по многопутевой сортировке...кто-нибудь может сказать почему она работает не правильно??? #include <iostream> #include <sstream> #include <vector>... http://www.cyberforum.ru/cpp-beginners/thread380180.html
Массивы, подсчёт, перестановка элементов. C++
1)найти кол-во элементов массива больших С 2)найти произведение элементов массива,расположенных после максимального по модулю элемента 3)преобразовать массив таким образом,чтобы сначала...
C++ Одномерный массив. Записать элементы массива x, удовлетворяющие условию xi Э [1;2]...
Простите за возможный повтор но в поиске по форуму я так и не нашел решение этой задачи. Записать элементы массива x=(x1,x2,...,xn), удовлетворяющие условию xi Э подряд в массив y=(y1,y2,...,yn)....
C++ Метод не хочет возвращать объект типа класса которому он принадлежит http://www.cyberforum.ru/cpp-beginners/thread380175.html
Есть класс matrix и один из методов этого класса plus который возвращает объект типа matrix Но корректно этого делать не хочет Ошибка возникает на строчке самого возвращения Сначала пробовал...
C++ одномерный массив помогие пожалуйста с написанием программки на Си, вроде не сложная, но прошу помощи здесь, вот условие задачи: Преобразовать одномерный массив таким образом, чтобы в первой его половине... подробнее

Показать сообщение отдельно
AlexGig
0 / 0 / 0
Регистрация: 22.04.2013
Сообщений: 4
22.04.2013, 19:18
Ребят помогите перевести, С++ вообще не знаю.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
programvisota;
usescrt;
var
h, a, b, c, p, S: real;
begin
writeln('vveditechrezprobelstoroniteugolnika a, b, c');
readln(a,b,c);
p:=(a+b+c)/2; {poluperimetrtreugolnika}
S:=sqrt(p*(p-a)*(p-b)*(p-c)); {poformule}
h:=(2*S)/a; {visota k storone a}
writeln('Visota k storone a ravna: ', h);
readkey;
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
programzadacha;
var
a:array[0..9] of longint;
i,j,k:integer;
begin
a[0]:=1;
For i:=1 to 9 do
a[i]:=a[i-1]*i;
for i:=1 to 9 do
for j:= 0 to 9 do
For k:=0 to 9 do
if a[i]+a[j]+a[k]=i*100+j*10+k then writeln(a[i],'+',a[j],'+',a[k],'=',i*100+j*10+k);
end.
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
Var A:array[1..100] of integer;
i,n,t:integer;
Begin
write('Vvediterazmernost ');readln(n);
writeln('Ishodnimassiv: ');
    For i:=1 to n do
     Begin
      A[i]:=random(30)-15;
write(A[i]:4);
     End;
writeln;
writeln('Preorazovani: ');
i:=0;
    While i<n-1 do
     Begin
inc(i,1);
t:=A[i];
      A[i]:=A[i+1];
A[i+1]:=t;
inc(i,1);
     End;
     For i:=1 to n do   
write(A[i]:4);
readln;
end.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program zadnie2;
usescrt;
var a, b: integer; s1, s2: real;
begin
writeln ('vvedite radius kruga');
readln (a);
writeln ('vveditedlinustoronikvadrata');
readln (b);
      s1:=3.14*sqr(a);
      s2:=sqr(b);
if s1>s2 then writeln ('ploshadkrugabolsheploshadikvadrata: ', s1, '>', s2)
elsewriteln ('ploshadkvadratabolsheploshadikruga: ', s1, '<', s2);
end.
Курс лекций был в Новосибирске, теперь практика началась, бегаю все отрабатываю, выручите ребята, горю... =(
0
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru