Паскаль с нуля [ч14]. Многомерные (двумерные) массивы
Вставка
- Опубліковано 21 вер 2024
- В очередном видеоуроке по программированию на языке Паскаль, мы разберем такую тему, как "Многомерные массивы". Разбор темы будем проводить на примере двумерного массива, и рассмотрим такие моменты, как создание массива, наполнение его данными и вывод.
![Паскаль с нуля [ч15]. Многомерные массивы 2. Заполнение и вывод. Вложенные циклы (еще проще)](http://i.ytimg.com/vi/pB1Kr8WZbq8/mqdefault.jpg)
![Паскаль с нуля [ч15]. Многомерные массивы 2. Заполнение и вывод. Вложенные циклы (еще проще)](/img/tr.png)
Единственный нормальный канал с хорошим преподношением материала. И смотреть и слушать приятно.
Есть ряд других, не менее интересных.
Можете кого то посоветовать?
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)
спасибо, снов таки огроменное
Продолжай!!))
Спасибо огромное!
Помогите пожалуйста!Структура элемента массива пассажир: фамилия, номер рейса, багаж - количество
вещей, общий вес. Определить:
─ число пассажиров, количество вещей которых превосходит среднее число
вещей;
─ пассажиров с заданным количеством вещей и не более заданного веса;
─ вывести информацию о количестве вещей и общем весе каждого рейса.
Наконец то!!!)))
ПОмогите решить пожалуйста очень надо.
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.- В процессе
Не делай долгих перерывов)) Скоро уже экзамены, а видео полезны.
Вернись,мужик,умоляю.Разбери как заполнять двумерные массивы змейкой и улиткой...
Прекрасно! Будут ли уроки по обучению в создании наипростейших игр на Паскале? Например крестики-нолики. Так как очень уж мало видео на ютубе где действительно объясняют. Хотелось бы узнать сами азы и принцип их создания. Спасибо)
Спасибо!
ураааааа!!!
Здраствуйте,можете объяснить что такое 'Function' и для чего это нужно?
Делай блок-схему, мне вот надо для учебы, а везде только на примере кода рассказывают.
Хотел спросить: будут ли продолжаться ваши уроки? И, если да, то хотелось бы сильнее углубиться в паскаль, к примеру ооп и т.д. Буду очень рад, если уроки продолжаться.
Здесь все несколько сложней, но довольно тоже просто
Из вас отличный учитель получится)
Эдуард здравствуйте, дайте пожалуйста пару видео по олимпиадным задачам.
ура
Здравствуйте, Эдуард. Скажите, собираетесь ли вы снимать видео уроки по Web-программированию? И если да, то когда ждать выпусков?
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 день учусь на твоих видео, в информатеке был полный ноль( на счет програмирования, а оказалось это интересно и прикольно, учитель удивился когда я ему скинул программа эту, большое тебе спасибо)
Можно спросить?Из курса 9 класса можно ли в операторе repeat использовать оператор while?Пока условие истина?
я теперь буду у препода по информатике 5 за год просить)
по голосу я раньше думал, что ему не меньше 40 лет
Приветствую тебя, Эдуард, ты можешь показать как найти точку на плоскости?
Эдуард, в интро присутствуют надписи "Веб-дизайн" HTML и СSS
А вы будете обучения делать по этим языкам или вас интересует теперь только прибыль от партнёрки?
Скажите, пожалуйста, как писать код в 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)
Попытался сделать сортировку, как по мне получилось не слишком рационально, можете показать как было бы лучше?
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 кл? (я думаю просмотров неплохо наберет)
сделай плз видео по теме множество
(там set of char и все такое)
Здравствуйте, посоветуйте хорошие книги , в которых проще выучить паскаль.
P.s. Или лучше сразу языки посерьезнее?
Я *слушаю ролик, не особо понимаю*.
Тоже я: что? Портал в Казахстане? Так и знал
А как сделать массивы рандомными? У меня вот задание: есть 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.
Ждал как Хатико
Помогите составить код в Делфи 7 . Расчитать цены товаров в другой валюте, если задан её курс относительно гривны. Изучаем одномерные массивы.
Столько времени прошло... Ужс... За это время я уже успел сдать ЕГЭ, поступить на первый курс, отучиться семестр, выучить бэйсик, срр, частично c#, а паскаль, кстати, бросил, научился перехватывать функции и ковырять дизассемблированный код :)
слушай, по каким книгам, учебникам шарп учишь? и трудно ли? Паскаль к примеру я знаю, работал в делфи немного.
+Андрей Фоминых, "учишь" - это сильно сказано, после С++ достаточно просто пролистать любую книгу по шарпу. Мне, после срр, было не трудно, а как тебе - не знаю. из авторов могу посоветовать для начала либо Шилдта либо Эндрю Стиллмен "Изучаем C#", потом Хейлсберга почитай(собственно это и есть создатель языка) ну и Джеффри Рихтера тоже было бы не плохо почитать, ну если уверен в своих силах то можешь сразу с Хейлсберга начинать.
Молодец) Я уже переключился на изучение java с помощью этой программки NetBeans IDE 8.2)
Помогите решить задачу по паскалю (Pascal),задание такое "Найти сумму третьего столбца в двумерном массиве"
А в паскале можно массив в массив засунуть?))) (Я JavaScrip'ер)
когда начнется курс по веб программированию?
Здравствуйте, нужны ли огромные знания по математике чтобы изучать программирование ?
Как в процедуру двухменрный массив запхнуть?
Помогите, пожалуйста, надо написать программу, которая определяет является ли число простым
Мецкер в 2016!!! :РР
подскажите, какая переменная может включать в себя и цифры и буквы, так как при введение в переменную integer букв, программа выдает ошибку.
String
+Татьяна Мальцева у меня больше 1 string создавать нельзя(((((
Game Start vk.com/id151640607 скинь в лс код, если хочешь. Вдруг смогу помочь)
го обучение visual studio
+Super Dimas 2012
Хочу python!!!
и я!!!
Здравствуйте, написал программу и в конце поставил until, запускаю пишет, что ожидалось ; .
Подскажите в чём проблема.
Точку с запятой где-то забыл
Вы бы музыку поменяли на фоне, а то я заснул пару раз пока смотрел :\
В остальном всё хорошо.