Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Nyshk@
2 / 2 / 2
Регистрация: 06.06.2013
Сообщений: 83
#1

Вывести информацию в столбик - Pascal ABC

15.02.2016, 22:37. Просмотров 175. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста, в задаче вывод делается таким образом, что "Лучшие результаты " выводит в 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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
program zad2_4;
uses crt;
var i, j, p:integer;
k: string;
a: array [1..10] of integer; //Лучшие результаты
b: array [1..10, 1..3] of integer; //Результаты
c: array [1..10] of string; //Фамилии
begin
c[1] := 'Иванов';
c[2] := 'Петров';
c[3] := 'Сидоров';
c[4] := 'Дозор';
c[5] := 'Гольцова';
c[6] := 'Онищенко';
c[7] := 'Митяй';
c[8] := 'Ефимов';
c[9] := 'ЛАвров';
c[10] := 'Зубец';
writeln ('Заполнение массива случайными числами.') ;
randomize;
for i := 1 to 10 do
begin
write (c[i]:15, ' ');
for j := 1 to 3 do
begin
b[i, j] := random (10);
write (b[i, j], ' ') ;
end;
writeln(' ');
end;
writeln('Лучшие результаты:');
for i := 1 to 10 do
begin
write (c[i]:15, ' ') ;
a[i] := b[i, 1];
for j := 1 to 3 do
begin
if (a[i] < b[i, j]) then a[i] := b[i, j];
end;
writeln(a[i]);
end;
begin
for j:=1 to 9 do
for i:=1 to 9 do
if a[i] < a[i+1] then
begin
p:=a[i];
a[i]:=a[i+1];
a[i+1]:=p;
k:=c[i];
c[i]:=c[i+1];
c[i+1]:=k;
end;
end;
writeln('Таблица результатов:');
for i := 1 to 10 do
writeln(c[i],'=',a[i]);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.02.2016, 22:37
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывести информацию в столбик (Pascal ABC):

Вывести длины трёх слов. Вывести имя в столбик
Дали задание: Вывести длины трёх слов. Вывести имя в столбцах. Пыталась...

Вывести числа в столбик
Помогите с задачами очень прошу! До завтра надо!

Вывести в столбик цифры числа
Procedure Stolbik(a: Integer); Begin If A&gt;0 then Begin Stolbik(A...

Вывести через один в столбик
Помогите решить задачу, пожалуйста. Вод обычный вывод чисел. А как в этом же...

Нужно вывести буквы слова в столбик
Требуется вывести все символы введенного слова в столбик. Помогите, пожалуйста!

Вывести столбик, произведение элементов которого положительное число
Вывести столбик, произведение элементов которого положительное число

1
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,330
16.02.2016, 08:30 #2
Цитата Сообщение от Nyshk@ Посмотреть сообщение
как сделать так чтоб все уместилось?
Убрать uses crt;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.02.2016, 08:30
Привет! Вот еще темы с решениями:

Вывести на печать в столбик только те из чисел, которые оканчиваются на 55
Даны натуральные числа от 1 до 1000. Вывести на печать в столбик только те из...

Вывести в столбик все натуральные числа из диапазона от a до b в обратном порядке
Вывести в столбик все натуральные числа из диапазона от a до b в обратном...

Вывести три заданных целых числа в столбик не меняя порядок их следования
Вывести три заданных целых числа в столбик не меняя порядок их следования....

Вывести значения элементов числовой последовательности в столбик с точностью до 3 знаков после запятой
Вывести все значения элементов заданной числовой последовательности. Входные...


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

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

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