Вложенные рамки(подпрограммы) - Turbo Pascal

  1. Нужно написать программу "Вложенные рамки". Т.е есть рамка, а внутри нее еще 5 рамок. (сейчас мы проходим тему параметры,процедуры,подпрограммы)


textual

Код к задаче: «Вложенные рамки(подпрограммы) - Turbo Pascal»

uses crt;
procedure ramka(x,y,w,h:byte);
var i:byte;
begin
gotoXY(x,y);
for i:=1 to w do write('*');
for i:=1 to h-2 do
 begin
  gotoXY(x,y+i);
  write('*');
  gotoXY(x+w-1,y+i);
  write('*');
 end;
gotoXY(x,y+h-1);
for i:=1 to w do
write('*');
end;
var x,y,w,h,i:byte;
begin
clrscr;
x:=2;
y:=2;
w:=78;
h:=23;
ramka(x,y,w,h);
for i:=1 to 5 do
 begin
  x:=x+3;
  y:=y+2;
  w:=w-6;
  h:=h-4;
  ramka(x,y,w,h);
 end;
readln
end.

СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 3.818 из 5



Похожие ответы
  1. Ребзя,помогите перевернуть елку.Такую смог нарисовать,а вот наоборот не знаю как:

  1. Два раза переписывал программу и все равно не идет, обращаюсь за помощью к вам,форумчане. Заранее спасибо x=0.1(0.1)0.9, а погрешность вычисления бесконечных сумм ε = 10-4

  1. Родные мои, помогите!!! пожалуйста! нужна программа 1)определите количество счастливых билетов в серии с номерами от 000000 до 999999, билет считается счастливым если сумма трех первых цифр и трех последних цифр равны. 2) составить программу перевода произвольного числа с десятичной системе в любую К-тую систему счисления. заранее спасибо)

  1. ЗАДАЧА НА ТЕМУ ВЛОЖЕННЫЕ ЦИКЛЫ Дано натуральное число n(n<100).Определить число способов выплаты суммы n рублей с помощью монет достоинством 1, 2, 5 рублей и бумажных купюр достоинством 10 рублей.

  1. Дан массив А(К на К).Найти наибольшие элементы каждой строки и запомнить в отдельный массив.Определить номера строки и столбца наименьшего элемента матрицы. Исходные данные:К=5;внизу дана матрица А...элементы матрицы и К вводить с клавиатуры..Добавлено через 5 часов 41 минуту помогите.....очень надо..

  1. Товарищи, помогите... У меня завтра небольшая защита (о которой мне жизнерадостно сообщили только сегодня по телефону), а температура под 39.. Я совершенно ничего не соображаю, а задачки от этого ни куда не делись. Согласна даже отблагодарить через ЯндексКошелёк, ибо пыталась сама целый день решить, в конечном итоге лишь заработала головную боль и ужасное чувство "по-спать бы"... 5 задач =_= вроде и простые..и похожие решали... А не могу и всё. Башка просто не работает. Все задачи решить с помощью вложенных циклов. 1)Известны баллы, полученные в соревнованиях по пятиборью каждым из восьми спортсменов по каждому виду спорта: Определить: а) максимальную из оценок в таблице; б) сколько баллов набрал победитель соревнований. 2) Напечатать числа в виде следующей таблицы: А) 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 Б) 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3) Напечатать числа в виде следующей таблицы: А) Б) В) Г) 4) Баллы, полученные в соревнованиях по пятиборью каждым из восьми спортсменов по каждому виду спорта, представлены в виде таблицы: Составить программу, которая запрашивает каждое из значений в таблице и затем повторяет его (на той же строчке). Задачу решить в двух вариантах: а) ввод значений осуществляется по столбцам; б) ввод значений осуществляется: по строкам. 5)Известно количество учеников в каждом из четырех классов каждой параллели школы с первой по одиннадцатую: а) сколько учеников в самом малочисленном классе школы; 6) минимальное значение общего количества учеников, обучающихся в классах одной параллели; в) минимальное значение общего количества учеников, обучающихся в классах "А", "Б", "В" и "Г". г) Для каждой параллели определить численность самого малочисленного класса.

  1. Вложенные циклы. Какой результат (там их 2 вродь как) и блок-схему, пожалуйста))ФункцияY(x)СуммаSИнтервал(a, b)n3x0.1÷1.010

  1. Вычислить P=(x*t)! x=1(1)4, где t=1.5, если х - чётное t=2, если х - нечётное Можете указать здесь ошибки?

  1. помогите плиз решить задачку (на картинке, задание 11.2 2 вариант). Перевод: Нужно написать программу с помощью иерархических записей которая обеспечивает ввод информации и вывод в виде таблицы. Найти заработную плату военнообязаных мужчин Вот моя ахинея