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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Ranger50
2 / 1 / 0
Регистрация: 30.10.2008
Сообщений: 23
#1

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

19.12.2008, 14:20. Просмотров 770. Ответов 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.12.2008, 14:20
Здравствуйте! Я подобрал для вас темы с ответами на вопрос переведите пожалуйста с языка паскаль на си++! (C++):

Переписать символы с входящего рядка в выходящий, меняя операторы языка паскаль на операторы языка С++ := на =, = на ==, # на != - C++
Переписать символы с входящего рядка в выходящий, меняя операторы языка паскаль на операторы языка С++ := на =, = на ==, # на != Спасибо.

Пожалуйста переведите из С++ в С(Си) - C++
Задание: Работа со строками. Найти длину самого короткого слова #include &lt;string&gt; #include &lt;iostream&gt; #include &lt;sstream&gt; using...

переведите с Паскаля на си++ пожалуйста! - C++
Дано имя файла и целое число N (0 &lt; N &lt; 27). Создать текстовый файл с указанным именем и записать в него N строк длины N; строка с номером...

Переведите с Pascal на С++ пожалуйста - C++
program asd; var r,V:real; begin write(‘введите радиус r’); readln(r); V:=4/3*3.14*sqr(r)*r; write(‘объем...

Переведите пожалуйста с паскаля на с++ - C++
var i,j: integer; function lol(x: integer): integer; var i,k: integer; begin k:=0; for i:=1 to x-1 do if x mod i = 0 then ...

Пожалуйста, переведите с Pascal на C++ - C++
Помогите, пожалуйста. Времени в обрез. var arr: array of integer; i,n: integer; begin read(n); for i := 1 to n do ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.12.2008, 14:20
Привет! Вот еще темы с ответами:

Переведите, пожалуйста, с паскаля на C++ - C++
type Person = record Surname, Name, Adress, City: string; ...

переведите с Паскаля на си++ пожалуйста! - C++
в Паскале получается...а в СИ++ нет( procedure Mean(x,y:real; var AMean,GMean:real); begin AMean:=(x+y)/2; GMean:=sqrt(x * y); ...

Переведите пожалуйста программу в C++ - C++
Изначально прога написана на Паскале. Нужно перевести ее в C++ . И сделайте пожалуйста скрин работы программы) Условие: Дан текстовый...

Переведите пожалуйста прогу) - C++
Program m3; Uses CRT; Const n=5; m=5; k1=100; k2=k 1 *2+1; Type matr =array of integer; Var a :matr; i, j, f, ma...


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

Или воспользуйтесь поиском по форуму:
Ответ Создать тему
Опции темы

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