Нарисовать квадрат со сторонами 20*20, так чтобы границы верхние и нижние(-------) были красного цвета, боковые (|||||||||||||)
5-9 класс
|
были красного цвета, а в середине квадрата (////////) были линии жёлтого цвета. Задача в Паскале.Заранее спасибо.Очень срочно.
Program Test;
Uses CRT;
Var i,j:integer;
a:array[1..20,1..20] of char;
Begin
ClrScr;
for i:=1 to 20 do
begin
for j:=1 to 20 do
begin
if(i=1)or(i=20)then
begin
TextColor(RED);
if(j>1)and(j<20)then write('-');
end;
if(j=1)or(j=20)then begin
TextColor(RED);
write('|');
end;
if(I<>1)and(i<>20)and(j<>1)and(j<>20)then begin
TextColor(yellow);
write('/');
end;
end;
writeln;
end;
End.
Другие вопросы из категории
газировки и 3 литра малинового сиропа,Винтик и Шпунтик вместе взяли 3 литра кваса и 2 литра газировки,Торопыжка-3 литра газировки,доктро Пилюлькин 1 литр кваса и литр касторки. 1 литр квасастоит 1 монету,1 литр газировки 3 монеты,1 литр касторки-2 монеты,1 литр сиропа-6 монет сколько всего напитков взял с собой человечек и сколько ему это стоило;какое кол-во напитка каждого вида взяли все человечки вместе и сколько им это стоило;сколько всего было взято жидкости и сколько потрачено денег всеми человечками вместе? ___________________ [email protected]
Подсказска:
i это текущие значения
N до M значит от начала до конца , начальное число N, концовое M
mod использоватсья надо, поомгите пожалуйста, отблагодарю
Читайте также
№20. Даны величины углов треугольника. Определить является ли это треугольник:
а) остроугольным
б) тупоугольным
в) прямоугольным
г) равносторонним
д) равнобедренным.
№21. Определить, какая из двух точек - M1(x1,y1) или M2(x2,y2) - расположена ближе к началу координат. Вывести на экран дисплея координаты этой точки.
№22. Даны действительные числа a, b, c, x, y. Выяснить, пройдет ли кирпич с ребрами a,b,c в прямоугольное отверстие со сторонами x и y. Просовывать кирпич в отверстие разрешается только так, чтобы каждое из его ребер было параллельно или перпендикулярно каждой из сторон отверстия.
№23. Написать программу, которая печатает True или False в зависимости от того, выполняются или нет заданные условия:
а) квадрат заданного трехзначного числа равен кубу суммы цифр этого числа;
б) сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр;
в) среди цифр заданного трехзначного числа есть одинаковые;
г) среди первых трех цифр из дробной части заданного положительного вещественного числа есть цифра 0.
Входные данные:
Во входном потоке задано два вещественных числа - радиус окружности R и сторона квадрата a. Значение всех исходных величин не превышает 30000.
Выходные данные:
В выходной поток вывести 'YES' или 'NO'.
Пример входного файла
2 1
Пример выходного файла
YES
длина окружности при х=2.56789, и х=345.678 с точность до 3 знаков после запятой