|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.03.2014, 21:53 | #1 |
Новичок
Джуниор
Регистрация: 02.12.2012
Сообщений: 2
|
Помогите пожалуйста перевести программу с Паскаля на С++
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. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите пожалуйста перевести программу с Паскаля на С++ | Taras_rom | Visual C++ | 1 | 16.03.2014 21:39 |
Нужно перевести программу с паскаля на с++ | Grynyuk | Помощь студентам | 0 | 09.12.2013 23:03 |
Программу нужно перевести из паскаля в делфи | Ильшат Садыков | Компоненты Delphi | 1 | 09.06.2010 19:49 |
Народ, перевести программу с паскаля на с++ | Janefan | Помощь студентам | 0 | 11.05.2010 18:29 |
нужно перевести программу с Паскаля на С | SweetDream | Помощь студентам | 4 | 24.04.2010 17:51 |