1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Помогите пожалуста кому нетрудно

Тема в разделе "Вопросы новичков и не только", создана пользователем ScorpionL, 26 апр 2010.

  1. ScorpionL

    ScorpionL Гость

    Репутация:
    0
    Помогите пожалуста необходимо переделать прогаму из паскаля на С++. Вдолгу неостанусь. Вот код

    Код:
    Procedure Effect( Var z:Vector; n:Integer ); 
    Const k :LongInt=0; {Количество перестановок} 
    Var 
    p,d :Vector; 
    pm, dm,zpm : Integer; 
    i,m,w : Integer; 
    begin; 
    for i:=1 to n do begin z[i]:=i; p[i]:=i; d[i]:=-1; end; 
    d[1]:=0; 
    m:=n+1; 
    z[0]:=m; z[n+1]:=m; 
    while m<>1 do begin 
    { Печать перестановки } 
    k:=k+1; Write(f,k,' ) `); 
    for i:=l to n do Write(f,z[i],' `); WriteLn(f); 
    m: =n; 
    while z [p [m] +d [m] ] >m do begin 
    d[m]:=-d[m]; m:=m-l; end; 
    pm:=p[m]; dm:=pm+d[m]; w:=z[pm]; 
    z [pm] : =z [dm]; z[dm]:=w; 
    zpm:=z[pm]; w:=p[zpm]; p[zpm]:=pm; p[m]:=w; 
    end; 
    end;{Effect} 
    Var {Main} 
    z :Vector; 
    n :Integer; {Длина перестановки} 
    Hour,Minute,Second,SeclOO :Word; 
    rHour,rMinute,rSecond,rSec100 :Word; 
    delta :LongInt; 
    begin 
    Assign(f,'Effect.in' ); 
    Reset(f); {Файл открыт для чтения} 
    ReadLn(f,n); {Чтение длины перестановки} 
    Close(f); 
    Assign(f,'Effect.out' ); 
    Rewrite(f); {Файл открыт для записи} 
    GetTime(Hour,Minute,Second,Sec100); 
    Effect(z,n); 
    GetTime(rHour,rMinute,rSecond,rSec100); 
    delta:=rHour-Hour; 
    delta:=delta*60+rMinute-Minute; 
    delta:=delta*60+rSecond-Second; 
    delta:=delta*100+rSec100-Sec100; 
    WriteLn(f,'Время счета=',delta div 100,'.', 
    delta mod 100,' сек'); 
    Close(f); 
    end.
     
Загрузка...
Похожие Темы - Помогите пожалуста кому
  1. Tayrus
    Ответов:
    2
    Просмотров:
    51
  2. KanycTa
    Ответов:
    1
    Просмотров:
    53
  3. Samyrro
    Ответов:
    1
    Просмотров:
    62
  4. Tayrus
    Ответов:
    0
    Просмотров:
    52
  5. bronnn
    Ответов:
    0
    Просмотров:
    112

Поделиться этой страницей