57 коментариев to “Сервисы Vista (A-C)”

1. iluxa hate inфу:

   Декабрь 12, 2008 в 06:05

   динамические массивы и матр записи
   созд масива типа tstud
   подпрограмма ввода и вывода
2. iluxa hate inфу:

   Декабрь 12, 2008 в 06:07

   короч подпрограммы а поскок я тупой и она об этом знает мне датут шонибуть полегше но я сней в плохих отошениях хз как она ко мне отнесется
3. iluxa hate inфу:

   Декабрь 12, 2008 в 06:08

   ваще темы не говорила мне мож ваще тупень дать из шонить старого
4. iluxa hate inфу:

   Декабрь 12, 2008 в 06:17

   я здесь
5. Krolm:

   Декабрь 12, 2008 в 06:20

   Насоздавал блин в разных темах. Смотри. У тебя раньше был массив, например объявленный так:
   var
   a:array [0..24] of integer;

   Это значит что в нем содержится 25 целых чисел. Матрица это тоже самое что и массив, только там данные располагаются не в строчку а в клеточку. Как корабли в морском бое. Врубился? Объявляются они так:
   var
   a:array [0..24,0..15] of integer;
   или так
   var
   a:array [0..24] of array [0..15] of integer;
   Вот эти записи создают матрицу размерностью 25х16
6. Krolm:

   Декабрь 12, 2008 в 06:23

   В случае массива ты можешь получить доступ к любому элементу массива так:
   a[1]:=15; (записать в 1 номер число 15)
   В случае матрицы:
   a[1,8]:=15 (записать в 1 столбце, 8 строчке 15)
7. iluxa hate inфу:

   Декабрь 12, 2008 в 06:26

   тут через ешо procedure всяке решали
8. Krolm:

   Декабрь 12, 2008 в 06:29

   Возвращаемся к массивам. Массивы бывают статические и динамические. Если ты заранее знаешь сколько элементов ты хочешь там хранить – это статические массивы. В предыдущем примере ты использовал статический массив из 24 элементов
   var
   a:array [0..24] of integer;

   В случае динамического массива ты не знаешь его размер. Поэтому записывается он так:
   var
   a:array of integer;
   Единственное чем динамический массив отличается от статического – необходимостью задать его размер ПЕРЕД использованием.
   Делается это так:
   SetLength(a,18); (Задать размер массива a 18 элементов)
   Эта функция определит, что в этом массиве будет 18 элементов, с порядковыми номерами 0..17
   Существует функция для того чтобы узнать, какой длинны на данный момент динамический массив.
   dlina:=Length(a);
   В переменную dlina будет записано число 18. Что будет говорить о том, что на данный момент в массиве можно хранить 18 элементов
9. iluxa hate inфу:

   Декабрь 12, 2008 в 06:35

   эт 18 процедур которые я смогу использовать
10. Krolm:

    Декабрь 12, 2008 в 06:41

    Теперь о процедурах. В твоей программе скорее всего может потребоваться написать процедуру обработки массива. Дело в том, что массивы нельзя просто так пихать в процедуру. Поэтому их сначала надо «оппределить тип массива». Находишь в программе слово interface
    После него пишешь
    type
    TMyarray = array [0..24] of integer;
    Это скажет компилятору, что в программе появился новый тип, в котором ты хочешь хранить данные. Этот тип является массивом из 25 элементов с номерами 0..24. Заметь, что там знак равно а не двоеточие равно. Двоеточие равно это запись значения. А равно это эквивалентность. Как видишь здесь мы устанавливаем эквивалентность TMyArray и говорим что будет он у нас массив.

    Далее в программе ты можешь написать процедуру обработки этого массива. Или функцию. Функция от процедуры отличается тем, что у функции есть результат. А у процедуры – нет. Вот пример программы:
    uses Windows;
    interface
    const Maxi=24;
    type
    TMyarray = array [0..Maxi] of integer;

    implementation

    function ReOrder(a:TMyArray):TMyArray;
    var
    i,j:integer;
    temp:integer;
    begin
    j:=Maxi;
    for i:=0 to Maxi do
    begin
    temp:=a[j];
    a[j]:=a[i];
    a[i]:=temp;
    Maxi:=Maxi-1;
    end;
    end;

    var i:integer;
    inp:TMyArray;
    begin
    WriteLn(‘Введите 25 элементов’);
    for i:=0 to Maxi do
    Read(inp[i]);
    inp:=Reorder(inp);
    for i:=0 to Maxi do
    Write(inp[i],’ ‘);
    Readln;
    end.

    Попробуй понять что делает эта программа
11. iluxa hate inфу:

    Декабрь 12, 2008 в 06:43

    implementation?
12. iluxa hate inфу:

    Декабрь 12, 2008 в 06:44

    пишеш мудренно у нас препод немного по др запись преподавал
13. iluxa hate inфу:

    Декабрь 12, 2008 в 06:46

    program matrica;
    Var a,b: array [1..100,1..100] of integer;
    i,j,min,jmin,n: integer;
    begin
    writeln (‘vvedite razmernost kvadratnoi matrica’);
    readln(n);
    while (n>100) or (n10) or (b[i,j]<-10) then
    repeat
    b[i,j]:=abs(trunc(b[i,j]/10));
    until b[i,j]<10
    else b[i,j]:=abs(b[i,j]);
    end;

    {sortirovka}
    i:=0;
    j:=0;
    for i:=1 to n do begin
    jmin:=i;
    for j:=i to n do if b[j,j]<b[jmin,jmin] then jmin:=j;
    min:=b[jmin,jmin];
    b[jmin,jmin]:=b[i,i];
    b[i,i]:=min;
    end;

    writeln;
    write (‘ishodnai matrica’);
    writeln;
    for i:=1 to n do begin
    for j:=1 to n do write (a[i,j]:8,’ ‘);
    writeln;
    end;
    writeln;
    write (‘otsortirovannaia matrica’);
    writeln;
    for i:=1 to n do begin
    for j:=1 to n do write (b[i,j]:8,’ ‘);
    writeln;

    end;
    readln;
    end.
    как то так
14. Krolm:

    Декабрь 12, 2008 в 06:51

    const maxi = 24;

    Это говорит, что в программе будет константа Maxi, которая будет значить цифру 24

    function ReOrder(a:TMyArray):TMyArray;

    Это значит что наша функция будет работать с массивами нашего типа TMyArray, объявленного раньше. Результатом будет тоже массив.

    j:=Maxi;
    for i:=0 to Maxi do
    begin
    temp:=a[j];
    a[j]:=a[i];
    a[i]:=temp;
    Maxi:=Maxi-1;
    end;

    Этим мы переворачиваем массив задом на перед. Только я тебе нагнал тут. Там должно быть
    for i:=0 to (Maxi div 2) do
    Maxi div 2 это середина массива. Что делает данный код? Он запоминает последний элемент, и на его место пишет первый. Потом на месте первого пишет последний. Потом цикл идет дальше. Он запоминает предпоследний, на его место пишет второй, а на место второго – предпоследний. Ну и так далее до середины массива. Дойдя до середины, наш массив окажется полностью развернутым задом на перед.

    Дальше основная часть программы.
    Объявляем что в программе мы будем хранить массив нашего типа. И переменную i целочисленного типа.
    var i:integer;
    inp:TMyArray;

    for i:=0 to Maxi do
    Read(inp[i]);
    Считываем с клавиатуры элементы массива.

    inp:=Reorder(inp);
    Здесь запускаем нашу процедуру. То есть в переменную нашу inp будут записаны результаты работы функции Reorder над ее содержимым.

    for i:=0 to Maxi do
    Write(inp[i],’ ‘);
    Это выводит результат в строчку
15. iluxa hate inфу:

    Декабрь 12, 2008 в 06:52

    inp:=Reorder(inp); не проходили препод уровень технаря (ты не знаеш когда столовая откр нишо не ел давно?)
16. Krolm:

    Декабрь 12, 2008 в 06:53

    Тот пример который ты дал не использует подпрограммы. Поэтому там это не нужно. И то нужно это именно тогда, когда подпрограмма использует массив.
17. Krolm:

    Декабрь 12, 2008 в 06:53

    В 9 в гз уже открыто обычно.
18. iluxa hate inфу:

    Декабрь 12, 2008 в 06:56

    арх етитская сила эта инфа( мне мож без подпрограмм датут
19. iluxa hate inфу:

    Декабрь 12, 2008 в 06:59

    давай в 8.40 за компом будь я постораюсь выйти на связь пиши ток по простому а то запалит до 11 30 успеемм разобрать ес они конеш не купят мозги и не заблокируют инет
20. Krolm:

    Декабрь 12, 2008 в 06:59

    Ты короч не парься. Я тебе как в тот раз сделаю максимально просто и распишу что и как где. Если что позвоню.Кстати вставляй другую симку, я тебе туда денег кинул. А то тебе дорого с тульской звонить
21. iluxa hate inфу:

    Декабрь 12, 2008 в 07:00

    ладно я иду в душ и за НАЧЕРТ едрена вош !!!!!!!!!
22. Krolm:

    Декабрь 12, 2008 в 07:07

    Ты главное не парься. Если что на зачетной неделе прйду на защиту к тебе и все решу.
23. iluxa hate inфу:

    Декабрь 12, 2008 в 07:11

    НИЧ инжегр подписали на а1 ток успею лия здать ес на след неделе ток покажу а1 в тонких линиях ( физра 5 посещений ост гг ругаюсь с препадом паспорта здор нет хз поставил ил пошлет
24. ilua:

    Декабрь 12, 2008 в 09:29

    заданы N окружностей (запись с двумя полями Troint-центр ,r- радиус)
    ввести с клавы (использовать StringGrid),записать в файл
25. ilua:

    Декабрь 12, 2008 в 09:31

    простейшее задание она сказала пиши прощее и когда хоть шонить напишеш сразу скинь шоб видела работу!! хоть пару строк
    там ешо 2 подзадания
26. Krolm:

    Декабрь 12, 2008 в 09:35

    в разделе implementation
    type
    TPoint = record
    x,y:integer;
    end;
    TRound = record
    coord:TPoint;
    r:integer;
    end;

    Точно из StringGrid делать ввод?
27. ilua:

    Декабрь 12, 2008 в 09:41

    да блин а попроще а ваще давай каканебуть по др ес есть по тупее и проще
28. ilua:

    Декабрь 12, 2008 в 09:42

    в разделе implementation
    я не понял у мя project 1
    не мудри пож по тупеееее делай с IF FOR readln ИЛИ ешо в этом роде
29. ilua:

    Декабрь 12, 2008 в 09:45

    coord:TPoint;
    ну не поверит я эт не проходил
30. Krolm:

    Декабрь 12, 2008 в 09:45

    В разделе interface я ошибся
31. Krolm:

    Декабрь 12, 2008 в 09:46

    Ты заебал илья!!! Иначе никак!!!
32. ilua:

    Декабрь 12, 2008 в 09:48

    ааааААААААА!!!НУ посмотрим ща вобью ес скажет сдул ты виноват и мне здесь три ччаса сидеть
33. Krolm:

    Декабрь 12, 2008 в 10:01

    Короче. Создаешь проект с формой. На форму кидаешь StringGrid, Edit и 2 кнопки (компонент Button).
    В свойствах StringGrid ставишь
    ColCount 3
    FixedCols 0
    FixedRows 0
    В поле Text компонента Edit ввести 4
    В поля Caption кнопок вводишь их названия
    Выглядеть должно так, открой ссылку:
    http://www.procoding.ru/screen.jpg
34. Krolm:

    Декабрь 12, 2008 в 10:05

    Код который должен быть сразу после слова interface:
    type
    TPoint = record
    x,y:integer;
    end;
    TRound = record
    coord:TPoint;
    r:integer;
    end;
    TMyFile = file of TRound;

    Код, который должен быть по клику на ккнопке Задать

    StringGrid1.RowCount:=StrToInt(Edit1.Text);

    Эта кнопка задает количество строчек и соответственно записей окружностей (число N).

    Код, который должен быть по клику на кнопке Сохранить:

    procedure TForm1.Button2Click(Sender: TObject);
    var
    i:integer;
    rec:TRound;
    f:TMyFile;
    begin
    AssignFile(f,’savedfile.dat’);
    Rewrite(f);
    for I := 0 to StringGrid1.RowCount – 1 do
    begin
    rec.coord.x:=StrToInt(StringGrid1.Cells[0,i]);
    rec.coord.x:=StrToInt(StringGrid1.Cells[1,i]);
    rec.r:=StrToInt(StringGrid1.Cells[2,i]);
    Write(f,rec);
    end;
    CloseFile(f);
    end;
35. ilua:

    Декабрь 12, 2008 в 10:06

    я выпросил простейшю прогу : дана матр в каждой строке найти индекс столбца с мах элементом
36. Krolm:

    Декабрь 12, 2008 в 10:18

    Код для проги по матрицам

    program matrica;
    Var a,b: array [1..100,1..100] of integer;
    i,j,max,jmax,n: integer;
    begin
    writeln (‘vvedite razmernost kvadratnoi matrica’);
    readln(n);
    for i:=1 to n do
    begin
    for j:=1 to n do Read(a[i,j]);
    Readln;
    end;

    write (‘ishodnai matrica’);
    writeln;
    for i:=1 to n do begin
    for j:=1 to n do write (a[i,j],’ ‘);
    writeln;
    end;

    for i:=1 to n do
    begin
    max:=a[i,1];
    jmax:=1;
    for j:=2 to n do
    begin
    if a[i,j]>max then
    begin
    max:=a[i,j];
    jmax:=j;
    end;

    end;
    WriteLn(‘Max element v stroke ‘,i,’ ‘,max,’ nahoditsya v stolbce ‘,jmax)
    end;

    readln;
    end.
37. ilua:

    Декабрь 12, 2008 в 10:28

    тут чел хороший тавареш попросил помоч
    заданы координаты Nт точек используя подпрограммы поиска мах и мин найти пары точки растояние между которыми минимально и макс
38. ilua:

    Декабрь 12, 2008 в 10:36

    слушай я жму проверить и как то хреново не идет ((
39. Krolm:

    Декабрь 12, 2008 в 10:48

    Я те что телепат??? ЧТо не идет а может расскажешь?
40. ilua:

    Декабрь 12, 2008 в 10:49

    черный экран ну при запуске ввожу числа до бесконечности
41. ilua:

    Декабрь 12, 2008 в 10:51

    max:=a[i,1];??
42. Krolm:

    Декабрь 12, 2008 в 10:52

    Программа для знакомого\

    program MinMax;

    type
    TPoint = record
    x,y:integer;
    end;

    procedure FindMin(Length: integer;a: array of TPoint);
    var i,j:integer;
    idx1,idx2:integer;
    lenmin,curlen:real;
    begin
    lenmin:=High(Integer);
    for i:=1 to Length do
    begin
    for j := i+1 to Length – 1 do
    begin
    curlen:=sqrt(sqr(a[i].x-a[j].x)+sqr(a[i].y-a[j].y));
    if curlen begin
    idx1:=i;
    idx2:=j;
    lenmin:=curlen;
    end;

    end;
    end;
    WriteLn('Minim rasstoyanie imeut elementi ',idx1,' i ',idx2);
    end;

    procedure FindMax(Length: integer;a: array of TPoint);
    var i,j:integer;
    idx1,idx2:integer;
    lenmax,curlen:real;
    begin
    lenmax:=0;
    for i:=1 to Length do
    begin
    for j := i+1 to Length - 1 do
    begin
    curlen:=sqrt(sqr(a[i].x-a[j].x)+sqr(a[i].y-a[j].y));
    if curlen>lenmax then
    begin
    idx1:=i;
    idx2:=j;
    lenmax:=curlen;
    end;

    end;
    end;
    WriteLn(‘Max rasstoyanie imeut elementi ‘,idx1,’ i ‘,idx2);
    end;

    Var a: array [1..100] of TPoint;
    i,j,max,jmax,n: integer;
    begin
    writeln (‘vvedite kolvo elementov’);
    readln(n);
    for i:=1 to n do
    begin
    Read(a[i].x,a[i].y);
    Readln;
    end;

    FindMin(n,a);
    FindMax(n,a);

    readln;
    end.
43. Krolm:

    Декабрь 12, 2008 в 10:53

    Сначала введи размерность. Например 3. Нажми энтер.
    Потом вводишь например
    1 5 3 Энтер
    4 1 8 Энтер
    7 3 4 Энтер
44. Krolm:

    Декабрь 12, 2008 в 10:55

    max:=a[i,1];??
    Изначально мы считаем что максимальный элемент находится в первом столбце. Потом в цикле просматриваем от второго до последнего. Если нашли что-то больше, чем в первом столбце – запоминаем
45. ilua:

    Декабрь 12, 2008 в 11:12

    curlen шо такое?
46. Krolm:

    Декабрь 12, 2008 в 11:13

    Посчитанная длина между двумя точками
47. ilua:

    Декабрь 12, 2008 в 11:14

    мне пару обьяснений черкни што
48. Krolm:

    Декабрь 12, 2008 в 11:19

    В переменную n записываем размер матрицы.
    writeln (’vvedite razmernost kvadratnoi matrica’);
    readln(n);

    Потом считываем саму матрицу в массив а
    for i:=1 to n do
    begin
    for j:=1 to n do Read(a[i,j]);
    Readln;
    end;

    Выводим матрицу
    write (’ishodnai matrica’);
    writeln;
    for i:=1 to n do begin
    for j:=1 to n do write (a[i,j],’ ‘);
    writeln;
    end;

    Ищем максимальный элемент и выводим на экран.
    for i:=1 to n do //Пробегаемся по строкам
    begin
    max:=a[i,1]; //В каждой строке счиатем что макс это первый
    jmax:=1; //Записываем что он первый
    for j:=2 to n do //Смотрим остальные
    begin
    if a[i,j]>max then //Опа, нашелся элемент побольше
    begin
    max:=a[i,j]; //Тогда записываем его
    jmax:=j; //И его номер
    end;

    end;
    WriteLn(’Max element v stroke ‘,i,’ ‘,max,’ nahoditsya v stolbce ‘,jmax) //Выводим на экран
    end;
49. ilua:

    Декабрь 12, 2008 в 11:36

    program Project1;

    {$APPTYPE CONSOLE}

    uses
    SysUtils;

    type sport=record
    fam:string[20];
    god:integer;
    res:real;
    end;
    tmas=array of sport;
    var a,b:tmas;
    i,n,k,kol:integer;
    f:textfile;
    min:sport;
    buf:sport;
    norm:real;
    godr:integer;
    nper:integer;
    begin
    {writeln(‘Vvedite kol sports’);
    readln(n);
    setlength(a,n);
    for i:=0 to n-1 do begin
    writeln(‘Vv fam’);
    readln(a[i].fam);
    writeln(‘Vv god’);
    readln(a[i].god);
    writeln(‘Vv res’);
    readln(a[i].res);
    end; }
    assignfile(f,’D:\temp\sport\file1.txt’);
    reset(f);
    n:=0;
    while not eof(f) do
    begin
    n:=n+1;
    setlength(a,n);
    readln(f,a[n-1].fam);
    readln(f,a[n-1].god);
    readln(f,a[n-1].res);
    end;
    closefile(f);

    writeln;
    writeln(‘ fam god res’);
    for i:=0 to n-1 do
    writeln(a[i].fam:20,a[i].god:5,a[i].res:10:2);
    //Поиск самого лучшего, мин рез
    min:=a[0];
    for i:=0 to n-1 do
    if a[i].resa[i+1].fam then
    begin
    buf:=a[i];
    a[i]:=a[i+1];
    a[i+1]:=buf;
    end;
    writeln(‘POSLE SORT’);
    writeln(‘ fam god res’);
    for i:=0 to n-1 do
    writeln(a[i].fam:20,a[i].god:5,a[i].res:10:2);
    //в новый массив тех, кто выполнил норматив
    writeln(‘Vv normativ’);
    readln(norm);
    kol:=0;
    for i:=0 to n-1 do
    if a[i].res<=norm then
    begin
    kol:=kol+1;
    setlength(b,kol);
    b[kol-1]:=a[i];
    end;
    if kol=0 then writeln(‘NET’)
    else
    begin
    writeln(‘VIPOL NORM’);
    writeln(‘ fam god res’);
    for i:=0 to kol-1 do
    writeln(b[i].fam:20,b[i].god:5,b[i].res:10:2);
    end;
    //победитель среди тех, кто родился после заданного года
    writeln(‘VV GOD’);
    readln(godr);
    nper:=-1;
    i:=-1;
    while (nper=-1)and(igodr then nper:=i;
    end;
    if nper=-1 then writeln(‘NET’)
    else
    begin
    min:=a[nper];
    for i:=nper to n-1 do
    if (a[i].god>godr) and (a[i].res<min.res) then min:=a[i];
    writeln(‘POBEDITEL POSLE GODA’);
    writeln(min.fam:20,min.god:5,min.res:10:2);
    end;
    readln;
    end.\
    не удаляй
50. iluxa hate inфу:

    Декабрь 18, 2008 в 05:56

    мне корроч дали временый пропуск на17 число я хз могу скаазать што на входе в общагу отобрали и оставить себе но не знаю пройдет ли эта фигня ты когдп в четверг появишся