Практична робота № 7. Пошук значень у табличній величині | 9 клас | Ривкінд
HTML-код
- Опубликовано: 16 ноя 2017
- 9 клас. Практичні завдання з інформатики за підручником Й.Я.Ривкінда 2017 року.
Практична робота № 7. Пошук значень у табличній величині.
1. Відкрийте середовище візуального проектування.
2. Створіть проект для розв’язування задачі: У багаторядковому текстовому полі міститься час, який показав кожен з учасників змагань вашого навчального закладу з бігу на дистанцію 100 м. Визначте найбільший і найменший час. Визначте, скільки спортсменів показали найбільший час. Чи оновлено на цих змаганнях рекорд вашого навчального закладу?
3. Збережіть проект у папці з іменем Практична 7, створеній у вашій папці.
Підтримати мою роботу: donatello.to/TaskInformatics
Підтримати мою роботу на Patreon: / taskinformatics
Завантажити текст практичного завдання у форматі docx: docs.google.com/document/d/1Y...
У коді помилка!!! Не підраховується найбільший і найменший час для першого числа, яке під індексом 0.
Найпростіше її виправити це у другому циклі for замінити 2 на 0. Тобто замість for i := 2 to n - 1 do буде for i := 0 to n - 1 do
А правильніше виправити, це значення нульового елемента вважати найменшим і найбільшим (рядки 51-53). Тобто замість
max:=a[1];
min:=a[1];
for i := 2 to n - 1 do
буде
max:=a[0];
min:=a[0];
for i := 1 to n - 1 do
Все ровно все также нечего не меняеться уже все перебробфвал
@@sharproleplay9309 Скопіюйте свій код в коментар
@@TaskInformaticsДоброго дня, коли нажимаю Розрахувати нічого не відбувається, що робити к/р треба здати сьогодні, допоможіть будь ласка 🙏🏻
Скопіюйте свій код в коментар
Дякую вам велике!!! Не знаю, щоб без вас робила би!
Дякую!!! Ви дуже допомогли!!!
Дякую за допомогу! Успіхів вам.
Дякую. Радий, що зміг допомогти)
Task Informatics А це обов'язково потрібно розписувати роз'яснення // справа ?
Не
Дякую за Вашу допомогу!
Приємно, що зміг допомогти)))
Спасибо очень спасли.
Душевно)
Спасибо, ОЧЕНЬ помогли
Тебе уже ничего не поможет
🔝🔝🔝
Unit1.pas(67,17) Error: Incompatible types: got “Int64” expected “Array[0..1000] Of Real
Скопіюйте код з помилкою в коментар. А також декілька рядків до помилки і декілька після
Доброго дня, а що означає цей запис який ви почали записувати на 5:11
Це коментар. Пояснення, що означає написаний код. Вам писати не потрібно
@@TaskInformatics А добре дуже вам дякую що швидко відповіли не сподівався🤯🤘😎☑️
У завданні сказано, що потрібно визначити "скільки спортсменів показали Найбільший час". Було б більш логічно, що потрібно визначити скільки спортсменів показали НАЙКРАЩИЙ час. В цьому випадку у коді порівнюємо значення чергового часу не з змінною max, a з змінною min.
Task Informatics коли вийдуть відео з практичними 8,9 і далі?
Viktoriia Makarevych, планую викласти вже у наступному році. Ще не робив, але якщо вам дуже потрібно, то нагадайте завтра-післязавтра, я викладу пряме посилання для перегляду.
Task Informatics дякую
Task Informatics можете як казали зкинути пряме посилання на перегляд практичних 8,9 і далі?
ВЛАДИСЛАВ ЛЮБАШЕНКО, Практична 8 - ruclips.net/video/IF3P4taRBkw/видео.html
Практична 9 - ruclips.net/video/6ksmip1XGtU/видео.html
а где получить полный проект?
Wirbul Вибачте, але канал створений для допомоги при розв’язуванні завдань з шкільної інформатики. Тобто є відео, і залишається завдання зробити) Поки сам не зробиш, не навчишся)
@@TaskInformatics ехх дистанционка
@@wirbul666 Таки да :(
Syntax error, "identifier" expected but "UNIT" found.Допоможіть будь ласка
Скопіюйте все повідомлення про помилку в коментар. А також частину коду з помилкою (включаючи декілька рядків до і після)
Добрий вечір!
Підкажіть будь ласка в чому помилка?
max:=a[i];
Чомусь виділяє цей рядок сірим кольором, тоді коли я ввожу значення
Зробила все в точності, але нічого не працює(
Катя Грицун Саме в даному рядку синтаксичної помилки немає. А яка саме помилка, то потрібно розглядати весь код. Можливо просто в кінці даного рядка непотрібна крапка з комою. Скопіюйте код в коментар. І виділяється сірим? Не помаранчевим?
А коли вийдуть відео з практичними 8, 9 і далі?
Viktoriia Makarevych, планую викласти вже у наступному році. Ще не робив, але якщо вам дуже потрібно, то нагадайте завтра-післязавтра, я викладу пряме посилання для перегляду.
Когда ты умрёшь
@@TaskInformatics Дуже потрібно
@@Evelixe Це прикалюєтеся?? :)Якщо потрібно то вже є :)
@@TaskInformatics Вже знайшов все переробив, дякую за фото комп'ютера.
Будь-ласка виводь свій код в опис
Денис Дехтярук, я подумаю чи варто)
@Валерія Кулаковська Я подумав :) Вибачте, але канал створений для допомоги при розв’язуванні завдань з шкільної інформатики. Тобто є відео, і залишається завдання зробити) Поки сам не зробиш, не навчишся :)
@@TaskInformatics Только какой смысл учить устаревший паскаль?
@@scammamontov если ты в это время будешь учить пайтон, то никакого. Но я почему-то думаю что ты пойдёшь играть в кс или доту , ну или что то в этом духе, и в этом случае вообще имеет смысл , ибо ты получаешь базовые знания о том как устроено программирование, что такое синтаксис, код, функция , цыкл и т.д. И если тебе понравиться то сможешь развиваться в этом направлении. Лазарус выбран только потому что тут легко сделать программу с интерфейсом, так нагляднее, в том же пайтон с его консолью детям будет не то что бы сложнее, но страшнее точно, а если скажешь что на пайтоне можно сделать интерфейс, тот же тинкер и qt designer, то 1) это дольше, сложнее и большая вероятность допустить ошибку. 2) это дополнительные библиотеки, которые в случае дистанционного обучения, детям надо будет устанавливать самостоятельно. 3) В тинкере надо прописывать интерфейс кодом, со знаниями CSS , а в школьной программе его нет. 4) В qt ОЧЕНЬ сложно привязать интерфейс к коду, экспортировать из юая в пай привязывать 100 строк кода на 10 кнопок и т.д. Если еще не понял, то тут только бог поможет.
підскажіть будь ласка, де тут помилка Edit1.Text:FloattoStr(max);
Edit2.Text:FloattoStr(min);
Viktoria Huk, дорівнює пропущено
Edit1.Text:=FloattoStr(max);
Edit2.Text:=FloattoStr(min);
дякуюю
unit1.pas(44,3) Fatal: Syntax error, ";" expected but "VAR" found помилка
DOMYHUK Схоже у вас пропущена крапка з комою. Подивіться рядок 44 і рядки перед 44-им
@@TaskInformatics дуже дякую за відповідь все виправив, і все пішло як треба
Можете кинуть готовую Практическую? Заранее спасибо
Владислав, вибачте, але канал створений для допомоги при розв’язуванні завдань з шкільної інформатики. Тобто є відео, і залишається завдання зробити) Поки сам не зробиш, не навчишся)
@@TaskInformatics , Ясно .Спасибо
Вау як же круто
if a [i] > max then
max := a [1];
Можете сказати де тут помилка?
В кінці не потрібна крапка з комою ;
І у вас ще логічна помилка. Індекс не одиниця a[1] а і-ий індекс a[i]
нормально коли завдання починаэться з 44 рядка ?
Andriy Lazar Нормально)
unit1.pas(74,0) Fatal: Syntax error, "BAGIN" expected but "end of file" found
Вибиває помилку в кінці помилка з end;
Має бути BEGIN а не BAGIN
Не виходить в мене написано begin але воно висвітлює на end;
Що проблема в end;
Швидше за все у вас десь пропущена (або зайва) одна з операторних дужок begin або end
Ясно
Підскажіть будь ласка, що робити коли в 56 рядку помилка
Viktoria Huk, трохи замало інформації. Скопіюйте код в коментар
Task Informatics else if a[i] < min then
Viktoria Huk, в цьому рядку помилки немає. Копіюйте весь код
var a: array [0..1000] of real;
i, n: Integer;
max, min: real;
begin
n:= Memo1.Lines.Count;
for i:= 0 to n - 1 do
a[i]:=StrtoFloat(Memo1.Lines[i]);
max:=a[1];
min:=a[1];
for i:= 2 to n - 1 do
if a[i] > max then
max:= a[i];
else if a[i] < min then
min:= a[i];
Edit1.Text:FloattoStr(max);
Edit2.Text:FloattoStr(min);
Viktoria Huk, в 55 рядку поставлена крапка з комою. Їх не потрібно.
Має бути; max := a[i]
Зверніть увагу, що в повідомлені (там де червона полоса) має бути написано Syntax error, ";". Тобто синтаксична помилка якось пов’язана ";"
unit1.pas(62,8) Fatal: Syntax error, ";" expected but "ELSE" found помилка в else if a[1] < min then
Швидше за все, у кінці рядка, що перед даним ви написали крапку з комою ; яких не потрібно
@@TaskInformatics ні я все написав так як у вас
@@raptor2129 Скопіюйте в коментар рядок з помилкою, а також декілька рядків до помилки та декілька після
@@TaskInformatics else if a[1] < min then
@@TaskInformatics до max:=a[1];
min:=a[1];
for i := 2 to n- 1 do
if a[1] > max then
max := a[i];
а почему массив 1000, а не 100?
София Юзефович, а якщо спортсменів буде більше ста? Більше тисячі спортсменів, в школі, навряд чи буде) Тут може бути забагато виділено пам’яті, але учні такого ще не вчили
unit1.pas(61,24) Warning: Local variable "min" does not seem to be initialized
Ви змінну min оголосили? Після ключового слова var
@@TaskInformatics Вже оголосив,дякую за допомогу
чомусь видає чо indetifer not found k
Марина Змінну k оголосили? Після ключового слова var
доброго ранку, у мене також виникла проблема. вводимо числа 5 8 8 7 4. найбільший час показує правильно - 8. найменший також показує 8. к-сть учнів з найвищим результатом - 1, хоча їх двоє. перевірила код, не знаю, що не так
Подивіться закріплений коментар. Там описано як виправити дану помилку
Почему массив 1000 а не 100?
Виктория Гоменюк, а якщо спортсменів буде більше ста? Більше тисячі спортсменів, в школі, навряд чи буде) Тут може бути забагато виділено пам’ятті, але учні такого ще не вчили
Все я поняла, извините не внимательно прочитала условие задачи.
СеЛьСкИй БаЙкЕр
Клас дуже допомогло . В мене питання ще будеш відео ?
Нет не будет просто он тебя увидел
В мене тут помилка a[i] := StrToFloat[Memo1.Lines[i]); //данi з рядкiв багаторядкового поля Memo1 переводимо в числа Що тут не так
Фрейзи, замість круглої відкриваючої дужки поставлена квадратна.
a[i] := StrToFloat(Memo1.Lines[i]);
Вітаю з початком нового семестру))
чАС
18,8 найбiльний 19 ,найменший також 19 ,Чому так
19
15,6
15,4
Фрейзи, можливо просто на 59 рядку (якщо відео розглядати) замість min поставлений max.
Якщо причина не в цьому, то потрібно шукати помилку в 56-57 рядку
for i := 0 to n - 1 do
a[i] := StrToFloat(Memo1.Lines[i]); //данi з рядкiв багаторядкового поля Memo1 переводимо в числа
max:=a[1]; //значення першого елемента вважаэмо найбiльним
min:=a[1]; //значення першого елемента вважаэмо найменшим
for i := 2 to n - i do
if a[i] > max then //порiвняння значення чергового елемента з найбiльшим на даний час
max := a[i] //замiняэмо значення найбiльшого елемента
else if a[i] < min then //порiвняння значення чергового елемента з найменшим на даний час
min := a[i]; //замiнюэмо значення найменшого елемента
Edit1.Text:=FloatToStr(max); //виведення значення найбiльшого часу в текстове поле Edit1
Edit2.Text:=FloatToStr(min); //виведення значення найменшого часу в текстове поле Edit2
k := 0; //лiчельнiк кiлькостi спортсменiв,що показав найбiльший час
for i := 0 to n - 1 do
if a[i] = max then
k := k + 1; //збiльшення на 1 значення лiчильника,якщо значення чергового часу
//дорiвнуэ найбiльшому часу
Edit3.Text:=IntToStr(k); //вивидення кiлькостi спортсменiв,що показав найбiльший час,
//в текстову поле Edit3
Фрейзи, помилка в рядку 53.
Цикл має бути від 2 до n - 1, а не від 2 до n - i
for i := 2 to n - 1 do
for i := 2 to n - 1 do де тутт помилка?
Анатолий Рябоконь У даному рядку помилки немає. Помилки можуть бути у сусідніх рядках. І потрібно дивитися, що пише у вікні Повідомлення
@@TaskInformatics Компиляция проекта, цель: C:\Users\Tolik\AppData\Local\Temp\project1.exe: Код завершения 1, ошибок: 1
unit1.pas(53,2) Fatal: Syntax error, ";" expected but "FOR" found
ось що написано
Анатолий Рябоконь Перегляньте рядки біля 53-го. Схоже ви крапку з комою пропустили
@@TaskInformatics можно поподрубнее??
Анатолий Рябоконь Код скопіюйте в коментар
Lebel6.Caption:='Рекорд оновлено'; де тут помилка?
Viktoria Huk, Label6 неправильно написаний
Дуже вам дякую! Вибачте за забраний мною ваш час
Viktoria Huk, радий що зміг допомогти)
Syntax error, ";" expected but "identifier Max" found
Швидше за все ви не поставили або поставили зайві в кінці рядка крапку з комою ;
Перегляньте уважніше рядок (або декілька рядків) перед помилкою
@@TaskInformatics Добре, дякую.
чел,
кидай в описание готовые роботы
Вибачте, але даний канал створений для допомоги при розв'язуванні завдань з шкільної інформатики. Тобто є відео і залишається виконати завдання. Поки сам не зробиш, не навчишся :)
21:24
Добрий день! Підскажіть будь ласка, такі помилки
unit1.pas(61,4) Error: identifier not found "k"
unit1.pas(64,11) Error: identifier not found "k"
unit1.pas(64,16) Error: identifier not found "k"
unit1.pas(66,25) Error: identifier not found "k"
Дякую
Не оголошена змінна k. Після var оголошується
тепер помилка
unit1.pas(69,4) Error: identifier not found "rekord"
unit1.pas(72,7) Error: identifier not found "rekord"
Дякую))
Ще й пише що unit1.pass - не знайдено! Файл зберігав в папку
Тепер, схоже, у вас змінна rekord не оголошена
@@TaskInformatics вже знайшов))
Я всё сделал в точности как там ошибок нет но ничего не работает
макс волков, не компілює?
Ну я написал числа нажал на кнопку но оно ничего не выполняет
Скинь свой вк что бы я тебе отправил
макс волков, краще на пошту taskinform@gmail.com
Я не знаю как там скидывать не когда не скидывал скинь вк лучше я даже ни чего не понимаю в почте.
Вот мой вк vk.com/id330695797
Спочатку все вийшло, а коли захотів перевірити, то почало вибивати помилку, бо типу немає Юніта1
Геймерський канал таке інколи трапляється, а чому я так і не зрозумів.
Для того щоб позбавитися помилки файл "unit1.pas не знайдено":
1. Створіть новий проект і цей порожній проект збережіть в іншій папці.
2. Зі старого проекту у новий скопіюйте файли project1.lpr, unit1.lfm, unit1.pas
3. Запустіть новий проект
@@TaskInformatics типу скопіювати то, що в проекті і написати в новому, чи перекинути в нову папку файли?
Я спробував другий варіант, то в мене все вийшло
Геймерський канал, правильно - другий варіант) Радий, що вийшло
@@TaskInformatics
В мене все полетіло, і не збереглося 😭😭😭😭
Але я зробив скріни твого відео, тому я можу зробити цю практичну просто на уроці
А шкода, 1,5 години на вітер(
у мене відео без звуку
Відео для 9 класу без звуку
Чувак! У тебя неправильно показывает неправильное минимальное значение.
У коді помилка!!! Не підраховується найбільший і найменший час для першого числа, яке під індексом 0.
Найпростіше її виправити це у другому циклі for замінити 2 на 0. Тобто замість for i := 2 to n - 1 do буде for i := 0 to n - 1 do
А правильніше виправити, це значення нульового елемента вважати найменшим і найбільшим (рядки 51-53). Тобто замість
max:=a[1];
min:=a[1];
for i := 2 to n - 1 do
буде
max:=a[0];
min:=a[0];
for i := 1 to n - 1 do
insta: sania.nesterento
my insta: dianenciiia
Не правильнл виконана практична
Не підкажете чому?
Так і не сказали чому(
Привет гайс субскрайб май чанел
Edit3.Text:=IntToStr(k);
я не розумію де тут помилка..
А тут помилки немає. Скопіюйте в коментар повідомлення про помилку. А також не тільки рядок, де показується помилка, а декілька рядків до та після
@@TaskInformatics unit1.pas(72,2) Fatal: Syntax error, ";" expected but "identifier EDIT3" found
k := 0;
for i := 0 to n - 1 do
if a[i] = max then
k := k + 1
Edit3.Text:=IntToStr(k);
ось
В кінці попереднього рядка не поставлена крапка з комою ;
@@TaskInformatics дуже вам дякую!!💗
Чому коли натискаю "розрахувати" то якісь незрозумілі числа висвітлюються -4,4838373646383 якісь такі а ще найменьший час показується як найбільший ?
var a: array [0..1000] of real;
i, n: Integer;
max, min: real;
begin
n := Memo1.Lines.Count;
for i := 0 to n - 1 do
a [1] := StrToFloat(Memo1.Lines[i]);
max:=a[0];
min:=a[0];
for i := 1 to n - 1 do
if a[i] > max then
max := a[i]
else if a[i] < min then
min := a[i];
Edit1.Text:=FloatToStr(max);
Edit2.Text:=FloatToStr(min);
end;
2 на 0 вже замінила
Помилка в рядку, що в мене 50.
a[i] := StrToFloat(Memo1.Lines[i]);
Виправте одиницю 1 на i
@@TaskInformatics Огоооо це простоооо вражаюче це відео було знято 5років назад, а ви і досі так швидко відповідаєте! Дякую все спрацювало!!!👏