Pascal1 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 program Matrix90; type matrix = array [1..10,1..10] of integer; var a: matrix; M, i, j: Integer; begin Write ( 'M:'); Readln (M); for j: = 1 to M do begin for i: = 1 to M do begin a [i, j]: = random (10); write (a [i, j]: 4); end; end; for i: = 1 to M do begin for j: = 1 to M do begin Write ( '.', a [i, j]); end; writeln ( '.'); end; writeln ( ''); for j: = M downto 1 do for i: = 1 to j do a [M-j + i, M-i + 1]: = 0; for j: = 1 to M do begin for i: = 1 to M do begin Write ( '.', a [i, j]); end; Writeln ( '.'); end; end. 4. 6. 5. 4. 0. 6. 7. 3. 0. 0. 9. 0. 0. 0. 0. 8. 0. 0. 0. 0. 0. 0. 0. 0. 0. виходити ось так тепер треба щоб нулики були з іншого боку
Хлопців, допоможіть здійснити процедуру знаходження першого з мінімальних і останнього з позитивних елементів списку.
Помилка на вісімнадцятій рядку, забув як вирішується ця проблема, хтось підкаже?
У мене питання, як можна задіяти елемент управління progressBar для відображення часу програвання мультимедіа файлу, завантаженого за допомогою MediaPlayer. Я використовував дизайнер форм. Підключив MediaPlayer. Файл відкриваю за допомогою OpenFileDialog і програю. А ось як підключити progressBar, щоб він відображав довжину програного часу по ходу програвання, не знаю. Підкажіть хто-небудь. MSDN мені нічого не дає (або я не розумію). Там начебто потрібно задіяти якось MediaTimeline, а що до чого. Я тут навернув і сам запутался.Добавлено через 36 хвилин
Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 uses crt; var d: integer; begin clrscr; write ( 'Введіть номер дня тижня 0..6 d ='); readln (d); case d of 0: write ( 'понеділок'); 1: write ( 'вівторок'); 2: write ( 'серед «); 3: write ( 'четвер'); 4: write ( 'п'ятницю'); 5: write ( 'суботу'); 6: write ( 'Неділя'); else write ( 'Дня з таким номером немає!'); end; readln end.Запісать за допомогою функції.
Привіт, допоможіть з кодом. Потрібно знайти номер символу, на якому файли не збігаються. Ось завдання: Дано текстові файли f і g. Визначити, чи збігаються компоненти файлу f з компонентами файлу g. Якщо немає, то отримати номер першої компоненти, в якій файли f і g відрізняються між собою. У разі, коли один з файлів має і компонент (n> = 0) і повторює початок іншого, то відповіддю має бути число n + 1. Проблема в тому, що видає правильну відповідь, якщо цифри не збігаються в останньому елементі, а якщо в іншому, то показує невірну відповідь. Ось код:
Виникла така проблема У мене є List і там числа але в форматі string і мені їх потрібно в формат double І я намагаюся застосувати метод ConvertAll але нажаль не конвертується