В общем, задача стоит такая - нарисовать таблицу, где будут выводить значения.
10-11 класс
|
Текст такой, но где-то есть ошибка.
Решено в Турбо Паскаль 7.0
program tablica;
uses crt;
const
UpperLeft = #218;
UpperRight = #191;
LowerLeft = #192;
LowerRight = #217;
Vertical = #179;
Horizontal = #196;
BranchLeft = #195;
BranchRight = #180;
var
i, x, lin: integer;
begin
clrscr;
{Шапка таблицы}
Write(UpperLeft);
for i := 1 to 10 do Write(Horizontal);
Writeln(UpperRight);
Writeln(Vertical, ' x y ', Vertical);
Write(BranchLeft);
{Тело таблицы}
for i := 1 to 10 do Write(Horizontal);
Writeln(BranchRight);
for x := 0 to 10 do
begin
lin := 5 * sqr(x) + 3 * x + 2;
Writeln(Vertical, x:2, lin:6,' ',Vertical)
end;
{Последняя строка таблицы}
Write(LowerLeft);
for i := 1 to 10 do Write(Horizontal);
Writeln(LowerRight);
repeat until keypressed;
end.
Вывод дан во вложении.
Комментарий удален
Суть задания в том, что числа не должны считываться и вводиться, они заданы сразу. Нужно, чтобы программа посчитала то, что есть в диапазоне от 0 до 10.
Другие вопросы из категории
Вычислить значение арифметического выражения
1)32 байт; 2) 280 байт; 3) 65 бит; 4) 70 бит
Читайте также
В небольшом предприятии его сотрудникам выдаётся месячная зарплата. Кассир, имея на руках бухгалтерскую ведомость, собирается ехать в банк за деньгами. При этом он имеет возможность не просто подать заявку на общую сумму, а указать в ней также, какими именно купюрами ему хотелось бы получить её. Делается это для того, чтобы потом было удобнее рассчитываться с каждым отдельным работником (например, если выплаты производится, как говорят, «в конвертах»). Предварительно все исходные данные нужно представить в виде таблицы, где против каждой фамилии сотрудника, как только вводится начисленная ему зарплата, она тут же выражается соответствующим набором денежных знаков. Одновременно подводится и общий итог по всему коллективу для формирования банковского заказа. При определении набора следовать принципу наименьшего числа купюрРади упрощения задачи расчёт вести только на бумажные деньги с точностью до 10 рублей
Для расчётов использовать встроенные функции ЦЕЛОЕ и ОСТАТ из категории «математических» .
задачи на такую тему: Составление, ввод, трансляция и
исполнение программ, реализующих
циклические алгоритмы и типовые
операции с одномерными массивами
Какой вид примет таблица после выполнения команды:КОПИРОВАТЬ B1 в B2:B3.
2)Дан фрагмент электронной таблицы в режиме отображения формул.(фото с цифрой 2)
Чему будут равны значения клеток B2 и B3 в режиме отображения после выполнения команды: КОПИРОВАТЬ B1 в B2:B3.
С клавиатуры вводится 3 числа, если сумма первого и последнего больше 10, то вывести эту сумму, если произведение больше 20, но меньше 30 (20>>30) то вывести это произведение, в противном случае вывести все эти 3 числа.