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

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
mosol-chuvak
0 / 0 / 0
Регистрация: 20.01.2010
Сообщений: 5
#1

Найти 3 минимальных из 4 значений - Pascal

21.01.2010, 17:42. Просмотров 402. Ответов 2
Метки нет (Все метки)

Как зделать так чтобы программа искала не одно минимальное значение из 4,а чтоб выводила три 3?
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Program Mysoul;
uses crt;
const n=4;
var a:array[1..n,1..2] of string;
i,x,cod,k,min:integer;
begin
     clrscr;
     writeln;
     writeln('Постановка задачи:');
     writeln('Программа, которая формирует двумерный массив');
     writeln('Название и очки команд,осуществляеться весь список команд');
     writeln('Далее выводиться сообщение о трех командах набравших');
     writeln('Наименьшее количество очков,которые выбывают из группы');
     writeln;
     writeln('Для продолжения нажмите Enter...');
     Readln;
     writeln('Ввод данных...');
     For i:=1 to n do
     begin
     write('Введите название ',i,' команды: ');
     Readln(a[i,1]);
     Repeat
     write('Введите очки ',i,' команды: ');
     Readln(a[i,2]);
     val(a[i,2],x,cod);
     if (cod<>0) or (x<=0) then
     begin
     writeln('Ошибка в записи команды!');
     writeln('Повторите ввод...');
     end;
     until (cod=0) and (x>0);
     if x>0 then k:=k+1;
     end;
     clrscr;
     textbackground(blue);
     window(4,3,40,20);
     writeln;
     writeln('Для продолжения нажмите Enter');
     Readln;
     Clrscr;
     writeln('   Весь список команд');
     writeln('[---------------------------]');
     writeln('  Команды     |  очки ');
     writeln('[---------------------------]');
     For i:=1 to n do
     writeln(a[i,1]:10,'|':5,a[i,2]:7);
     writeln('[---------------------------]');
     writeln;
     writeln('Для продолжения нажмите Enter');
     Readln;
     if k=0 then writeln('В данном списке нет команд набравших 0 очков.')
     else
     begin
     readln;
     textbackground(red);
     window(35,3,70,20);
     clrscr;
     textcolor(Black);
     writeln('Команды выбывающие из группы');
     writeln('[---------------------------]');
     writeln('   Команда    |   очки');
     writeln('[---------------------------]');
        begin
     min:=x;
     for i:=1 to n do begin
     val(a[i,2],x,cod);
     if x<min then min:=x;
     end;
     begin
     for i:=1 to n do begin
     val(a[i,2],x,cod);
     if x=min then
     writeln(a[i,1]:10,'|':5,a[i,2]:7);
     end;
     for i:=1 to n do begin
     writeln;
        writeln('[---------------------------]');
     end;
     end;
     end;
     Readln;
     end;
     end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2010, 17:42
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Найти 3 минимальных из 4 значений (Pascal):

нужно найти множество минимальных значений - Pascal
Нужно вывести 3 из 4 минимальных значений.Пробывал через max,но как зделать так чтобы max не выводился?Если этого добиться то можно тогда...

Поиск максимальных и минимальных значений - Pascal
Добрый день! Прошу помочь с решением поставленной жене задачки!

Сформировать одномерный массив из разницы максимальных и минимальных значений - Pascal
Есть задача. Нужно ввести двухмерный массив.Сформировать одномерный массив из разницы максимальных и минимальных значений в каждой...

Цикл: Определить число следующее за последним из введенных минимальных значений - Pascal
Вот задача: С клавиатуры вводятся целые числа. Признак конца ввода - ноль. Определить число следующее за последним из введенных...

Найти количество минимальных элементов из данного набора - Pascal
Сегодня решал задачку, вроде несложная, подозвал училку, так она минут 30 голову тупила, нерешила... люди, помогите кто чем сможет... ...

Найти произведение и сумму максимальных и минимальных элементов матрицы - Pascal
Найти произведение и сумму максимальных и минимальных элементов

2
yanyk1n
4331 / 1462 / 152
Регистрация: 12.03.2009
Сообщений: 5,310
21.01.2010, 17:48 #2
mosol-chuvak, а не проще найти тогда вместо 3 минимумов один максимум?
0
mosol-chuvak
0 / 0 / 0
Регистрация: 20.01.2010
Сообщений: 5
21.01.2010, 17:58  [ТС] #3
Возможно,делал максимально(ну там просто вместо min на max поменять)но тогда как зделать так чтоб он выводил остальные значения кроме max?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.01.2010, 17:58
Привет! Вот еще темы с ответами:

Найти максимальный среди минимальных элементов столбцов массива - Pascal
В двумерном массиве Arr найти максимальный среди минимальных элементов столбцов массива. Вывести на экран значения этих элементов и их...

Найти максимальный среди минимальных элементов строк массива - Pascal
В двумерном массиве Arr найти максимальный среди минимальных элементов строк массива. Вывести на экран значения этих элементов и их индексы

Найти сумму значений элементов, которые меньше полусуммы наименьшего и наибольшего значений - Pascal
Помогите пожалуйста с задачей Дан целочисленный массив A(N), заданный датчиком случайных чисел в интервале (-105,109). Найти сумму...

Из минимальных и максимальных и произведения сформировать массивы и найти максимальное и минимальное матриц - Pascal
Сформировать 2 матрицы. Из минимальных и максимальных и произведения сформировать массивы. И найти максимальное и минимальное матриц.Решить...


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

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

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