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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 13.02.2015, 10:51   #1
jinos
Пользователь
 
Регистрация: 12.11.2014
Сообщений: 20
По умолчанию Нужно перевести с Pascal в C++

Код:
Uses CRT;
const v=12; nk=6; nn=5; p=1;
var
  a: array [1..nk,1..nn] of Integer;
  i, j, imin, imax: Integer;
begin
  Randomize; WriteLn('Таблица голосования:');
  for i:=1 to nk do begin
    for j:=1 to nn do begin
      a[i,j]:=Random(10*v+50); Write(a[i,j]:4);
    end; WriteLn;
  end;
  imin:=1; imax:=1;
  for i:=2 to nk do begin
    if a[i,p]<a[imin,p] then imin:=i;
    if a[i,p]>a[imax,p] then imax:=i;
  end;
  WriteLn('Кандидат ',p,': min в ',imin,' max в ',imax);
end.

Последний раз редактировалось Stilet; 13.02.2015 в 11:22.
jinos вне форума Ответить с цитированием
Старый 13.02.2015, 11:31   #2
challengerr
Участник клуба
 
Аватар для challengerr
 
Регистрация: 30.07.2008
Сообщений: 1,601
По умолчанию

Код:
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include <locale.h>

#define V 12
#define NK 6
#define NN 5
#define P 1

int a[NK][NN];
int i, j, imin, imax;

int main()
{
setlocale(LC_ALL, "Russian");
srand(time(0));
printf("Таблица голосования:\n");
for(i=0;i< NK;i++)
{
for(j=0;j<NN;j++)
{
a[i][j] = rand()%(10*V+50);
printf("%d\t", a[i][j]);
}
printf("\n");
}
imin=0; 
imax=0;
 
for(i=1;i< NK;i++)
{
if (a[i][P]<a[imin][P] ) imin=i;
if (a[i][P]>a[imax][P] ) imax=i;
}

printf("Кандидат %d min в %d max в %d\n", P, imin, imax);
}
"SPACE.THE FINAL FRONTIER.This's a voyage of starship Enterprise. It's 5-year mission to explore strange new worlds,to seek out new life and civilizations,to boldly go where no man has gone before"
challengerr вне форума Ответить с цитированием
Старый 13.02.2015, 14:35   #3
jinos
Пользователь
 
Регистрация: 12.11.2014
Сообщений: 20
По умолчанию

Большое спасибо)
jinos вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нужно перевести с pascal на с++builder Erkesh Помощь студентам 0 27.11.2012 23:44
Нужно перевести из PASCAL В VISUAL C++. ганс Visual C++ 0 31.03.2012 11:00
нужно перевести программу из Turbo Pascal в Delphi Insensible Doll Помощь студентам 3 27.05.2010 13:41