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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Определить длину самой большой последовательности подряд идущих согласных http://www.cyberforum.ru/cpp-beginners/thread18903.html
В строке записаны несколько предложений . Каждое предложение заканчивается точкой, вопросительным или восклицательным знаками. 1. Вывести на экран только те предложения в которых нет ни 1 цифры 2....
C++ найти корень уравнения методом хорд и касательных на С найти корень уравнения (x*x + ln(x)-2) методом хорд и касательных на С. Если не можете, тогда подскажите плз... В этом методе есть f, f1, f2.. f-само уравнение, а что задавать для f1,f2 ? Заранее... http://www.cyberforum.ru/cpp-beginners/thread18894.html
C++ Рисование треугольника
Здравствуйте, нужно сделать вот это через подпрограмму: ----*---- ---*-*--- --*---*-- -*-----*- ********* '-' это пробелы
Каким образом нормально считать с консоли строку? C++
Дело в том что необходимо считывать строки вводимые с консоли. Но полноценно это не выходит. Ф-ция scanf() обеспечивает считывание только до первого пробела, сколько читал мануалов по ее...
C++ Need an identifier to declare что за ошибка??? http://www.cyberforum.ru/cpp-beginners/thread18868.html
Код вызывает вот такие ошибки: din108_1.cpp(15): E2146 Need an identifier to declare din108_1.cpp(23): E2146 Need an identifier to declare Вот полный листинг программы Вот здесь, ошибки:...
C++ Заменить числа числительными Текст задачи: Имееться текстовый файл, в котором храниться некоторый текст. В тексте встречаються числа, записаные в цифровом представлении, а после числа в скобках одной буквой указан падеж, в... подробнее

Показать сообщение отдельно
Ranger50
2 / 1 / 0
Регистрация: 30.10.2008
Сообщений: 23

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

19.12.2008, 14:20. Просмотров 778. Ответов 0
Метки (Все метки)

вот код:
Код
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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru