Составить процедуру выводящую на бумагу таблицу из двух столбцов

@ale-eex · Регистрация: 23.09.2014

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

Составить процедуру выводящую на бумагу таблицу из двух столбцов, один из которых называется Номер п/п, а название второго задается некоторой строковой переменной. В первом столбце должны напечататься порядковые номера, а во втором – значения элементов числового массива. Использовать эту процедуру в программе, организующей ввод данных о фактическом товарообороте и проценте плана по 25 магазинам входящим в РТП, и распечатывающий эту информацию на бумаге в виде таблицы.

@Антон1985 · 26.09.2014, 14:12

Пример,

Pascal

const
  max=30;
type
  Tmas=array[1..max]of real;
 
procedure Print(var m:Tmas);
var i:integer;
begin
  writeln('-------------------');
  writeln('| п/п  | значение |');
  writeln('|-----------------|');
  for i:=1 to max do
    writeln('|',i:6,'|',m[i]:10:2,'|');
  writeln('-------------------');
end;
 
var
  mas:Tmas;
  i:integer;
begin
  cls;
  for i:=1 to max do
    mas[i]:=random*1000;
  Print(mas);
end.

@ale-eex 1 / 1 / 0 Регистрация: 23.09.2014 Сообщений: 81
		1
	Составить процедуру выводящую на бумагу таблицу из двух столбцов 26.09.2014, 12:03. Показов 1116. Ответов 1 Метки нет (Все метки) Составить процедуру выводящую на бумагу таблицу из двух столбцов, один из которых называется Номер п/п, а название второго задается некоторой строковой переменной. В первом столбце должны напечататься порядковые номера, а во втором – значения элементов числового массива. Использовать эту процедуру в программе, организующей ввод данных о фактическом товарообороте и проценте плана по 25 магазинам входящим в РТП, и распечатывающий эту информацию на бумаге в виде таблицы. 0

	26.09.2014, 14:12

Составить процедуру выводящую на бумагу таблицу из двух столбцов

Решение