Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > Общие вопросы C/C++
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.03.2008, 10:35   #1
gigaman
 
Регистрация: 07.03.2008
Сообщений: 5
По умолчанию Перевести код с Pascal в C++

Помогите поджалуста переписать задачи. Зделал на Pascal а оказалось надо ищо и на С++.

Задан массив А (N). Поменять местами парные и непарные элементы (первый со вторым, третий с четвертым и т.д.).

Код:
Program ZAD3;
const n=10; {Size of array}
Var i:longint; A:array[1..n] of integer;
Begin
writeln('Input elements of array'); for i:=1 to n do readln(A[i]); for i:=1 to n div 2 do
Begin
a[2*i]:=a[2*i]+a[2*i-1]; a[2*i-1]:=a[2*i]-a[2*i-1]; a[2*i]:=a[2*i]-a[2*i-1];
End; for i:=1 to n do writeln(A[i]); readln; End.
Задана матрица А(N,N). Напечатать индексы элементов, которые являются наименьшими в своем строчные и одновременно наибольшими в своем столбце.

Код:
program ZAD4;
uses wincrt;
  var
    V:array[1..100,1..100] of integer;
      m,n, i,j,k,is, ic, cmin,cmax: integer;
   begin
write('Введите размерность массива n> '); readln(n); {ввід даних в масив} for i:= 1 to n do for j:= 1 to n do begin write('V[',i,',',j,']= '); readln(V[i,j]); end;
for i:=1 to n do { по рядках } begin
{ пошук мінімального елемента в рядку i} ic:=1; cmin:=v[i,1]; for k:=2 to n do if (v[i,k]<cmin) then begin cmin:=v[i,k]; ic:=k; {мін в стовпці ic} end;
{ пошук максимального елемента в стовці ic}
is:=1; cmax:=v[1,ic]; for k:=2 to n do if (v[k,ic]>cmax) then begin cmax:=v[k,ic]; is:=k; end; if(cmax=cmin) then writeln('значення=',cmin,'в стовпці',ic,'в рядку',is); end; readln;
end.
Тебе предупреждение

Последний раз редактировалось merax; 26.03.2008 в 19:21.
gigaman вне форума Ответить с цитированием
Старый 26.03.2008, 12:18   #2
Padovan
Пользователь
 
Аватар для Padovan
 
Регистрация: 30.11.2006
Сообщений: 10
По умолчанию Первая программа

i
Код:
nt main(int argc, char* argv[])
{
	
	const int n=10; //{Size of array}
	long i;
      int a[n+1]; //n+1 так как начинаем работать с массивом не с 0 а с 1
	
	printf("Input elements of array");
	for (i=1; i<=n; i++)
		scanf("%d",&a[i]);
	
	for (i=1; i<=n; i++)
		printf(" [%d] ",a[i]);
	
	for (i=1; i<=(int((n/2)+0.5)); i++)
	{
		a[2*i]=a[2*i]+a[2*i-1];
		a[2*i-1]=a[2*i]-a[2*i-1];
		a[2*i]=a[2*i]-a[2*i-1];
	}
	
	for (i=1; i<=n; i++)
		printf(" [%d] ",a[i]);
	
	getchar();
	
	return 0;
}

И тебе предупреждение

Последний раз редактировалось merax; 26.03.2008 в 19:20.
Padovan вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевести текст marinchik Свободное общение 15 02.07.2008 11:40
перевести программу из Pascal с использованием компонента Stringgrid в delphi. evrey Компоненты Delphi 4 02.06.2008 18:57
Как алгоритм перевести в код VBA valerij Microsoft Office Excel 18 29.05.2008 01:32
Перевести с С++ на Delphi DeFaber Общие вопросы C/C++ 2 12.01.2008 06:02
Как перевести... ATOMIC Общие вопросы Delphi 9 20.01.2007 09:14