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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Одномерные массивы (практика) http://www.cyberforum.ru/cpp-beginners/thread269269.html
Уважаемые программисты, помогите пожалуйста решить задачи изложенные ниже с использованием библиотеки "math". Задание: В одномерном массиве, состоящем из n-целых элементов, вычислить: 1. Кол-во...
C++ Символьные строки Задача такая: надо отделить имя файла и расширение от его пути но из за слэшей на экран выводится какаята ерунда, никак непохожая на имя файла #include <stdio.h> #include <conio.h> #include... http://www.cyberforum.ru/cpp-beginners/thread269263.html
Даны 4 числа...C++ C++
Прошу помощи в решении 2-х последующих задач (пожалуйста помогите,завтра контрольная): 1) Даны 4 числа (a,b,c,d). Если a<b<c<d,то каждое из чисел заменить наибольшим,Если a>b>c>d,то каждое число...
C++ Найти все ненулевые элементы матрицы и записать их в новый массив
#include <cstdlib> #include <iostream> #include <stdio.h> #include <math.h> using namespace std; int main(int argc, char *argv) { int i,j,N,M;
C++ Иерархия классов, наследование (Млекопитающие, Парнокопытные, Птицы, Животное) http://www.cyberforum.ru/cpp-beginners/thread269184.html
нужно создать иерархию класcов с механизмом наследования млекопитающиеся, парнокопытные, птици, животное написать код я хочу написать сам , но основная проблем в том что с биологией у меня в школе...
C++ Сортировка методом выбора. Структуры. Задание было вывести студенток первого курса в алфавитном порядке. Сортировка должна быть методом выбора. А как применить её для структур понять не могу(( #include<conio.h> #include<stdio.h>... подробнее

Показать сообщение отдельно
MegaAce
330 / 304 / 65
Регистрация: 14.02.2010
Сообщений: 662
03.04.2011, 14:29
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
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru