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

переведите пожалуйста с языка паскаль на си++! - C++

Восстановить пароль Регистрация
 
Ranger50
2 / 1 / 0
Регистрация: 30.10.2008
Сообщений: 23
19.12.2008, 14:20     переведите пожалуйста с языка паскаль на си++! #1
вот код:
Код
program cyb_38;
uses
 Crt;
var
 n, i, unik, srst: byte;
 sum: longint;
 sr_ar: real;
 mas: array [byte] of integer;
begin
 Randomize;
 ClrScr;
 write('Vvedite kol-vo elementov massiva: ');
 readln(n);
 writeln('Massiv: ');
 for i:= 1 to n do
  begin
   mas[i]:= random(51);
   write(mas[i], ' ');
  end;
 writeln('');
 sum:= 0;
 for i:= 1 to n do
  sum:= sum+mas[i];
 sr_ar:= sum/n;
 unik:= 1;
 srst:= 1;
 for i:= 2 to n do
  begin
   if abs(mas[i]-sr_ar) < abs(mas[srst]-sr_ar) then
    srst:= i;
   if abs(mas[i]-sr_ar) > abs(mas[unik]-sr_ar) then
    unik:= i;
  end;
 writeln('Srednestatisticheskii element: ', mas[srst]);
 writeln('Ego index: ', srst);
 writeln('Unikalnui element: ', mas[unik]);
 writeln('Ego index: ', unik);
 readln;
end.
и вот:
Код
Uses crt;
const j1=90;
      j2=180;
      j3=360;
Var p:longint;
    t1,t2,t3,k:integer;
    i1,i2,i3,s1,s2,s3:real;
Begin clrscr;
      Writeln('    ‚Š‹?„    ');
      Writeln('  „«ï à*áç¥â* ** 3 ¬¥áïæ*  ');
      Write(' ‚¢¥¤¨â¥ á㬬㠢ª«*¤* = '); readln(p);
      Write('‚¢¥¤¨â¥ ¯à®æ¥*â*ãî áâ*¢ªã = '); readln(i1);
      Write('‚¢¥¤¨â¥ ¤*¥© ¢ £®¤ã 365 ¨«¨ 366? '); readln(k);
      s1:=p*1+i1*j1/k/100;
      Writeln('‘㬬*=',s1);
      Writeln('„«ï à*áç¥â* ** 6 ¬¥áï楢');
Writeln('‚¢¥¤¨â¥ á㬬㠢ª«*¤*');
readln(p);
Writeln('‚¢¥¤¨â¥ ¯à®æ¥*â*ãî áâ*¢ªã');
readln(i2);
Writeln('‚¢¥¤¨â¥ ¤*¥© ¢ £®¤ã 365 ¨«¨ 366?');
 readln(k);
  s2:=p*1+i2*j2/k/100;
Writeln('‘㬬*=',s2);
Writeln('„«ï à*áç¥â* ** 12 ¬¥áï楢');
Writeln('‚¢¥¤¨â¥ á㬬㠢ª«*¤*');
 readln(p);
Writeln('‚¢¥¤¨â¥ ¯à®æ¥*â*ãî áâ*¢ªã');
 readln(i3);
Writeln('‚¢¥¤¨â¥ ¤*¥© ¢ £®¤ã 365 ¨«¨ 366?');
 readln(k);
  s3:=p*1+i3*j3/k/100;
Writeln('‘㬬*=',s3);
Writeln('‘*¬ë© ¢ë£®¤*ë© ¢ª«*¤');
if (s1>s2) and (s1>s3) then writeln('�¥à¢ë©',s1);
if (s2>s1) and (s2>s3) then writeln('‚â®à®©',s2);
if (s3>s1) and (s3>s2) then writeln('’à¥â¨©',s3);
readln;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.12.2008, 14:20     переведите пожалуйста с языка паскаль на си++!
Посмотрите здесь:

переведите с Паскаля на си++ пожалуйста! C++
переведите с Паскаля на си++ пожалуйста! C++
C++ Переведите пожалуйста прогамму на С++
C++ Переведите пожалуйста прогу)
C++ Переведите пожалуйста прогамму на С++
Переведите пожалуйста программу в C++ C++
Переведите, пожалуйста, с паскаля на C++ C++
C++ переведите с паскаля на с++.пожалуйста
C++ Переведите пожалуйста с CLIPS на C++
C++ Пожалуйста, переведите с Pascal на C++
Переведите пожалуйста формулу C++
Переведите пожалуйста с паскаля на с++ C++

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 08:04. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru