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

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

Войти
Регистрация
Восстановить пароль
 
1Тарас1
3 / 3 / 1
Регистрация: 21.01.2013
Сообщений: 70
#1

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

11.03.2014, 20:29. Просмотров 159. Ответов 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
30
31
32
33
34
program  laboratorna1;
uses crt;
type ar=array[0..10,1..2] of real;
var j,n,i:integer;
a:ar;
s:real;
function taras(n:integer; a:ar):real;
var i:integer;
s:real;
begin
s:=0;
a[0,1]:=a[n,1];
a[0,2]:=a[n,2];
 
for i:=0 to n-1 do
s:=s+(a[i,1]+a[i+1,1])*(a[i,2]-a[i+1,2]);
taras:=abs(s)/2;
end;
begin
clrscr;
writeln('vvedit n');
readln(n);
for i:=1 to n do
begin
for j:=1 to 2 do
begin
write('a[',i,',',j,']');
read(a[i,j]);
end;
end;
s:=taras(n,a);
write('s=',s:5:2);
readkey;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.03.2014, 20:29     Перевести программу с Паскаля на С++
Посмотрите здесь:

Перевести программу с Паскаля на Си++ - C++
Помогите пожалуйста переписать этот код на язык Си++, не знаю как также объявляется массив :( const a=3; b=4; var x,y,u:array...

Перевести программу с Паскаля на Си++ - C++
Помогите пожалуйста переписать этот код на язык Си++. Я просто не понимаю как его переписать. program Z2; const mx=1000; var a,b:...

Нужно перевести программу из Паскаля в С++ - C++
К сожалению С++ только начали изучать, а программ задали много Delphi знаю хорошо Задача 1.Составить программу упорядочения по...

Помогите перевести программу с Паскаля на С++ - C++
function IsPowerN(K: integer; N: byte): boolean; var i: byte; res: integer; begin res := 1; //начальное значение степеня...

помогите перевести программу с паскаля на С++ - C++
Ребят , помогите перевести программу с паскаля на С++ , или подскажите как написать нечто подобное. Заранее благодарен. Вот задание : ...

Перевести эту программу на С++ с паскаля - C++
Кто может перевести эту программу на С++ вот задание 1 определит колличество строк без нуле 2 сложить характеристические ряды (это...

Надо перевести программу из ПАСКАЛЯ в СИ - C++
uses crt; var a:array of integer; m,n,i,j,k,m1,n1,q1,q2:integer; c:integer; begin clrscr; randomize; k:=0; ...

Нужно перевести программу из Паскаля в С++ - C++
Помогите пожалуйста перевести. Из Паскаля в С++ Код программы Паскаля: program Hello; var i:integer; begin ...

перевести программу из паскаля в с++(для среды Borland C++) - C++
Помогите пожалуйста перевести программу из паскаля в с++(для среды Borland C++) Условие: дан символ С, изображающий цифру или...

Перевести с паскаля на С++ - C++
Var s,s1:string; i,k:byte; Begin write('Введите строку: ');readln(s); k:=0;s1:=''; For i:=Length(s) downto 1 do ...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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