По заказу 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руб