Практична робота 13. Складання алгоритмів із графічним відображенням даних. Завд. 1 | 8 клас | Морзе
HTML-код
- Опубликовано: 8 мар 2018
- 8 клас. Практичні завдання з інформатики за підручником Н.В.Морзе 2016 року.
Практична робота 13. Складання та виконання алгоритмів із графічним відображенням даних.
Завдання 1. Рух (24 балів)
У середовищі програмування Lazarus розробіть проект Рух, у якому після натиснення кнопки Поїхати запускається демонстрація руху автомобілів через перехрестя без поворотів, що регулюється світлофором. Світло світлофора обирається у групі перемикачів Світлофор, вигляд автомобіля - у групі прапорців Транспорт, допустима швидкість на ділянці дороги - у групі перемикачів Швидкість (50, 70, 90 км/год). Світлофор і перехрестя намалюйте засобами середовища програмування, а зображення авто завантажте із файлів Авто1, Авто2, Авто3, які збережені в папці Програмування.
Підтримати мою роботу: donatello.to/TaskInformatics
Підтримати мою роботу на Patreon: / taskinformatics
Завантажити текст практичного завдання у форматі docx: docs.google.com/document/d/1N...
Завантажити файли-заготовки необхідні для виконання практичного завдання (взято з блогу авторів підручника): drive.google.com/drive/folder...
Дякую, в теорії взагалі нічого не розумію, а от на практиці - ідеально. А за підказки (після //) величезний РЕСПЕКТ!
Нашо ви рекомендуєте новий підручник, якщо там нема цієї теми?
При подгрузке кртинок машин в формате TIFF (без фона) выдает ошибку. Этот формат не поддерживается по определению или нужны доп настройки?
Компонент TImage підтримує формат tiff wiki.freepascal.org/TImage
Дякую ! Ви мені забезпечили оптимальну оцінку з інформатики)
Подскажить пожалуйста! где можно скачать обрезаный автомобиль?
Kris kiss, авто, що пропонується авторами підручника можна скачати з посилання в описі. Якщо потрібно інше, то, звичайно, в Інтернеті скачати)). А обрізати можна хоча б в Paint.
Набери в Google : "Файлы-заготовки для учебника с информатики 8 клас Н.В. Морзе"
ДУЖЕ ДЯКУЮ!!!!!!! Ви мені забезпечили позитивну оцінку із інформатики..... 😍🤗👍😊😃😜
Жирный
Допоможіть будь ласка.
У мене видає помилку
unit1.pas(115,0) Fatal: Syntax error, “BEGIN” expected but “end of file” found
Solomiia Dziuba Можливо ви не поставили або навпаки поставили лишні одну з операторних дужок begin або end. Щоб сказати більш точно потрібно побачити код
Canvas.Pen.Color:=clGray; // Створення дороги
Canvas.Brush.Color:=clGray;
Canvas.Rectangle(0, 120, 400, 180);
Canvas.Rectangle(170, 0, 230, 300);
Canvas.Pen.Color:=clWhite;
Canvas.Pen.Style:=psDash;
Canvas.Line(0, 150, 400, 150);
Canvas.Line(200, 0, 200, 300);
Canvas.Pen.Color:=clBlack; // Створення світлофору
Canvas.Pen.Style:=psSolid;
Canvas.Brush.Color:=clWhite;
Canvas.Rectangle(230, 80, 250, 120);
Canvas.Brush.Color:=clRed;
Canvas.Ellipse(233, 83, 247, 97);
Canvas.Brush.Color:=clLime;
Canvas.Ellipse(233, 103, 247, 117);
ДЯКУЮ)))))
Пропал Инспектор Объектов, как добавить? Ни при переустановке, ни при перезапускк не появляеться
Vania Yurchenko Виберіть вкладку Вигляд --> Інспектор об’єктів
Спасибо тебе за твой труд!
Спасибо огромное Вам!!!!как раз прохожим это
Еще раз спасибо!!!
А як відкрити це вікно де можна пррсто нажати і команда допишеться сама?
Двічі клацніть по кнопці лівою кнопкою миші. Буде створена подія OnClick
Большое Спасибо! Вы очень мне помогли.
Не могу понять как вы подбираете числа для координат, чтоб правильно разместить фигуру в нужном положении
Верхній лівий край форми має координати (0;0). Коли наводите курсор на форму, то можна побачити координат, де знаходиться курсор на формі. Властивість Position
@@TaskInformatics спасибо большое, обязательно проверю
ДЯКУЮ!!!!
Спасибо! за прекрасное видео!
Дякую велике!
Спасибо огромноє
Помогите пожалуйста на 14 минуте у меня всё пошло не так, у меня пишет Компиляция проекта, цель: C:\Users\boss\AppData\Local\Temp\project1.exe: Код завершения 1, ошибок: 1
unit1.pas(64,3) Error: Identifier not found "Imagel"
что не так?
Назва компоненту Image1. У вас в кінці замість одиниці англійська ел l. Візуально вони схожі
@@TaskInformatics Спасибо огромное!!!
А можете выставить это чтобы скачать?
Вибачте, але канал створений для допомоги при розв’язуванні завдань з шкільної інформатики. Тобто є відео, і залишається завдання зробити) Поки сам не зробиш, не навчишся :)
так и есть без звука?
Без звуку. Зі звуком вже за новим підручником, але такого завдання в новому підручнику немає
Спасибо большое
что делать машина не уменьшается, а отрезается по кусочку картинки
Ви властивість Proportional поставили True? 12:25
спс
1:00 скажіть будь ласка що ви робили на цьому моменті 😭
Karolina Vagylevych Щоб відкрився список з підказками натисніть комбінацію клавіш Ctrl та Пробіл
@@TaskInformatics велике спасибі 😙
Авто не зменшується, що робити?
Оксана Левак Властивість Proportional у вас встановлена True?
@@TaskInformatics так, дякую, вже знайшла помилку
В мене чомусь вибиває ошибку в procedure TForm1.FormPaint(Sender: TObject); пише Illegal expression
Legendary Broth Можливо ви просто замість присвоєння := написали дорівнює =
Щоб щось сказати докладніше потрібно хоча б побачити повністю повідомлення про помилку
@@TaskInformatics я можу скинути код
@@TaskInformatics Або саму помилку,до речі саме цікаве це сталося в самому кінці до цього програма запускалася без помилок.
@@yuhhin Можете скопіювати і повідомлення про помилку і сам код для події FormPaint
@@yuhhin Дивно, але тут все правильно. Крім того, що end; в кінці не стоїть, але думає ви його просто не скопіювали. Скопіюйте вже, можливо, весь код (я його потім видалю). Спробую знайти в чому помилка
Компиляция проекта, цель: C:\Users\hp\AppData\Local\Temp\project1.exe: Код завершения 1, ошибок: 2
unit1.pas(88,36) Error: Illegal expression
unit1.pas(89,36) Error: Illegal expression
Image2.Left=Image2.Left + v;
Image1.Left=Image1.Left - v;
що зробити?
В Lazarus операція присвоювання така := У вас в цих двох рядках порівняння, тобто просто дорівнює =
@@TaskInformatics дякую що так швидко відповіли)
Відео чомусь без звуку! А в 4-х рекламах, які я передивився перед цим відео-звук є! Видаліть це сміття з мережі
Зі звуком вже за новим підручником ruclips.net/p/PLafE3aTB6JO2oEx3aFfaN7UMzfOknNFT0
@@TaskInformatics А де там тема " Скаладання алгоритмів із графічним відображенням даних"
Там є тільки для Python. Lazarus вже за новим підручником не вивчається
@@TaskInformatics А де ця тема в новому підручнику?
Параграф 19
Компиляция проекта, цель: C:\Users\4460~1\AppData\Local\Temp\project1.exe: Код завершения 1, ошибок: 1
unit1.pas(63,7) Fatal: Syntax error, ":" expected but ":=" found
что делать?(
Це треба код бачити. перегляньте рядок 63 та декілька рядків перед ним. Схоже, що замість двокрапки : ви поставили присвоювання :=
@@TaskInformatics спасибо! если появяться какието вопроси я напишу вам хорошо?( и простите что дергаю очень
Добре :)
@@TaskInformaticsКомпиляция проекта, цель: C:\Users\4460~1\AppData\Local\Temp\project1.exe: Код завершения 1, ошибок: 3
unit1.pas(70,6) Error: Identifier not found "CheckGroup2"
unit1.pas(72,6) Error: Identifier not found "CheckGroup3"
unit1.pas(104,4) Fatal: Syntax error, ";" expected but "." found
это последние ошибки я не знаю что не так (
@@_makenkaa_konfeta_7531Я у проекті використовую тільки одну групу перемикачів CheckGroup. Uhegb CheckGroup2 та CheckGroup3 не використовуються.
Проект завершується end. В кінці крапка. У вас, схоже, завершується крапкою з комою ;
Можете скинути програму мені скачати бо в мене не робить
BS_VADIM Вибачте, але канал створений для допомоги при розв’язуванні завдань з шкільної інформатики. Тобто є відео, і залишається завдання зробити) Поки сам не зробиш, не навчишся)
@@TaskInformatics Можете допомогти з параграфон 35 розвязування компентнісних задач 1.Завдання Переїзд до Киева
BS_VADIM Компетентнісні задачі робити не планую. Справа в тому, що компетентнісними називають задачі, які потребують від учня (людини) ВМІННЯ ВИКОРИСТОВУВАТИ НАБУТІ ЗНАННЯ НА ПРАКТИЦІ. Їх розв’язок полягає у вирішенні деякої життєвої проблеми із застосуванням знань, умінь та навичок, які ви отримали на уроках з різних предметів.
Варіантів виконання компетентнісної задачі є дуже багато. Краще буде, якщо учні самі поставлять перед собою задачу і доберуть програмні засоби опрацювання даних, необхідних для поетапного розв’язування задачі. Я не хочу нав’язувати свій варіант виконання. Прийшов час використати здобуті знання на практиці))
Якщо ж щось не буде вдаватися, - звертайтеся, я з радістю допоможу порадою))
@@TaskInformatics ну спс а у вас вайбер є
@@bs_vadim7598 Допомагаю тільки в коментарях під відео. Якщо ще по Viber допомагати, то вільного часу взагалі не залишиться :)
У мене картинка не хоче з'являтися, машина
Артём Сумара Ви додаєте на форму компонент TImage? Додали зображення за допомогою властивості Picture? Властивість Proportional у вас встановлена True?
@@TaskInformatics спасибо, розобрался
Компіляція проекту, ціль: project.exe: Код завершення 1, Помилок: 8
unit1.pas(73,4) Error: Identifier not found "v"
unit1.pas(75,6) Error: Identifier not found "v"
unit1.pas(77,6) Error: Identifier not found "v"
unit1.pas(77,9) Error: lllegal expression
unit1.pas(79,6) Error: Identifier not found "v"
unit1.pas(84,35) Error: Identifier not found "v"
unit1.pas(85,35) Error: Identifier not found "v"
unit1.pas(95,33) Error: Identifier not found "v"
Що зробити, щоб все було добре?
Ви оголосили змінну v? Оголошення після ключового слова var
@@TaskInformatics дякую все зрозуміла)
end;
if RadioGroup1.ItemIndex=0then
while Image3. Top3290 then
Image3.Top:=0;
end;
end;
и тут что-то не так
Помилка в рядку
Image3.Top:=Image1.Left+v;
буде
Image3.Top:=Image3.Top + v;
Помилка в рядку
if Image3.Top>3290 then
буде
if Image3.Top>290 then
@@TaskInformatics unit1.pas(104,0) Fatal: Syntax error, "BEGIN" expected but "end of file" found
эта ошибка так и ен исчезла
@@user-yw9ov2ik4r Схоже ви десь не написали або написали зайві операторні дужки begin або end.
Зробіть будь ласка практичну 14 на сьогодні прошу
Вика Матвиенко, в загальний доступ викладати ще не буду, щоб були завдання по порядку)). Тому переходьте за прямим посиланням
Практична робота 14. Розв’язування задач на обчислення. Завдання 1 ruclips.net/video/LlUKNQ2kmVU/видео.html
Завдання 2 ruclips.net/video/ly6QsWmg5mw/видео.html
Завдання 3 ruclips.net/video/cfKWfRHFGE0/видео.html
Завдання 4 ruclips.net/video/BE2zYWYXmyk/видео.html
При натисненні на посилання можна переглядати відео
Можете залить целый код, пожалуйста
DUGGY Вибачте, але канал створений для допомоги при розв’язуванні завдань з шкільної інформатики. Тобто є відео, і залишається завдання зробити) Поки сам не зробиш, не навчишся)
@@TaskInformatics У меня в моменте на 20й минуте ошибку начало выдавать procedure TForm1.Button1Click(Sender: TObject); вот такая вот штука
@@user-ih6rz6ks6m Яка саме помилка?
@@TaskInformatics уже все сам исправил, спасибо вам)
Шашлик
Canvas.Pen.Color:=clGray;
Canvas.Brush.Color:=clGray;
Canvas.Rectangle(0, 120, 100, 100);
Canvas.Rectangle(170, 0, 230, 300,);
Canvas.Pen.Color:=clWhite;
Canvas.Pen.Style:=psDash;
Canvas.Line(0, 150, 400, 150);
Canvas.Line(200, 0, 200, 300);
Canvas.Pen.Color:=clBlack;
Canvas.Pen.Style:=psSolid;
Canvas.Brush.Color:=clWhite;
Canvas.Rectangle(230, 80, 250, 120);
Canvas.Brush.Color:=clRed;
Canvas.Ellipse(233, 83, 247, 97);
Canvas.Brush.Color;
Дякую,дуже допомогло, бо на відео трішки незрозуміло
майнкрафт лудше пасматрю
🤦🏻♂️
procedure TForm1.Button1Click(Sender: TObject);
var v : Integer;
begin
Image1.Visible:=False;
Image2.Visible:=False;
Image3.Visible:=False;
if CheckGroup1.Checked[0] then
Image1.Visible:=True;
if CheckGroup1.Checked[1] then
Image2.Visible:=True;
if CheckGroup1.Checked[3] then
Image3.Visible:=True;
v:=0;
if RadioGroup2.ItemIndex=0then
v:=5;
if RadioGroup2.ItemIndex=1then
v:=7;
if RadioGroup2.ItemIndex=2then
v:=9;
if RadioGroup1.ItemIndex=1then
while Image2. left380 then
Image2.Left:=0;
if Image1.Left
В рядку if CheckGroup1.Checked[3] then
замініть 3 на 2
if CheckGroup1.Checked[2] then