• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Недавнее содержимое от virginia

  1. V

    Заполнение StringGrid

    Заполнение StringGrid изначально stringgrid размерностью m на n, m не равно n. он заполняется случайными числами.далее нужно из этого stringgrid сделать stringgrid размерностью m на m и пустые ячейки заполнить нулями.как это реализовать в delphi?:tehnari_ru_837:
  2. V

    Обработчик заставки

    Обработчик заставки Unit1 и Unit8. заставка не убирается и зависает, помогите найти ошибку
  3. V

    Разбор алгоритма

    Разбор алгоритма помогите разобрать алгоритм нахождения обр.матрицы(можно написать комментарии к действиям) unit Unit2; interface type Tmatrix=array of array of Real; procedure Permition(k,n:integer;var a:Tmatrix;var p:integer);//перестановка строк procedure Determinate(n:integer;var...
  4. V

    Решения СЛАУ

    Решения СЛАУ метод трехточечной прогонки(прогонка назад) m[n-2]:=-a[n-1]/c[n-1]; v[n-2]:=y[n-1]/c[n-1]; m[n-3]:=-a[n-2]/(b[n-2]*m[n-2]+c[n-2]); v[n-3]:=(y[n-2]-b[n-2]*v[n-2])/(b[n-2]*m[n-2]+c[n-2]); x[n-1]:=m[n-2]*x[n-2]+v[n-2]...
  5. V

    Работа с файлами

    Работа с файлами program Project2; {$APPTYPE CONSOLE} uses Windows, SysUtils; type TMas = array[0..999] of Real; var file_name : String; n,mn,k : Integer; x, y: TMas; Xx:Real; //------------------------------------ procedure zastavka; //заставка begin...
  6. V

    Помогите доработать программу

    var file_name,file_name1,k,s,file_name2,m,b,c:string; i,q,j,size1,size2:Integer; t,t1,t2:TextFile; begin //---------------------------------- Writeln('Введите имя исходного файла:'); Readln(file_name); file_name:=file_name+'.txt'; AssignFile(t,file_name); Reset(t); while not...
  7. V

    Помогите доработать программу

    Помогите доработать программу function encode(s:string):string;//функция архивации var i,j:integer; k:string; begin i:=1; while i <= length(s) do begin j:=i; while (s[i] = s[j+1]) do inc(j); if (j-i = 0) or (j-i = 1) or (j-i =2) then begin k := k + s[i]...
  8. V

    Архивация

    Архивация написать программу архивации методом Хаффмана. язык Паскаль.программа должна сжимать и восстанавливать файл
  9. V

    Паскаль. Задача о расписании поездов

    type traininfo needs finalization-not allowed in file type
  10. V

    Паскаль. Задача о расписании поездов

    задача не запускается
  11. V

    Паскаль. Задача о расписании поездов

    Паскаль. Задача о расписании поездов {Создать массив(расписание движения),хранящий информацию о 20 поездах,отправляющихся со станции Воронеж. Каждый элемент расписания содержит информацию:номер поезда,пункт назначения,время отправления,количество свободных мест в вагонах типа...
  12. V

    Pascal. Помогите найти ошибку

    Procedure Read_data(Var a: tmas); Var i,j:Integer; f:Text; C:Char; begin Assign(f,'train_1.txt'); Reset(f); readln(f); readln(f); readln(f); for i:=1 to n do begin read(f,a[i].numbertrain); repeat read(f,C); until C<>' '...
  13. V

    Pascal. Помогите найти ошибку

    подскажите,пожалуйста,как создать текстовый файл с данными поездов,а из него уже сформировать новый текстовый файл,где поезда отсортированы и выведены данные о поездах,удовлетворяющих критериям?
  14. V

    Pascal. Помогите найти ошибку

    Pascal. Помогите найти ошибку {Создать массив(расписание движения),хранящий информацию о 20 поездах,отправляющихся со станции Воронеж. Каждый элемент расписания содержит информацию:номер поезда,пункт назначения,время отправления,количество свободных мест в вагонах типа...
  15. V

    Упорядочить по фамилиям

    спасибо огромное
Назад
Сверху