Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Напечатать таблицу перевода температуры из градусов по шкале Цельсия в градусы шкалы Фаренгейта https://www.cyberforum.ru/ turbo-pascal/ thread1577206.html
Напечатать таблицу перевода температуры из градусов по шкале Цельсия в градусы шкалы Фаренгейта для значений от М градусов до N грвдусов с шагом k градусов. перевод осуществляется по формуле...
Найти всех пассажиров, у которых средний вес одной вещи отличается не более, чем на 0,5 кг от общего Turbo Pascal
составить программу по теме Записи Даны сведения о багаже пассажиров: фамилия пассажира, количество вещей и вес в килограммах. а. найти всех пассажиров, у которых средний вес одной вещи отличается...
Turbo Pascal Напечатать в алфавитном порядке все звонкие согласные буквы, которые входят только в одно слово
Составить программу по теме Множества Дан текст, содержащий не более 10 слов, из строчных русских букв, между соседними словами- запятая, за последним словом-точка. Составить программы, в которых...
Turbo Pascal Определить, на какой оси лежит точка, заданная координатами на плоскости xy заданы своими координатами точка A определить на какой оси лежит точка.Помогите https://www.cyberforum.ru/ turbo-pascal/ thread1577166.html
Turbo Pascal Сформировать массив https://www.cyberforum.ru/ turbo-pascal/ thread1577150.html
7. Сформировать массив: Y=A+A Y= A+A Y= A+A и т.д. (n - четное)
Решить систему уравнений с помощью рекурсии Turbo Pascal
Доброго времени суток! Помогите пожалуйста решить систему с помощью рекурсии. (Паскаль) {x}^{n} = \begin{cases} & \text{ if n=0;} x= 1 \\ & \text{ if n>0;} x= x-{x}^{n-1}\end{cases}
Решить систему уравнений с помощью рекурсии Turbo Pascal
Доброго времени суток! Помогите пожалуйста решить систему с помощью рекурсии. (Паскаль) Вложение удалено.
Turbo Pascal В массиве A(n) подсчитать количество минимальных элементов в массиве A(n) подсчитать количество минимальных элементов https://www.cyberforum.ru/ turbo-pascal/ thread1577032.html
Turbo Pascal Найти сумму заданных чисел и определить минимальное число https://www.cyberforum.ru/ turbo-pascal/ thread1577031.html
Даны три числа a,b,c. Найти сумму a,b,c, min из трех. (начертить блок- схему)
Turbo Pascal Вычислить значение функции функция задана формулой y=\frac{\sqrt{{x}^{3}}}{\sqrt{{x}^{2}-5x+6}} Составить программу для ее вычисления. (найти область допустимых значений, показать ее на координатной оси X, записать условие... https://www.cyberforum.ru/ turbo-pascal/ thread1577029.html
1 / 1 / 10
Регистрация: 23.12.2012
Сообщений: 19
10.11.2015, 23:43 0

Определить, сколько избирателей приняли участие в голосовании в каждом населенном пункте

10.11.2015, 23:43. Просмотров 1118. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program CPascal; uses crt;
 
const m=6; // Количество населенных пунктов
      n=5; // Количество кандидатов
      
var x:array [1..n,1..m] of integer; // Таблица результатов
    count:integer; // Кол-во проголосовавших
    i,j:byte; // Счетчики
    
Begin clrscr;
for i:=1 to n do
    Begin
    Count:=0; // Обнуляем
    for j:=1 to m do
        Begin
        X[i,j]:=Random(10*6+50); // Определим кол-во голосов за кандидата...
        Inc(Count,X[i,j]); // Считаем кол-во проголосовавших за кандидата...
        Write(X[i,j]:4);
        end;
    Writeln('   =>   Проголосовало: ',Count,' чел.');
    end;
Readln;
end.


Вернуться к обсуждению:
Определить, сколько избирателей приняли участие в голосовании в каждом населенном пункте
0
Миниатюры
Определить, сколько избирателей приняли участие в голосовании в каждом населенном пункте  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.11.2015, 23:43

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Подключение к локалке интернету в удалённом населённом пункте
Итак есть пгт где я живу и есть как минимум 2 вида интернета мобильный и ADSL и есть населённые...

Массив: В каком населенном пункте проголосовало больше людей?
Задания - Пусть задается двухмерную массив, размерностью mxn, где m это количество населенных...

Вывести информацию о населенном пункте по введенному почтовому индексу
Составить программу для решения следующих параметров задачи двумя способами, используя: 1) команду...

ЗУП 3.1. Как получить информацию о "населённом пункте" или "городе" организации?
Здравствуйте. 1С: ЗУП 3.1. Нужно получить информацию о "населённом пункте" или "городе" из...

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