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

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

Войти
Регистрация
Восстановить пароль
 
canavaro
0 / 0 / 0
Регистрация: 26.02.2011
Сообщений: 11
#1

Перевод з С++ в Pascal.Неучил и всьо.Спс - C++

03.04.2011, 14:09. Просмотров 441. Ответов 2
Метки нет (Все метки)

#include "stdafx.h"
#include <iomanip>
#include <iostream>
#include <math.h>
using namespace std;
#define n 5
void main()
{
int a[n],i=0,s=0,sz,b[n];
setlocale(LC_ALL,"Ukrainian");
system("COLOR 0f");
cout<<"Введiть данi \n";
for(i=0;i<n;i++)
{
cout<<"["<<i+1900<<"]=";
cin>>a[i];
}
for(i=0;i<n;i++)
s+=a[i];
sz=s/n;
for(i=0;i<n;i++)
b[i]=a[i]-sz;;
cout<<"середне количистиство осадков: "<<sz<<endl;
for(i=0;i<n;i++){
if(b[i]>0)
cout<<"у "<<i+1990<<" випало на "<<abs(b[i])<<" біше вiд норми"<<endl;
if(b[i]<0)
cout<<"у "<<i+1990<<" випало на "<<abs(b[i])<<" менше вiд норми"<<endl;
if(b[i]==0)
cout<<"у "<<i+1990<<" випала норм)"<<endl;
}

}


Условие: Даны действительные числа а1901(это число индекс типа снизу возле а)а1902,....,а1950 - количество осадков (в миллиметрах), выпавших в Москве в течение первых 50 лет нашего столетия. Надо вычислить среднее количество осадков и отклонение от среднего для каждого года

Решение надо чтоб выводило рандомом )) Ето курсовая.. спс за помоч
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.04.2011, 14:09     Перевод з С++ в Pascal.Неучил и всьо.Спс
Посмотрите здесь:

Перевод с pascal на c++ - C++
помогите перевести следующий текст с pascal на c++ uses crt; var mas: array of integer; i,a,b,min,max,r:integer; begin ...

Перевод с Pascal на С++ - C++
Ребят, кому не сложно,переведите пожалуйста.Буду благодарна. program z1; var n,s,i : integer; begin write('n = '); ...

Перевод из Pascal в C++ - C++
Добрый день, дорогие форумчане) Буду благодарен за перевод) uses crt; const nmax = 20; type mtr = array of integer;

Перевод с Pascal на C++ - C++
Пишу программу. Принципиальна скорость. Дальнейшие пути оптимизации не наблюдаются. Сообственно код: type Numb = array of int64; ...

Перевод с Pascal на C++ - C++
Вечер добрый. Перевожу с pascal на c++. Подскажите или отредактируйте код, что не так? program z1; var a,b:real; begin; ...

Перевод из Pascal в C++ - C++
Помогите перевести в С++. Вот код : program Adam; uses crt; var func,x,y,yp:array of real; proiz:array of real; ...

Перевод с Pascal на C++ - C++
Код на паскале, помогите его переписать в С ++ . Очень нужно ребят . Последняя задача. const mi = 100; type matrix = array of...

Перевод с Pascal на С++ - C++
Type predpr=Array of longint; rasp=Array of longint; На языке С++, как это будет выглядеть?

Перевод из Pascal в C++ - C++
Помогите,пожалуйста, с переводом программы из паскаля в C++ uses crt; function F(x:real):real; begin F:=1+x-x*x*x; ...

Перевод из Pascal на C++ - C++
Народ! Помогите пожалуйста перевести код из Паскаля в C++ const w:array of real=(1.5,-1,0.5); type fly=class ...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
MegaAce
330 / 304 / 65
Регистрация: 14.02.2010
Сообщений: 662
03.04.2011, 14:29     Перевод з С++ в Pascal.Неучил и всьо.Спс #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
uses crt;
const n=5;
var i,s,sz:integer;
    a,b:array[1..n] of integer;
begin
 randomize;
 writeln('Vvedite danie');
 for i:=1 to n do
 begin
  write('[',i+1899,']=');
  {readln(a[i]);}
  a[i]:=random(50)+50;
  writeln(a[i]);
 end;
 s:=0;
 
 for i:=1 to n do
  s:=s+a[i];
 sz:=round(s/n);
 
 for i:=1 to n do
  b[i]:=a[i]-sz;
 
 writeln('srednee kolichestvo oadkov ',sz);
 
 for i:=1 to n do
 begin
  if b[i]>0 then
   writeln('u ',i+1990,' vipalo na ',abs(b[i]),' bolshe ot normi');
  if b[i]<0 then
   writeln('u ',i+1990,' vipalo na ',abs(b[i]),' menshe ot normi');
  if b[i]=0 then
   writeln('u ',i+1990,' vipala norma');
 end;
 
end.
Добавлено через 43 секунды
Цитата Сообщение от canavaro Посмотреть сообщение
Решение надо чтоб выводило рандомом
Может входные данные??
canavaro
0 / 0 / 0
Регистрация: 26.02.2011
Сообщений: 11
03.04.2011, 15:10  [ТС]     Перевод з С++ в Pascal.Неучил и всьо.Спс #3
ну да))
Ответ Создать тему
Опции темы

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