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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Корректный код под C++ http://www.cyberforum.ru/cpp-beginners/thread1116667.html
Господамы, недавно начал изучать C++ И в одном из задачников столкнулся со следующим заданием, необходимо написать старую запоминалку про фазана где каждое слово будет начинаться с новой строки и...
C++ Работа с текстовым файлом Доброго времени суток, друзья! Прошу помощи с выполнением лабораторной работы. Задание: необходимо прочитать текстовый файл и вывести на экран: количество определенных символов, каких именно... http://www.cyberforum.ru/cpp-beginners/thread1116650.html
C++ Создать файл, содержащий сведения об ассортименте товаров в магазине
Создать файл, содержащий сведения об ассортименте товаров в магазине. Структура записи: название товара, цена, количество, дата поставки,срок годности, поставщик. Названия товаров могут повторяться....
Словесное описание C++
Помогите словесно описать фрагмент кода! Код: #include<iostream> using namespace std; int main() { char name1, name2,str; int i,l;
C++ Варианты организации файлового В/В в C++ http://www.cyberforum.ru/cpp-beginners/thread1116595.html
Встретил несколько вариантов организации файлового В/В: 1) - через создание объектов классов ifstream и ofstream: std::ifstream fileIn("fileIn.txt", std::ios::in); std::ofstream...
C++ Friend function Нужно сделать функции Length и Angle френдовыми для другого класса. Как это запилить? Sect.h #include <iostream> #include <math.h> #include <Windows.h> #include <conio.h> using namespace std;... подробнее

Показать сообщение отдельно
1Тарас1
3 / 3 / 1
Регистрация: 21.01.2013
Сообщений: 70

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

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