Паскаль с нуля [ч14]. Многомерные (двумерные) массивы
HTML-код
- Опубликовано: 13 сен 2024
- В очередном видеоуроке по программированию на языке Паскаль, мы разберем такую тему, как "Многомерные массивы". Разбор темы будем проводить на примере двумерного массива, и рассмотрим такие моменты, как создание массива, наполнение его данными и вывод.
![Паскаль с нуля [ч15]. Многомерные массивы 2. Заполнение и вывод. Вложенные циклы (еще проще)](http://i.ytimg.com/vi/pB1Kr8WZbq8/mqdefault.jpg)
![Паскаль с нуля [ч15]. Многомерные массивы 2. Заполнение и вывод. Вложенные циклы (еще проще)](/img/tr.png)
![Паскаль с нуля [ч10]. Вывод массива, задача с четными числами](http://i.ytimg.com/vi/a4_jOnRmAmo/mqdefault.jpg)
![Паскаль с нуля [ч9]. Оператор выбора case-of и решение задачи про дни недели](/img/1.gif)
Единственный нормальный канал с хорошим преподношением материала. И смотреть и слушать приятно.
Есть ряд других, не менее интересных.
Можете кого то посоветовать?
Alex Giver, Хауди Хо
@@mschannel1330 только не хауди хо
Почему Вы перестали снимать видео? Из всего предложенного на ютубе, Ваши объяснения просто шикарны
В вузе преподают паскаль, но совсем ничего не понятно
Учусь благодаря Вам
Возвращайтесь🙏🏻🙏🏻🙏🏻🙏🏻
Очень повезло тем, у кого вы ведёте информатику, класс :) Уже и паскаль и Java прокачал довольно сильно, но начинал именно с этого канала, в общем спасибо за "толчок" в изучении, буду ждать материалов по HTML/CSS. Успехов :)
Самый лучший МЭН которого я ЗНАЮ))) ЭД КРАСАВА
Я так рад, что ты возобновил свои видео. Спасибо тебе за твои познавательные видосы!
+Павел Ситников (Fobos) А я то как рад)))
+Эдуард Мецкер сколько приблизительно видео будет по паскалю?
когда новые видео ?
Как же жаль что Вы забросили канал, уж очень у Вас хорошо получается преподавать и люди к Вам тянуться. Эх...
Буду молиться, чтобы таких перерывов больше не было, Эд вы самый лучший как по мне преподаватель в таком формате, всё доходчиво и понятно, не забрасывайте нас по возможности на такое длительное время и удачи вам))))
Парень,откуда ты взялся.Просто спаситель
Красавчик, преподавательская деятельность это твое. Ты очень круто подаёшь материал, доходчиво и понятно
Спасибо , от души . Ваш канал супер !! Вот бы новые видео .
Пожалуйста, продолжайте снимать, просвещение это важно
Красава,всё кажется элементарным и понятным!Продолжай в том же духе )
огромное спасибо, за этот урок я окончательно понял как работают массивы, осталось понять до конца как действует for, и for в for, ОГРОМНОЕ СПАСИБО ВАМ)!)
От всей души благодарю за все ваши уроки!) Вы очень хорошо и доступно для любого человека объясняете! Желаю очень много подписчиков))
Классно все объяснили.Не прекращайте снимать обучающие видео.У вас блестяще получается !
Наконец-то нормально объяснили! А то в школе так непонятно рассказывают, я думал, никогда не разберусь.
Круто) Ты прям обучаешь так как я себе всегда представлял! Казалось бы просто программирование, но эйфория от обучения просто зашкаливает! Так держать!)
эйфория ваще то
Спасибо! Буду теперь внимательней!)
Здравствуйте, очень полезные уроки. Большое вам спасибо. Продолжайте в том же духе=) Начинал с ваших уроках, сейчас уже пытаюсь написать свою первую игру. В школе на олимпиаде набрал 420 баллов из 500, благодаря вам. Вообщем спасибо большое =) И информатику подтянул.
Спасибо большое, лучшие курсы из всех, благодаря вам все поняла
ЭД, ПРОДОЛЖАЙ, ДРУГ!
Спасибо Вам огромное за ваши видео!! Всё разжёвано, в отличии от школьной программы!! Ещё раз спасибо
+ким крутой а если не секрет, то в какой школе вы преподаёте?
Жду новых видео и разборов задач. Очень жаль что вы забросили канал,ведь как вы сами говорили,таких каналов и такого контента очень мало.Надеюсь вы будете помогать другим в освоении,как учитель.
Очень хорошо объясняешь, жду продолжения обучения. Спасибо!
У тебя дар к преподаванию! Правильно сделал, что пошел работать учителем!
Отличное видео. Выпускайте ролики по чаще, а то на ютубе мало таких годных видосов(
ураааа новый видос аж слезу пустил, продолжайте, Спасибо вам большое, просто Красавчик, ухууууу
НАКОНЕЦ дождался, ждал ждал и вот те)))
Ура, новый видосик
Большое спасибо за ваши видео уроки.
Отличное видео! Тем кто сдаёт информатику, будет полезно.
Сними пожалуйста курсы по другим языкам
было бы очень полезно
желаю удачи
Спасибо, очень качественные видеоуроки!
Продолжайте снова снимать!!!хорошие видео
Етить, только посмотрел все твои видосики и тут бац, новое залил, красаучег, заливай почаще =)
Больше видео, больше базовых знаний.
До сих пор не понятно как свою программу вывести на экран, например для просмотра в среде виндовс, через командную строку.
Ура! Вы сняли выпуск. Спасибо)
Ура!!!!!!!!!!!!!!!!Ты вернулся!!! Яза это время стал самым успевающим по ИТ в классе!!! Но есть одна фишка,нужна помощь. Мб в группе с кем-нибудь свяжусь)
Предлагаю решить олимпиадную задачу по информатике:
Есть n-значное число, где 2
Я благодаря Вам хорошо начал программировать на Pascal Turbo)) Жду уроков по CSS.)))))))) Спасибо большое за Ваш труд.
У меня такая же мышка, как на видео!!!
А за урок огромное СПАСИБО!!!
Спасибо за обучение
Спасибо за уроки
вот результат урока
program mnogmas;
var mmas:array [1..2,1..4] of integer;
begin
mmas[1,1]:= 2;
mmas[1,2]:= 4;
mmas[1,3]:= 6;
mmas[1,4]:= 8;
mmas[2,1]:= 1;
mmas[2,2]:= 3;
mmas[2,3]:= 5;
mmas[2,4]:= 7;
for i:integer:=1 to 4 do
write(mmas[1,i]:3);
for i:integer:=1 to 4 do
write(mmas[2,i]:3);
end.
Продолжай!!))
Продолжай пожалуйста
спасиб тебе
Наконец то!!!)))
Эдуард, здравствуйте вы еще не создали группу в ВК? Если создали скиньте ссылочку пожалуйста. А видео у вас просто шикарные, надеюсь вы не бросите это дело. СПАСИБО!!!
Спасибо за видео!
Спасибо огромное!
Здраствуйте, я сдаю Егэ по информатике, если вам не трудно могли бы вы порешать демо версии, особенно 2 часть, пожалуйста очень надо.☺
Привет, Эдуард).
я делаю свою мини-программу.
и я очень хочу что-бы вы мне помогли.
я введу диалог и потом задаю пример и тип integer нельзя привести к типу boolean.
вот этот код:
var
a,b:integer;
var
n:string;
begin
a :=4;
b :=3;
write('Как тебя зовут?');
readln(n);
writeln('Привет,' ,n, ' ,приятно познакомиться)');
writeln('Давай ' ,n, ' ,я задам тебе простейший пример?');
readln();
writeln('Нууу например 4+3? Ну что....');
readln();
if a+b then
begin
writeln('Молодец!');
end
else
begin
writeln('Ты дурак');
end;
end.
Nikita Lutenko
Твой код должен выгядить вот так:
var
a,b:integer;
n:string;
begin
a :=4;
b :=3;
write('Как тебя зовут?');
readln(n);
writeln('Привет,' ,n, ' ,приятно познакомиться)');
writeln('Давай ' ,n, ' ,я задам тебе простейший пример?');
readln();
writeln('Нууу например 4+3? Ну что....');
readln();
if (a+b = 7) then
begin
writeln('Молодец!');
end
else
writeln('Ты дурак');
end.
Твоя ошибка в строке "if (a+b) then", а надо "if (a+b = 7)then"
Дима Дряблов спасибо огроменное
Nikita Lutenko Там неправильно, он будет в любом случае выводить {Молодец}. Надо вот такой код
var
a,b,i:integer;
n:string;
begin
a :=4;
b :=3;
write('Как тебя зовут?');
readln(n);
writeln('Привет,' ,n, ' ,приятно познакомиться)');
writeln('Давай ' ,n, ' ,я задам тебе простейший пример?');
readln();
writeln('Нууу например 4+3? Ну что....');
readln(i);
if (a+b=i) then
begin
writeln('Молодец!');
end
else
writeln('Ты дурак');
end.
Там ошибка в строке readln (), а надо readln (i)
спасибо, снов таки огроменное
ураааааа!!!
Прекрасно! Будут ли уроки по обучению в создании наипростейших игр на Паскале? Например крестики-нолики. Так как очень уж мало видео на ютубе где действительно объясняют. Хотелось бы узнать сами азы и принцип их создания. Спасибо)
Хотел спросить: будут ли продолжаться ваши уроки? И, если да, то хотелось бы сильнее углубиться в паскаль, к примеру ооп и т.д. Буду очень рад, если уроки продолжаться.
Не делай долгих перерывов)) Скоро уже экзамены, а видео полезны.
Здраствуйте,можете объяснить что такое 'Function' и для чего это нужно?
Помогите пожалуйста!Структура элемента массива пассажир: фамилия, номер рейса, багаж - количество
вещей, общий вес. Определить:
─ число пассажиров, количество вещей которых превосходит среднее число
вещей;
─ пассажиров с заданным количеством вещей и не более заданного веса;
─ вывести информацию о количестве вещей и общем весе каждого рейса.
Делай блок-схему, мне вот надо для учебы, а везде только на примере кода рассказывают.
Спасибо!
Вернись,мужик,умоляю.Разбери как заполнять двумерные массивы змейкой и улиткой...
ПОмогите решить пожалуйста очень надо.
1. Известны данные о стоимости каждой из 10 моделей легковых автомобилей и 10 моделей грузовых автомобилей. Найдите среднюю стоимости легковых и грузовых автомобилей.
2. Известна информация о 20 учениках класса: ФИО, даты рождения. Определить, есть ли в классе ученики, у которых сегодня день рождения, и если да, то вывести фамилию каждого
1.- const
N = 10;
var
mmas: array [1..2,1..N] of integer;
summ1,summ2,d:integer;
a: real;
begin
summ1:=0;
summ2:=0;
{Задаем, значение переменных (в данном случае они рандомны, но можно и с помощью ввода)};
for d:= 1 to N do
begin
mmas [1,d]:= random (99999);
mmas [2,d]:= random (99999);
end;
for d:=1 to N do
begin
summ1:= summ1+mmas[1,d];
summ2:= summ2+mmas[2,d];
end;
a:=(summ1+summ2)/20;
writeln (a);
end.
2.- В процессе
Эдуард здравствуйте, дайте пожалуйста пару видео по олимпиадным задачам.
ура
Здравствуйте, Эдуард. Скажите, собираетесь ли вы снимать видео уроки по Web-программированию? И если да, то когда ждать выпусков?
👍👍👍
Здесь все несколько сложней, но довольно тоже просто
Приветствую тебя, Эдуард, ты можешь показать как найти точку на плоскости?
Можно спросить?Из курса 9 класса можно ли в операторе repeat использовать оператор while?Пока условие истина?
Эдуард, а где можно применить знания на практике, а имено что и как написать?
Эдуард, на каких площадках можно найти реальных спрос на создание сайтов? А то студенту хочется, что-то делать полезное и приятное. Заранее спасибо за информацию😊
Из вас отличный учитель получится)
по голосу я раньше думал, что ему не меньше 40 лет
Эдуард, в интро присутствуют надписи "Веб-дизайн" HTML и СSS
А вы будете обучения делать по этим языкам или вас интересует теперь только прибыль от партнёрки?
я теперь буду у препода по информатике 5 за год просить)
Попытался сделать сортировку, как по мне получилось не слишком рационально, можете показать как было бы лучше?
const
N=3;
var
mmas:array [1..N,1..N] of integer;
i, j,r,e:integer;
begin
mmas[1,1]:=3;
mmas[1,2]:=10;
mmas[1,3]:=5;
mmas[2,1]:=2;
mmas[2,2]:=21;
mmas[2,3]:=9;
mmas[3,1]:=24;
mmas[3,2]:=11;
mmas[3,3]:=1;
For i:=1 to N do
For j:=1 to N do
write(mmas[i,j], ', ');
For e:=1 to N-1 do
For i:=1 to N do
For j:=1 to N-1 do
if (mmas[i,j]>mmas[i,j+1]) then
begin
R:=mmas[i,j];
mmas[i,j]:=mmas[i,j+1];
mmas[i,j+1]:=R;
end;
Writeln;
For i:=1 to N do
For j:=1 to N do
writeln('Сортировка: ', mmas[i,j], ', ');
end.
здравствуйте , не хотите ли вы сделать видео по программе эксель для оге 9 кл? (я думаю просмотров неплохо наберет)
#ЭдЖиви
Program Загадки;
var
name:string;
q:string;
w:string;
begin
writeln('Привет, меня зовут LookDasr, я из далекой страны "Интернет",а как зовут тебя? ');readln(name);
write(name,' ты хочешь поиграть ?'); readln(q);
begin
if q='да' then writeln(name, ' Давай так, я буду загадывать тебе загадки, а за каждую отгадыную загадку у тебя будет 1 бал');
end;
writeln('Если ты согласен напиши да'); readln(q);
begin
if q='да' then writeln('поехали');
writeln('Зимой и летом, одним цветом (1-Дуб, 2-Елка, 3-Шкаф) ');readln(w);
if w='2' then writeln(name, ' Ты заработал +1 бал, молодец у тебя 1 бал') else writeln(name,' Ты проиграл 0 балов');
end;
writeln('Для продолжения ввидите ок, для ухода из игры ввидите оф');readln(q);
begin
if q='ок' then writeln('поехали');
writeln(' Висит на стене и воняет? (1-Часы, 2-Старушка, 3-Носок) ');readln(w);
if w='1' then writeln(name, ' Ты заработал +1 бал, молодец у тебя 2 бала') else writeln(name,' Ты проиграл 1 бал');
end;
writeln('Для продолжения ввидите ок, для ухода из игры ввидите оф');readln(q);
begin
if q='ок' then writeln('поехали');
writeln(' Маленькая собачка свернувшись висит, не лает не кусает, а в дом не впускает? (1-Фил, 2-Ели, 3-Замок) ');readln(w);
if w='3' then writeln(name, ' Ты заработал +1 бал, молодец у тебя 3 бал') else writeln(name,' Ты проиграл 2 бала');
end;
writeln('Для продолжения ввидите ок, для ухода из игры ввидите оф');readln(q);
begin
if q='ок' then writeln('поехали');
writeln('Два конца, два кольца,Посредине гвоздик. (1-Ножницы, 2-Домик, 3-Молоток) ');readln(w);
if w='1' then writeln(name, ' Ты заработал +1 бал, молодец у тебя 4 бал') else writeln(name,' Ты проиграл 3 бала');
end;
writeln('Для продолжения ввидите ок, для ухода из игры ввидите оф');readln(q);
begin
if q='ок' then writeln('поехали');
writeln('Течет-течет - Не вытечет, Бежит-бежит - Не выбежит (1-Лужа, 2-Школьник, 3-Речка) ');readln(w);
if w='3' then writeln(name, ' Ты заработал +1 бал, молодец у тебя 5 балов') else writeln(name,' Ты проиграл 4 бала');
end;
writeln('Для продолжения ввидите ок, для ухода из игры ввидите оф');readln(q);
begin
if q='ок' then writeln('поехали');
writeln('Красна девица Сидит в темнице, А коса на улице. (1-Лук, 2-Арбуз, 3-Морковь) ');readln(w);
if w='3' then writeln(name, ' Ты заработал +1 бал, молодец у тебя 6 балов') else writeln(name,' Ты проиграл 6 балов');
end;
writeln(name, ' Ух...Как ты это делаешь? Хочешь сыграть в супер игру? Я загадываю тебе 3 загадки, за каждую правильно отгадыную загадку ты получаешь +3 бала, но при ошибки ты теряешь все свои балы (1-играю 2-ухожу)');
readln(w);
writeln('Для продолжения ввидите ок, для ухода из игры ввидите оф');readln(q);
if q='ок' then writeln('поехали');
writeln(' Ах, не трогайте меня. Обожгу и без огня! (1-Огонь, 2-,Нож 3-Крапива) ');readln(w);
if w='3' then writeln(name, ' Ты заработал +3 бала, молодец у тебя 9 балов') else writeln(name,' Ты проиграл 0 балов');
writeln('Для продолжения ввидите ок');readln(q);
if q='ок' then writeln('поехали');
writeln(' Маленький рост, длинный хвост, Серая шубка, острые зубки. (1-,Тигр 2-,Мышка 3-Медведь ) ');readln(w);
if w='2' then writeln(name, ' Ты заработал +3 бала, молодец у тебя 12 балов') else writeln(name,' Ты проиграл0 балов');
writeln('Для продолжения ввидите ок');readln(q);
if q='ок' then writeln('поехали');
writeln(' Рогатый, а не бодается. (1-Бык, 2-Месяц,3-Слон ) ');readln(w);
if w='2' then writeln(name, ' Молодец у тябя 15 балов и на этом наша игра заканиваеться') else writeln(name,' Ты проиграл 0 балов');
writeln(name,' мне понравилась твоя игра) мы дарим тебе еще 5 бала)');
end.
// 2 день учусь на твоих видео, в информатеке был полный ноль( на счет програмирования, а оказалось это интересно и прикольно, учитель удивился когда я ему скинул программа эту, большое тебе спасибо)
Эдуард,скажите за сколько примерно ваших выпусков можно рассказать о всех школьных знаниях в школе?
О всех знаниях по информатике конечно...........
когда начнется курс по веб программированию?
сделай плз видео по теме множество
(там set of char и все такое)
Скажите, пожалуйста, как писать код в Python, чтобы был результат
2 * 1 = 2
2 * 2 = 4
2 * 3 = 6
2 * 4 = 8
2 * 5 = 10
2 * 6 = 12
Через цикл + массив
Mas : array [1..6] of integer;
.....
For i:=1 to n do
b :=2 *a [i]
Writeln ('2*', '', a[i], '=', b)
Здравствуйте. Поясните, пожалуйста как двумерный массив в паскале можно поместить в одномерный? Далее то, что получилось надо обработать сортировкой
зубки супер
Помогите составить код в Делфи 7 . Расчитать цены товаров в другой валюте, если задан её курс относительно гривны. Изучаем одномерные массивы.
Здравствуйте, посоветуйте хорошие книги , в которых проще выучить паскаль.
P.s. Или лучше сразу языки посерьезнее?
Как в процедуру двухменрный массив запхнуть?
Помогите решить задачу по паскалю (Pascal),задание такое "Найти сумму третьего столбца в двумерном массиве"
А в паскале можно массив в массив засунуть?))) (Я JavaScrip'ер)
А как сделать массивы рандомными? У меня вот задание: есть 5 курсов и 8 групп в каком-то колледже. Нам нужно найти количество студентов именно третьего курса.
Из Вашего задания неясно, зачем массив рандомным делать.
И не ясно, как данные хранятся.
program Project2;
{$APPTYPE CONSOLE}
uses
//обратите внимание, что для использования функций Randomize и
//RandomRange надо подключить библиотеку Math
SysUtils, Math;
var
//пусть массив двумерный
arr: array [1..3, 1..3] of integer;
i, j: integer;
begin
//каждый раз случайные числа будут разные
Randomize;
for i := 1 to 3 do
begin
for j := 1 to 3 do
begin
//функция RandomRange вернет случайное число в указанном
// диапазоне. В данном случае от 10 до 99 включительно
arr[i,j] := RandomRange(10,99);
write( arr[i,j], ' ' );
end;
writeln;
end;
readln;
end.
Здравствуйте, нужны ли огромные знания по математике чтобы изучать программирование ?
Я *слушаю ролик, не особо понимаю*.
Тоже я: что? Портал в Казахстане? Так и знал
Столько времени прошло... Ужс... За это время я уже успел сдать ЕГЭ, поступить на первый курс, отучиться семестр, выучить бэйсик, срр, частично c#, а паскаль, кстати, бросил, научился перехватывать функции и ковырять дизассемблированный код :)
слушай, по каким книгам, учебникам шарп учишь? и трудно ли? Паскаль к примеру я знаю, работал в делфи немного.
+Андрей Фоминых, "учишь" - это сильно сказано, после С++ достаточно просто пролистать любую книгу по шарпу. Мне, после срр, было не трудно, а как тебе - не знаю. из авторов могу посоветовать для начала либо Шилдта либо Эндрю Стиллмен "Изучаем C#", потом Хейлсберга почитай(собственно это и есть создатель языка) ну и Джеффри Рихтера тоже было бы не плохо почитать, ну если уверен в своих силах то можешь сразу с Хейлсберга начинать.
Молодец) Я уже переключился на изучение java с помощью этой программки NetBeans IDE 8.2)
Помогите, пожалуйста, надо написать программу, которая определяет является ли число простым
Ждал как Хатико
Что с каналом?))
го обучение visual studio
+Super Dimas 2012
где видосы
Хочу python!!!
и я!!!
Знать бы музыку в начале.
+Humiliater DotaAndCsGo Fringe_Trimmed_Boots
подскажите, какая переменная может включать в себя и цифры и буквы, так как при введение в переменную integer букв, программа выдает ошибку.
String
+Татьяна Мальцева у меня больше 1 string создавать нельзя(((((
Game Start vk.com/id151640607 скинь в лс код, если хочешь. Вдруг смогу помочь)