Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Даны два слова (длины M и N), состоящие из букв А, Г, Ц, Т. Найти подпоследовательность наибольшей длины https://www.cyberforum.ru/ pascal/ thread31595.html
Молекулы ДНК, содержащие генетическую информацию – это длинные слова из четырех букв (А, Г, Ц, Т). В процессе эволюции, в результате мутаций, последовательности меняются, одна буква может замениться на другую, выпасть, а может добавиться новая. Насколько похожи два фрагмента, каким наименьшим числом превращений можно один из них получить из другого? Формулировка задачи. Даны два слова (длины M и...
задача строки Pascal
Дана строка, состоящая из букв латинского алфавита. Удалить из нее подстроку минимальной длины так, чтобы в оставшейся строке не было двух одинаковых соседних букв.(язык Pascal)
Pascal Программирование мышки https://www.cyberforum.ru/ pascal/ thread31591.html
Помогите сделать управление мышкой. Мне нужно написать графический редактор, но не получается сделать управление мышкой. Получилось только инициализировать ее. Нужно сделать чтение нажатой кнопки и координаты курсора, читать координаты курсора при нажатой и когда отпущена кнопка мыши. Заранее благодарен. Uses Graph, Crt, DOS; Var r: registers; driver, mode: integer; Procedure...
Pascal Графика Я написал программу,просто чтоб посмотреть работает или нет: uses graph,crt; var z,y,dr,mode:integer; begin initgraph(dr,mode,''); readln; setbkcolor(white); setcolor(red); moveto(100,100); https://www.cyberforum.ru/ pascal/ thread31586.html
СОРТИРОВКА Pascal
Помогите отсортировать двухмерный массив в порядке возрастания чисел. Только по простому , без всяких комманд.
Pascal Описать логическую функцию before (t1,t2) для проверки, предшествует ли время t1 времени t2 https://www.cyberforum.ru/ pascal/ thread31577.html
Вообщем задание было такое: Описать логическую функцию before (t1,t2) для проверки, предшествует ли время t1 времени t2 (в рамках суток Вот текст самой программы но она не правильно работает. Если ввожу для проверки допустим 12 часов 23 минут и 23 секунды во время t1 а во время t2 12:12:24 он выдает true но хотя второе время меньше первого... что я неправильно делаю. И если возможно как нибудь...
Pascal Задача в паскале Метод хорд.Ньютона и деления отрезка пополам. https://www.cyberforum.ru/ pascal/ thread31569.html
Найти корни уравнения f(x)=0,с точностью 0,001 2ln(x)-x/2+1 Help! Нужна програма в паскале.
CRT. Текстовый видеорежим Pascal
Помогите, пожалуйста, составить программу типа бильярда. При запуске в программе в текстовом окне размером 60*20 их точки с задаваемыми юзером координатами начинает двигаться по диагонали символ О. При достижении границы текстового окна символ должен изменить свою траекторию по принципу "угол падения равен углу отражения". Каждое касание символом границы окна сопровождается звуковым сигналом....
Pascal Дано натуральное число n. Вычислить https://www.cyberforum.ru/ pascal/ thread31557.html
Дано натуральное число n. Вычислить (cos1/sin1)*((cos1+cos2)/(sin1+sin2)*...*((cos1+...+cosn)/(sin1+...+sinn)
Pascal Вычислить разность между максимальным и минимальным по модулю элементами массива Дан массив Х(178). Вычислить разность между максимальным и минимальным по модулю элементами этого массива. https://www.cyberforum.ru/ pascal/ thread31552.html
Задача: Дан массив А1...А20. Замените в нём... Pascal
Помогите пожалуйста с заданием, составить блок схему и структуру программы. Дан массив А1...А20. Замените в нём элементы, стоящие между Amax и Amin, на 0. Спасибо.
Pascal По введённому дню недели определить,рабочий или выходной день. По введённому дню недели определить,рабочий или выходной день. https://www.cyberforum.ru/ pascal/ thread31532.html
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
26.04.2009, 19:07 0

Сгенерировать и вывести на экран массив 10x10 из нулей и единиц - Pascal - Ответ 146976

26.04.2009, 19:07. Показов 2165. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено nona как решение

Решение

Вот полный комплект. На матрице 10х10 из нолей и единиц очень плохо видно правильно ли работает программа, поэтому для себя измените размер матрицы и значения элементов как помечено в комментариях в соответствующих строках.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
uses crt;
const n=10;{6}
var a,b:array[1..n,1..n] of integer;
    i,j:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
       a[i,j]:=round(random-0.4);{a[i,j]:=10*i+j}
       write(a[i,j]:3);
      end;
    writeln;
  end;
readln;
writeln('Разворот на 90 по часовой стрелке:');
for i:=1 to n do
for j:=1 to n do
b[i,j]:=a[n-j+1,i];
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        write(b[i,j]:3);
      end;
  writeln;
  end;
readln;
writeln('Разворот на 90 против часовой стрелки:');
for i:=1 to n do
for j:=1 to n do
b[i,j]:=a[j,n-i+1];
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        write(b[i,j]:3);
      end;
  writeln;
  end;
readln;
writeln('Зеркальное отражение по горизонтали:');
for i:=n downto 1 do
  begin
    for j:=1 to n do
      begin
        b[i,j]:=a[i,j];
        write(b[i,j]:3);
     end;
    writeln;
  end;
readln;
writeln('Зеркальное отражение по вертикали:');
for i:=1 to n do
  begin
    for j:=n downto 1 do
      begin
        b[i,j]:=a[i,j];
        write(b[i,j]:3);
      end;
    writeln;
  end;
readln;
writeln('Зеркальное отражение по главной диагонали:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        b[i,j]:=a[j,i];
        write(b[i,j]:3);
      end;
    writeln;
  end;
writeln('Зеркальное отражение по побочной диагонали:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        b[i,j]:=a[n-j+1,n-i+1];
        write(b[i,j]:3);
      end;
    writeln;
  end;
readln
end.


Вернуться к обсуждению:
Сгенерировать и вывести на экран массив 10x10 из нулей и единиц Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.04.2009, 19:07
Готовые ответы и решения:

Данная строка, состоящая из групп нулей и единиц. Найти и вывести на экран группы, состоящие только из нулей
Данная строка, состоящая из групп нулей и единиц. Каждая группа отделяется друг от друга одним или...

Найти и вывести на экран самую короткую группу нулей и единиц
Здравствуйте, помогите решить задачу: дана строка, состоящая из групп нулей и единиц. Найти и...

Задано последовательность групп нулей и единиц. Вывести на экран наименьшую группу
Задано последовательность групп нулей и единиц. Вывести на экран наименьшую группу.

В строке, состоящей из групп нулей и единиц, найти и вывести на экран короткую группу
В строке, состоящей из групп нулей и единиц, найти и вывести на экран короткую группу. Прога...

1
26.04.2009, 19:07
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.04.2009, 19:07
Помогаю со студенческими работами здесь

В строке, состоящей из групп нулей и единиц, найти и вывести на экран самую короткую группу
В строке, состоящей из групп нулей и единиц, найти и вывести на экран самую короткую группу....

В строке, состоящей из групп нулей и единиц, найти и вывести на экран самую короткую группу
В строке, состоящей из групп нулей и единиц, найти и вывести на экран самую короткую группу.

Подсчитать и вывести на экран количество N и номера таких столбцов, в которых нулей больше чем единиц
Матрицу М(12, 10) заполнить нулями и единицами случайным образом. Подсчитать и вывести на экран...

В строке, состоящей из групп нулей и единиц, найти и вывести на экран группы с четным количеством символов
В строке, состоящей из групп нулей и единиц, найти и вывести на экран группы с четным количеством...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru