Столбчатая диаграмма

@Шерзод · Регистрация: 07.04.2016

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

Задана последовательность 10-ти целых чисел (каждое число в диапазоне от 0 до 20). Вывести на экран 10 строк звездочек. Число звездочек в каждой строке равно очередному числу из последовательности. Строки должны быть пронумерованы цифрами от 0 до 9.

Вывод одной строки с номером и набором звездочек оформить в виде процедуры.

Ввод последовательности из файла, с клавиатуры или формирование на основе генерации случайных чисел - на свой вкус.
Помогите пожалуйста 6

@Puporev · 21.04.2016, 11:36

Pascal

const n=10;
procedure stroka(i,k:byte);
var j:byte;
begin
write(i,'   ');
for j:=1 to k do
write('*');
writeln;
end;
var a:array[0..n-1] of byte;
    i:byte;
begin
randomize;
for i:=0 to n-1 do
 begin
  a[i]:=random(21);
  stroka(i,a[i]);
 end;
end.

Добавлено через 2 минуты
Не понял только почему столбчатая?

@Шерзод 0 / 0 / 0 Регистрация: 07.04.2016 Сообщений: 3
		1
	Столбчатая диаграмма 21.04.2016, 09:22. Показов 3191. Ответов 1 Метки нет (Все метки) Задана последовательность 10-ти целых чисел (каждое число в диапазоне от 0 до 20). Вывести на экран 10 строк звездочек. Число звездочек в каждой строке равно очередному числу из последовательности. Строки должны быть пронумерованы цифрами от 0 до 9. Вывод одной строки с номером и набором звездочек оформить в виде процедуры. Ввод последовательности из файла, с клавиатуры или формирование на основе генерации случайных чисел - на свой вкус. Помогите пожалуйста 6 0

Опции темы

Столбчатая диаграмма

Решение