Модули в Паскале - Pascal - Ответ 15117372

@polly19 · Регистрация: 06.04.2020

Author24 — интернет-сервис помощи студентам

Задание:Известны результаты опроса 200 респондентов о популярности 10-ти политиков.
Каждый респондент называл 4-х наиболее популярных, с его точки зрения, политиков.
Напечатать рейтинг популярности этих политиков — фамилии и число собранных
голосов.
Мои модули:
Модуль описания:

Pascal

unit opisanie2;
Interface
 const
 polit=10;resp=200;kol_g=4;
 type
 mas_polit=array[1..polit] of string;
 mas_resp=array[1..resp,1..polit]of string;
 mas_pop=array[1..polit] of integer;
var
massiv_polit:mas_polit;
massiv_resp:mas_resp;
massiv_pop:mas_pop;
implementation
end.

Модуль обработки:

Pascal

unit obrabotka2;
interface
uses opisanie2;
procedure vvod1(var ma :mas_polit; m1 :integer);
procedure vivod1(var ma :mas_polit; m1 :integer);
procedure vvod2(var ma :mas_resp;var ma1:mas_polit; m1,n1 :integer);
procedure vivod2(var ma :mas_resp; m1,n1 :integer);
procedure zap_mas_pop(var ma :mas_pop; m1 :integer);
procedure kolichectvo_gol(var ma :mas_pop;var ma2:mas_resp; m1,n1 :integer);
procedure vivod3(var ma :mas_pop; m1:integer);
implementation
procedure vvod1(var ma :mas_polit; m1 :integer);
var i : integer;
begin
 for i:=1 to m1 do
      readln(ma[i]);
end;
procedure vivod1(var ma :mas_polit; m1:integer);
var i : integer;
begin
  for i:=1 to m1 do begin
         write(ma[i],' ');
                     end;
  writeln;
end;
procedure vvod2(var ma :mas_resp;var ma1:mas_polit; m1,n1 :integer);
label z;
var i,j,k : integer;
begin
 for i:=1 to n1 do
     for j:=1 to kol_g do
     begin
     repeat
     writeln('Введите голоса');
     readln(ma[i,j]);
     for k:=1 to m1 do
     until (ma[i,j]=ma1[k]);
     end;
end;
procedure vivod2(var ma :mas_resp; m1,n1 :integer);
var i,j : integer;
begin
  for i:=1 to n1 do begin
     for j:=1 to kol_g do
         write(ma[i,j],' ');
         writeln;
                     end;
end;
procedure zap_mas_pop(var ma :mas_pop; m1 :integer);
var i : integer;
begin
 for i:=1 to m1 do
        ma[i]:=0;
end;
procedure kolichectvo_gol(var ma :mas_pop;var ma2:mas_resp; m1,n1 :integer);
var i,j,k : integer; flag:boolean;
begin
 for i:=1 to n1 do
     for j:=1 to kol_g do begin
                k:=1;
                flag:=false;
                while (k<=m1) and (flag=false) do
                                  if ma2[i,j]<>k then k:=k+1
                                                     else flag:=true;
                if flag then ma[k]:=ma[k]+1;
                end;
 
end;
procedure vivod3(var ma :mas_pop; m1:integer);
var i : integer;
begin
  for i:=1 to m1 do begin
         write(ma[i],' ');
                     end;
end;
end.

Программа:

Pascal

uses
 opisanie2, obrabotka2;
var
 massiv_polit:mas_polit;
 massiv_resp:mas_resp;
 m2,n2,sum : integer;
 massiv_pop:mas_pop;
begin
 writeln('Введите количество политиков');
 readln(m2);
 writeln('Введите фамилии политиков:');
 vvod1(massiv_polit, m2);
 writeln('Политики:');
 vivod1(massiv_polit, m2);
 writeln('Введите количество респондентов');
 readln(n2);
 vvod2(massiv_resp,massiv_polit, m2,n2);
 writeln('Голоса респодентов:');
 vivod2(massiv_resp, m2,n2);
 zap_mas_pop(massiv_pop,m2);
 writeln;
 kolichectvo_gol(massiv_pop,massiv_resp, m2,n2);
 writeln('Количество голосов респондентов:');
 vivod3(massiv_pop, m2);
end.

Помогите пожалуйста осуществить в процедуре vvod2 ввод голосов респондентов до того момента, пока не совпадет с каким-то политиком из 1 таблицы, а так же сделать так, чтобы вводимые данные не повторялись у одного респодента. БЕЗ циклов goto,break

Вернуться к обсуждению:
Модули в Паскале Pascal

Следующий ответ

Другие темы раздела
Pascal Функции в языке Паскаль https://www.cyberforum.ru/ pascal/ thread2756327.html У меня 2 вопроса: 1. Существует функция Pos, которая выводит позицию заданного символа. Например: а:='Hello world'; pos(' ',a); Выведет : 6,т.к пробел на 6 позиции в строке а. И так вопрос: Есть ли функция, которая осуществляет обратную функцию? Например: а:='Hello world';	Pascal Вычислить произведение Вычислить произведение Y=\prod_{n=1}^{7}\left(\frac{n+1}{n!}+n \right) Значение n изменяется с шагом Δn = 1. Помогите пожалуйста, вообще с такой штукой не знаю что делать:wall: где-то видела подобные примеры как прописывать, но сейчас найти не могу.. прям в замешательстве.. досталась же задачка соседние причем знаю как решать, а мне попалась =-O
Pascal Требуется блок-схема, не понимаю как делать https://www.cyberforum.ru/ pascal/ thread2756045.html program var_16; var mas,a:array of integer; n,b,c,d,i,min,sum,mini:integer; begin write('Введите длину массива = '); readln(n); writeLn('Вводим элементы массива A:'); for i:=1 to n do begin write('A= ');	Pascal Функция, которая определяет верно ли выбрана ячейка Есть квадратное поле с ячейками, например 4х4( размер задан константой FIELDSIZE = 4. Каждый игрок по очереди должен выбирать ячейку, сначала вводить номер колонки, потом номер строчки. Нужно создать функцию, которая будешь выводить на экран «Такой ячейки нет» в случае если игрок введёт число больше 4( больше чем константа) или например буквы вместо цифр. Кто может помочь??? https://www.cyberforum.ru/ pascal/ thread2756020.html
Pascal Дана строка. Подсчитать количество вхождений слога "ма" Дана строка. Подсчитать количество вхождений слога "ма".	Pascal Сформировать используя генератора случайных чисел массив, состоящий из 5 элементов строкового типа Сформировать с помощью генератора случайных чисел массив, состоящий из 5 элементов строкового типа, каждый из которых содержит 4 слова произвольной длины, но не более 10 символов, разделенных пробелами. Записать этот массив в файл. Построить новый массив, элементы которого образованы совокупностью двух слов наибольшей длины соответствующих строк исходного массива. Дописать через строку в... https://www.cyberforum.ru/ pascal/ thread2755534.html
Pascal Выполнить сглаживание массива. Дан целочисленный массив из 20 элементов, в котором записаны значения последовательных результатов измерений. Элементы массива могут принимать целые значения от 0 до 10 000 включительно. Напишите программу, которая выполняет сглаживание массива: для каждой четвёрки элементов определяет целочисленное среднее арифметическое, и заменяет эти 4 элемента на их среднее. Например, для исходного массива... https://www.cyberforum.ru/ pascal/ thread2755516.html	Pascal Вычислить значение выражения Прошу помочь с вычислением значения функции, заданной на интервалах. Заранее спасибо) z(x)=\begin{cases}\ln \begin{vmatrix}\frac{15-x^{4-x}}{0.02}\end{vmatrix}+\begin{vmatrix}\arcsin\left(\frac{\pi }{x+e} \right) \end{vmatrix} & \text{, npu } x\leq 1 \\\\ \frac{\sqrt{25^{\frac{1}{\log _5x}}+49^{\frac{1}{\log _8x}}}}{e^{\sin (5x)}} & \text{, npu } 1\,<\,x\leq 2 \\\\ \frac{14-e^{-x^2}}{\cos...
Pascal Вычислить сумму ряда https://www.cyberforum.ru/ pascal/ thread2755415.html Прошу помочь с вычислением суммы ряда. Заранее спасибо) \sum_{i=1}^{4}\frac{i!}{(2+i)^3}	Pascal Определить наиболее частый символ в строке https://www.cyberforum.ru/ pascal/ thread2755325.html Добрый день! Возникла трудность с решением задачи, надеюсь на вашу помощь. Определить и вывести букву, которая чаще всего встречается в строке. При повторении максимальное число раз нескольких букв, считать, что наиболее часто встречающейся буквы нет. Например, a и b встречаются по три раза, значит выводим, что самой частой буквы нет.
Задача "Ореховый клад". Pascal 12. Ореховый клад. Лесная тропинка разделена на N клеток. Бельчонок закопал в клетке номер M клад с орехами. Сам бельчонок находится в клетке номер 1. Для каждой клетки известно, расстояние (в клетках) прыжка вперед или назад. Необходимо найти последовательность прыжков, приводящих к кладу (или указать, что такой последовательности нет). помогите в pascale решить эту задачу.	Pascal Создать типизированный файл и записать в него MxN значений https://www.cyberforum.ru/ pascal/ thread2755247.html Написать программу, которая создает типизированный файл и записывает в него MxN значений. Имя для файла создается по маске <login2>.dan. m=11,n=9, type byte uses crt; const M=11; N=9; filename='su202ldv.dan'; var f:file of byte;

	20.12.2020, 14:07