сервис вопросов и ответовнаписать программу выводящею матрицу 11111 01110 00100 01110 11111
10-11 класс|
|
Маямото
21 марта 2014 г., 12:52:52 (10 лет назад)
Vilerta
21 марта 2014 г., 15:51:27 (10 лет назад)
var
a:array [1..5,1..5] of integer;
i,j:integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if ((j>=i) and (i+j<=6)) or ((j<=i) and (i+j>=6)) then a[i,j]:=1 else a[i,j]:=0;
write (a[i,j]:3);
end;
writeln;
end;
readln;
end.
ОРПГЛПРП
21 марта 2014 г., 17:02:21 (10 лет назад)
Можно обойтись без массива и этим сэкономить память компьютера.
Можно также вывести такую матрицу (в виде песочных часов) любого размера. Для этого нужно только изменить значение n в строке
const n=5
Program Pentelemon;
uses crt;
const n=5;
var
i,j:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
for i:=1 to n do
begin
for j:=1 to n do
begin
if ((j>=i) and (i+j<=n+1)) or ((j<=i) and (i+j>=n+1)) then
write ('1 ')
else
write ('0 ');
end;
writeln();
end;
end.
Ответить
Другие вопросы из категории
1) Текстовый документ,состоящий из 3072 символов,хранился в восьмибитной кодировке КОИ-8. Этот документ был преобразован в шеснадцатибитную кодировку
Unicode. Укажите,какое дополнительное количество Кбайт потребуется для хранения документа?
2) После преобразования растрового 256 цветного графического файла в чёрно-белый двуцветный формат его размер уменьшился на 70 байт. каков был размер исходного файла в байтах?
3) Объём свободной памяти на диске --- 5,25 Мб, разрядность звуковой платы --- 16. Какова длительность звучания цифрового аудиофайла ,записанного с частотой дискретизации 22,05 кГц?
Читайте также
Помогите пожалуйста,1. Дан символ. Написать программу, выводящую его код.
2. Дан код символа. Написать программу, выводящую сам символ.
3. Написать программу для вывода на экран всех маленьких латинских букв.
написать программу на Assembler
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
1.тема циклы со сщетчиком.Написать программу в паскале для ввода с клавиатуры 15 чисел и вывода номеров отрицательных элементов.
2.написать программу в паскале
f(x)=2(sin*sin)x+1
дан массив из семи элементов написать программу подсчитывающую
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
1) Написать программу для вычисления суммы цифр пятизначного числа , введенного с клавиатура
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
Вы находитесь на странице вопроса "написать программу выводящею матрицу 11111 01110 00100 01110 11111", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.