По заказу 5636
Предложение от исполнителя №162
📚 Информатика
💰 900 ₽
💬 : Без комментариев
SYSTEM
S:15:53:50 15.12
R:15:53:57 15.12
Данил Тютюнник начал диалог с Михаил Зайков
Данил Тютюнник
S:15:53:51 15.12
R:15:53:57 15.12
TEXT: message_text=="" AND len(message_attachments==0).
Если Вы видите это сообщение - отпишите https://vk.com/p0m0shnik
Любим Вас💫
Михаил Зайков
S:15:54:03 15.12
R:15:54:19 15.12
🤖:Все подключились. Не забудь поздороваться)
Данил Тютюнник
S:15:54:24 15.12
R:15:54:29 15.12
Добрый вечер
12 баллов хотяб надо
Используются мемо листбокс эдит
Михаил Зайков
S:15:54:25 15.12
R:15:54:33 15.12
Добрый день
Михаил Зайков
S:15:54:29 15.12
R:15:54:43 15.12
Сейчас всё сделаем
SYSTEM
S:15:55:03 15.12
R:15:55:11 15.12
Данил Тютюнник выбрал исполнителем Михаил Зайков
Данил Тютюнник
S:15:58:04 15.12
R:15:58:11 15.12
Мне в 17:15 мск надо уже сдать переписанную мной
Михаил Зайков
S:15:59:43 15.12
R:15:59:56 15.12
Да
Михаил Зайков
S:15:59:49 15.12
R:16:00:05 15.12
Код будет вот вот готов
Михаил Зайков
S:15:59:54 15.12
R:16:00:06 15.12
Или могу скинуть блакнот
Михаил Зайков
S:16:00:05 15.12
R:16:00:14 15.12
Если есть возможность скопировать с него и вставить
Данил Тютюнник
S:16:00:26 15.12
R:16:00:49 15.12
Нету
Михаил Зайков
S:16:00:55 15.12
R:16:01:09 15.12
Хорошо
Михаил Зайков
S:16:00:59 15.12
R:16:01:10 15.12
Тогда вышлю скрины
Михаил Зайков
S:16:04:50 15.12
R:16:05:00 15.12
Отправил 1 вложений
Михаил Зайков
S:16:04:59 15.12
R:16:05:11 15.12
Пока вот это можно начать
Михаил Зайков
S:16:05:00 15.12
R:16:05:11 15.12
писать
Данил Тютюнник
S:16:06:50 15.12
R:16:06:55 15.12
С первой строки ?
Михаил Зайков
S:16:07:03 15.12
R:16:07:15 15.12
Да
Михаил Зайков
S:16:07:18 15.12
R:16:07:34 15.12
Комментарии для вас
Данил Тютюнник
S:16:07:20 15.12
R:16:07:29 15.12
Отправил 1 вложений
Михаил Зайков
S:16:07:22 15.12
R:16:07:35 15.12
Можете их не писать
Михаил Зайков
S:16:07:55 15.12
R:16:08:08 15.12
Нет
Михаил Зайков
S:16:08:00 15.12
R:16:08:18 15.12
Нажмите
Михаил Зайков
S:16:08:05 15.12
R:16:08:19 15.12
Файл
Михаил Зайков
S:16:08:07 15.12
R:16:08:20 15.12
Закрыть всё
Михаил Зайков
S:16:08:13 15.12
R:16:08:31 15.12
Потом
Михаил Зайков
S:16:08:15 15.12
R:16:08:32 15.12
Создать
Михаил Зайков
S:16:08:25 15.12
R:16:08:43 15.12
Простая программа
Михаил Зайков
S:16:08:28 15.12
R:16:08:45 15.12
Ок
Михаил Зайков
S:16:08:32 15.12
R:16:08:46 15.12
И вот туда пишите
Данил Тютюнник
S:16:09:51 15.12
R:16:09:58 15.12
Хорошо
Михаил Зайков
S:16:13:10 15.12
R:16:13:24 15.12
Разобрались?
Данил Тютюнник
S:16:13:34 15.12
R:16:13:41 15.12
Да, переписываю уже
Михаил Зайков
S:16:18:56 15.12
R:16:19:12 15.12
Nfr
Михаил Зайков
S:16:19:01 15.12
R:16:19:13 15.12
Так
Михаил Зайков
S:16:19:03 15.12
R:16:19:14 15.12
ещё разок
Михаил Зайков
S:16:19:07 15.12
R:16:19:23 15.12
Отправил 1 вложений
Михаил Зайков
S:16:19:22 15.12
R:16:19:32 15.12
на прошлой фотке кое-что подтереть надо
Михаил Зайков
S:16:19:47 15.12
R:16:19:58 15.12
а именно 32 и 34 строки надо убрать
Михаил Зайков
S:16:29:50 15.12
R:16:30:03 15.12
Отправил 1 вложений
Михаил Зайков
S:16:30:04 15.12
R:16:30:23 15.12
Отправил 1 вложений
Михаил Зайков
S:16:30:25 15.12
R:16:30:42 15.12
Когда тестировать будешь, вводи всё на английском и с маленькой буквы
Михаил Зайков
S:16:30:39 15.12
R:16:30:51 15.12
Это предусмотрено билетом
Михаил Зайков
S:16:38:43 15.12
R:16:38:55 15.12
Как успехи?
Данил Тютюнник
S:16:53:56 15.12
R:16:54:04 15.12
Отправил 1 вложений
Данил Тютюнник
S:16:54:23 15.12
R:16:54:30 15.12
И куда выводим то?)
Михаил Зайков
S:16:54:35 15.12
R:16:54:49 15.12
Length
Михаил Зайков
S:16:54:42 15.12
R:16:54:58 15.12
Последние две буквы
Михаил Зайков
S:16:54:47 15.12
R:16:55:00 15.12
Поменять местами
Михаил Зайков
S:16:55:15 15.12
R:16:55:31 15.12
Выводить в консоль будет
Данил Тютюнник
S:17:01:48 15.12
R:17:01:56 15.12
не по русским так долго быть тип коряво
Данил Тютюнник
S:17:01:59 15.12
R:17:02:05 15.12
Отправил 1 вложений
Михаил Зайков
S:17:02:16 15.12
R:17:02:32 15.12
Надо сделать вот так
Михаил Зайков
S:17:02:18 15.12
R:17:02:33 15.12
Пкм
Михаил Зайков
S:17:02:22 15.12
R:17:02:34 15.12
Параметры файла
Михаил Зайков
S:17:02:24 15.12
R:17:02:43 15.12
Кодировка
Михаил Зайков
S:17:02:27 15.12
R:17:02:44 15.12
ср866
Данил Тютюнник
S:17:03:34 15.12
R:17:03:43 15.12
И там числа то не надо в массив
Данил Тютюнник
S:17:04:05 15.12
R:17:04:29 15.12
Эт где?
Михаил Зайков
S:17:04:15 15.12
R:17:04:24 15.12
А
Михаил Зайков
S:17:04:19 15.12
R:17:04:33 15.12
Сек
Михаил Зайков
S:17:04:38 15.12
R:17:04:51 15.12
Просто
Михаил Зайков
S:17:04:41 15.12
R:17:04:52 15.12
На место где код
Михаил Зайков
S:17:04:55 15.12
R:17:05:09 15.12
Пкм - правая кнопка мыши
Данил Тютюнник
S:17:05:14 15.12
R:17:05:20 15.12
И самое последняя функция не так выводит кодов
Михаил Зайков
S:17:06:05 15.12
R:17:06:18 15.12
Выводит число кодов?
Данил Тютюнник
S:17:06:27 15.12
R:17:06:34 15.12
А все
Данил Тютюнник
S:17:06:39 15.12
R:17:06:46 15.12
Можешь краснел объяснить в какой строке какое задание
Михаил Зайков
S:17:07:03 15.12
R:17:07:18 15.12
Так там понятно же
Михаил Зайков
S:17:07:18 15.12
R:17:07:35 15.12
Sorr
Михаил Зайков
S:17:07:43 15.12
R:17:07:59 15.12
Azbuka это сортировка по алфавиту
Михаил Зайков
S:17:07:54 15.12
R:17:08:08 15.12
Vivod соответственно вывод
Михаил Зайков
S:17:08:03 15.12
R:17:08:17 15.12
Sum ищет число
Михаил Зайков
S:17:08:16 15.12
R:17:08:26 15.12
Надо числа из массива убрать
Михаил Зайков
S:17:08:18 15.12
R:17:08:34 15.12
Да?
Данил Тютюнник
S:17:10:00 15.12
R:17:10:05 15.12
Да
Данил Тютюнник
S:17:10:01 15.12
R:17:10:06 15.12
Lenght этом
Данил Тютюнник
S:17:10:01 15.12
R:17:10:10 15.12
На то пофиг
Михаил Зайков
S:17:10:24 15.12
R:17:10:42 15.12
Не понял?
Михаил Зайков
S:17:10:35 15.12
R:17:10:52 15.12
Можно сформулировать
Михаил Зайков
S:17:10:40 15.12
R:17:10:53 15.12
Что не так
Данил Тютюнник
S:17:11:26 15.12
R:17:11:31 15.12
В в сум там что делается
Данил Тютюнник
S:17:11:32 15.12
R:17:11:40 15.12
Где 1 2 …
Михаил Зайков
S:17:12:23 15.12
R:17:12:39 15.12
procedure Vivod(m:mass; count: integer);
var i,a,e: integer;
begin
for i:= 1 to count do begin
val(m[i],a,e);
if e <> 0 then writeln(m[i]);
end;
end;
Михаил Зайков
S:17:12:38 15.12
R:17:12:49 15.12
Вот это уберёт числа из массива
Михаил Зайков
S:17:14:13 15.12
R:17:14:30 15.12
function Sum(m: mass; count: integer): integer;
var i,e,a: integer;
begin
Sum:= 0;
for i:= 1 to count do begin
e:= 1;
val(m[i],a,e);
if e = 0 then inc(Sum);
end;
end;
Михаил Зайков
S:17:14:23 15.12
R:17:14:39 15.12
Вот чтобы сумма правильно находила
Михаил Зайков
S:17:14:52 15.12
R:17:15:05 15.12
Отправил 1 вложений
Данил Тютюнник
S:17:21:06 15.12
R:17:21:32 15.12
Меня нахер послали так как в консоле не возможно
Михаил Зайков
S:17:22:51 15.12
R:17:23:08 15.12
Мой
Михаил Зайков
S:17:22:53 15.12
R:17:23:09 15.12
Косяк
Михаил Зайков
S:17:23:04 15.12
R:17:23:19 15.12
Как исправлять будем?
Данил Тютюнник
S:17:51:22 15.12
R:17:51:28 15.12
На след неделе пересдача но с другим билетом
Михаил Зайков
S:17:51:49 15.12
R:17:52:03 15.12
Хорошо.
Михаил Зайков
S:17:52:07 15.12
R:17:52:21 15.12
Тогда про сегодня забыли. Ждём следующую неделю?
Данил Тютюнник
S:17:52:45 15.12
R:17:52:52 15.12
Да
Данил Тютюнник
S:23:47:20 21.12
R:23:47:39 21.12
Приветствую 🖖🏼
Завтра (в четверг) 15:40 по мск сможешь помочь ?
Михаил Зайков
S:23:57:04 21.12
R:23:57:48 21.12
Привет, да можно.
Данил Тютюнник
S:23:58:08 21.12
R:23:58:28 21.12
Хорошо
Данил Тютюнник
S:15:52:12 22.12
R:15:52:44 22.12
Минут 5-10
Задержался
Данил Тютюнник
S:15:56:56 22.12
R:15:57:18 22.12
Отправил 1 вложений
Данил Тютюнник
S:15:57:19 22.12
R:15:57:56 22.12
С листбоксом и тд
Михаил Зайков
S:15:58:08 22.12
R:15:58:46 22.12
На форму нужно закинуть
Данил Тютюнник
S:15:59:29 22.12
R:16:00:02 22.12
Да
Михаил Зайков
S:16:00:36 22.12
R:16:01:20 22.12
Edit - 2шт
Listbox - 2шт
Button - 3шт
Михаил Зайков
S:16:00:52 22.12
R:16:01:50 22.12
Никак их не переименовывать не нужно
Михаил Зайков
S:16:00:59 22.12
R:16:01:51 22.12
Просто поместить на форму
Михаил Зайков
S:16:02:23 22.12
R:16:03:20 22.12
На каждую кнопу кликнуть два раза
Михаил Зайков
S:16:02:33 22.12
R:16:03:21 22.12
Должна появится в окне кода, процедура
Данил Тютюнник
S:16:02:51 22.12
R:16:03:25 22.12
Кнопку одну сделать не получится ? Чтоб сразу сделано
Михаил Зайков
S:16:03:50 22.12
R:16:04:49 22.12
Так удобнее чтобы кнопка = процедура
Михаил Зайков
S:16:04:02 22.12
R:16:04:50 22.12
Чтобы ты понимал, вот у тебя кнока за это отвечает
Данил Тютюнник
S:16:04:03 22.12
R:16:04:37 22.12
Ну можно попробовать
А то обычно мы одну использовали
Михаил Зайков
S:16:04:06 22.12
R:16:04:51 22.12
А вот эта за то
Данил Тютюнник
S:16:05:30 22.12
R:16:06:01 22.12
Хорошо
Михаил Зайков
S:16:06:20 22.12
R:16:06:48 22.12
Да тут ничего сложного
Михаил Зайков
S:16:06:25 22.12
R:16:07:18 22.12
Просто кнопок больше
Данил Тютюнник
S:16:12:15 22.12
R:16:12:42 22.12
Скидывайте если что по очереди чтоб успел переписать
Михаил Зайков
S:16:12:59 22.12
R:16:13:39 22.12
Отправил 1 вложений
Михаил Зайков
S:16:13:06 22.12
R:16:13:39 22.12
Для первой кнопки
Михаил Зайков
S:16:13:17 22.12
R:16:14:09 22.12
В названии процедуры смотри индекс
Михаил Зайков
S:16:17:23 22.12
R:16:17:55 22.12
И туда перед последним End допиши вот это
Михаил Зайков
S:16:17:25 22.12
R:16:17:56 22.12
Edit2.Text:= IntToStr(sum);
Михаил Зайков
S:16:21:39 22.12
R:16:22:18 22.12
Хочу уточнить
Михаил Зайков
S:16:21:46 22.12
R:16:22:19 22.12
3 операция
Михаил Зайков
S:16:21:50 22.12
R:16:22:48 22.12
С перестановкой слова
Михаил Зайков
S:16:22:06 22.12
R:16:22:49 22.12
Строку выводить в Edit?
Михаил Зайков
S:16:22:14 22.12
R:16:22:50 22.12
Или на лист бокс, по словам
Михаил Зайков
S:16:25:28 22.12
R:16:26:26 22.12
И я подумал
Михаил Зайков
S:16:25:35 22.12
R:16:26:27 22.12
Давай оставим 2 кнопки
Данил Тютюнник
S:16:26:18 22.12
R:16:26:43 22.12
В эдит наверно
Михаил Зайков
S:16:30:26 22.12
R:16:31:02 22.12
Тогда удали листбокс2
Михаил Зайков
S:16:30:40 22.12
R:16:31:35 22.12
B И добавь ещё один едит
Михаил Зайков
S:16:30:49 22.12
R:16:31:36 22.12
И кнопку номер 3
Михаил Зайков
S:16:30:53 22.12
R:16:31:37 22.12
тоже убери
Данил Тютюнник
S:16:49:39 22.12
R:16:50:03 22.12
26 минут осталось до конца
Михаил Зайков
S:16:54:51 22.12
R:16:55:30 22.12
Все почти готово
Михаил Зайков
S:17:00:34 22.12
R:17:01:29 22.12
вот
Михаил Зайков
S:17:00:37 22.12
R:17:01:30 22.12
Отправил 1 вложений
Михаил Зайков
S:17:00:45 22.12
R:17:01:31 22.12
Отправил 1 вложений
Михаил Зайков
S:17:01:00 22.12
R:17:01:59 22.12
Отправил 1 вложений
Михаил Зайков
S:17:03:02 22.12
R:17:03:56 22.12
строки 65 - 74 отсюда
Михаил Зайков
S:17:16:52 22.12
R:17:17:26 22.12
Нужно ещё зайти в инспектор объектов
Михаил Зайков
S:17:17:05 22.12
R:17:17:54 22.12
Для обьекта Form1
Михаил Зайков
S:17:17:14 22.12
R:17:17:56 22.12
Свойства
OnCreate
Михаил Зайков
S:17:17:27 22.12
R:17:18:28 22.12
И нажать на троеточие
Данил Тютюнник
S:17:20:55 22.12
R:17:21:27 22.12
Отправил 1 вложений
Михаил Зайков
S:17:21:46 22.12
R:17:22:41 22.12
TEXT: message_text=="" AND len(message_attachments==0).
Если Вы видите это сообщение - отпишите https://vk.com/p0m0shnik
Любим Вас💫
Михаил Зайков
S:17:22:16 22.12
R:17:23:15 22.12
Или можно просто стереть это
Михаил Зайков
S:17:24:07 22.12
R:17:24:47 22.12
В самом начале процедуры лучше прописать sum:= 0;
Михаил Зайков
S:17:24:27 22.12
R:17:25:20 22.12
Ещё раз досконально проверьте код
Михаил Зайков
S:17:49:38 22.12
R:17:50:34 22.12
Ну что
Михаил Зайков
S:17:49:39 22.12
R:17:50:35 22.12
?
Михаил Зайков
S:18:47:34 22.12
R:18:48:11 22.12
Что скажете
Михаил Зайков
S:18:47:45 22.12
R:18:48:42 22.12
Преподаватель принял работу?
SYSTEM
S:20:27:43 22.12
R:20:28:35 22.12
Михаил Зайков отправил решение Данил Тютюнник
Михаил Зайков
S:20:27:46 22.12
R:20:28:36 22.12
2202 2032 6181 1881
Сбер
Михаил Андреевич Л.
По оплате пришлите чек, пожалуйста
900руб