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

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

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

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

03.04.2011, 14:09. Просмотров 451. Ответов 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 лет нашего столетия. Надо вычислить среднее количество осадков и отклонение от среднего для каждого года

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

Перевод с 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 = '); ...

перевод в C++ из Pascal - C++
Кому не сложно переведите пожалуйста программу в С++. Она готова и полностью рабочая. вот на всякий случай сама задача: Таблица...

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

Перевод из pascal в С - C++
Program pr4_1; uses crt; var firstmaxpos, lastminpos, n, i :integer; x, MAX,MIN ...

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

2
MegaAce
330 / 304 / 65
Регистрация: 14.02.2010
Сообщений: 662
03.04.2011, 14:29 #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 Посмотреть сообщение
Решение надо чтоб выводило рандомом
Может входные данные??
0
canavaro
0 / 0 / 0
Регистрация: 26.02.2011
Сообщений: 11
03.04.2011, 15:10  [ТС] #3
ну да))
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.04.2011, 15:10
Привет! Вот еще темы с ответами:

перевод с Pascal на C++ - C++
Const Max=1000; Eps=0.00001; Type Para=record X: integer;

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

Перевод с Pascal на C++ - C++
Доброго времени суток. Вот написал программку на Паскале, кто поможет перевести его на С++ Буду очень благодарен. program truba_stat;...

Перевод из Pascal в C++ - C++
Помогите перевести исходник из Pascal в C++. В Паскале я силен,а вот Си ток немного знаю, выручайте плз, в долгу не останусь! Исходник...


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

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

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