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

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

Восстановить пароль Регистрация
 
canavaro
0 / 0 / 0
Регистрация: 26.02.2011
Сообщений: 11
03.04.2011, 14:09     Перевод з С++ в Pascal.Неучил и всьо.Спс #1
#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.Неучил и всьо.Спс
Посмотрите здесь:

C++ Перевод из pascal в С
C++ Перевод с Pascal на C++
перевод в C++ из Pascal C++
C++ Перевод с Pascal на С++
C++ Перевод из Pascal в C++
Перевод из Pascal в C++ C++
Перевод с Pascal на C++ C++
C++ Перевод c Pascal на С++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
MegaAce
 Аватар для 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
ну да))
Yandex
Объявления
03.04.2011, 15:10     Перевод з С++ в Pascal.Неучил и всьо.Спс
Ответ Создать тему
Опции темы

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