Closed TopicStart new topicStart Poll

Страницы: (4) 1 2 3 4 
дата: [ i ]
  • Unregistered
  • Статус:
  • Свободен
Так алгоритм банальнейший. :)

А продвинутые orderы всякие используют, бо данные все уже давно с баз данных идут. А контролы сами сортируют. :)
-=Велла=-
дата: [ i ]
  • Group Icon
  • Акула пера
  • Репутация: 2775
  • Статус: Паникёрша и скандалистка )))
  • Member OfflineЖенщинаСвободна
QUOTE (mvf23 @ 01.04.2008 - время: 03:53)
-=Велла=-, сортировка слиянием (вторая половинка задания) нужна?

Я еще методичку даже прочесть не успела )))))
Ну вы пишите там по заданию сортировки, а я тогда ужо красиво все в файлы оформлю, ввод-вывод rolleyes.gif
дата: [ i ]
  • Unregistered
  • Статус:
  • Свободен
QUOTE (-=Велла=- @ 02.04.2008 - время: 10:01)
QUOTE (mvf23 @ 01.04.2008 - время: 03:53)
-=Велла=-, сортировка слиянием (вторая половинка задания) нужна?

Я еще методичку даже прочесть не успела )))))
Ну вы пишите там по заданию сортировки, а я тогда ужо красиво все в файлы оформлю, ввод-вывод rolleyes.gif

напиши пожалуйсто про сортировку. до нее я сам дошел. и сортировку не смог.
дата: [ i ]
  • Unregistered
  • Статус:
  • Свободен
QUOTE (-=Велла=- @ 31.03.2008 - время: 22:21)
засада... я сортировку не умею... еще в универе что-то не пошло... ((((((( соррьки....

А "Программирование интерационных формул для расчета функций"?
do-do
дата: [ i ]
  • Group Icon
  • Мастер
  • Репутация: 349
  • Статус: Поболтаем?
  • Member OfflineМужчинаСвободен
Усе! Совет - используя дебагер прогони код - тогда осознаешь (!!) как всплывает пузырек

CODE

(***************************[sxn.today]*******************************)
(*                                                                     *)
(*  File   : Buble-Gum.pas                                             *)
(*  Created: 01/04/2008                                                *)
(*  Reason : работа с двумерными массивами (лаб. работа N 5)           *)
(*  Product: сортировка и перестановка в массиве                       *)
(*  Author : do-do                                                     *)
(*  Purpose: сортировка двумерного массива методом вставки             *)
(*           Данные (тип:integer) считываются из текстового файла      *)
(*           d:\lab1\dat1.txt                                          *)
(*           Данные в файле записаны в 2е колонки                      *)
(*           Программа выводит следующие кода завершения               *)
(*           128 - файл с данными отсутсвует                           *)
(*           129 - элемент массива не целый                            *)
(*           n   - здесь n-1 числ успешно считанных строк     массива  *)
(*                 ДО возникновения ошибки                             *)
(*           0   - нормальное завершение программы                     *)
(***************************[sxn.today]*******************************)
program buble_gum;

const
M=11; (* размер массива *)
MyFileName='d:\lab1\datI.txt'; (* файл с тестовым массивом *)

Type
MyArray1= array[1..2*M] of integer;    (* рабочий одномерный массив *)
MyArray2= array[1..M,1..2] of integer; (* рабочий двумерный массив *)

VAR
B:MyArray1;
X:MyArray2;



procedure ListArray2 (var Y:MyArray2); (*процедура распечатки (в строчку) матрицы Y*)
   var j:byte;
begin
   Writeln;
   for j:=1 to M DO write('(',Y[j,1],':',Y[j,2],') ');
   Writeln;
end; (*ListArray2*)

procedure OpenMyFile; (*открыть файл, считать массив*)
var
f:text; (* задаем файл *)
i:byte;

begin
Assign(f,MyFileName);
{$I-}
(* выключили проверку ошибок ввода *)
Reset(f);

IF IOResult <> 0 then
begin writeln('File ', MyFileName, ' not found. Stop - 128'); halt(128); end
    else
begin
{$I+}
       for i:=1 to M do
                                   
  begin
IF SeekEOLn(f) then begin writeln('Error in READ. Stop [',i,']'); halt(i);end;
{$I-}
                       readln(f,X[i,1],X[i,2]);
IF IOResult <> 0 then
begin writeln('Error in array. Stop - 129 [',i,']'); halt(129); end
{$I+}
                       end
 end;
Close(f);
(*Инициализируем Одномерный массив - сливаем двумерный X в одномерный*)
For i:=1 to M DO Begin B[i]:=X[i,1];B[i+M]:=X[i,2];End;
Writeln('ListArray. Step 1');
ListArray2(X);
end; (* OpenMyFile *)



   
procedure Bubble2(L:byte;comment:string); (* сортируем столбик L глобального массива X *)
  var i,j : byte;
      t:integer;
begin
(*Тело подпрограммы сортировки - берем НАМ известную *)
for i:=M-1 downto 1 do
   for j:= 1 to i do IF X[j,L] > X[j+1,L] then
begin t:=X[j,L]; X[j,L]:=X[j+1,L]; X[j+1,L]:=t; end;
   Writeln(comment);
   ListArray2(X); (*Выводим отсортированный столбик, другой нас мало интересует*)
end;(* Bubble2 *)


procedure Bubble1; (* сортируем одномерный  массив B *)

var i,j:byte;
   t:integer;

begin

Writeln('Not Sorting array ');
For i:=1 to 2*M do write (B[i]:8);
Writeln;
(* Используем известную нам процедуру сортировки *)
for i:=M-1 downto 1 do
   for j:= 1 to i do IF B[j] > B[j+1] then
begin t:=B[j]; B[j]:=B[j+1]; B[j+1]:=t; end;
Writeln('Sorting array ');
For i:=1 to 2*M do write(B[i]:8);
writeln;
end;(* Bubble1 *)


BEGIN    (*Тело программы*)
OpenMyFile;
Bubble2(1,'Sorting 1 Column');
Bubble2(2,'Sorting 2 Column');
Bubble1;
END.


Это сообщение отредактировал do-do - 03-04-2008 - 10:32
mvf23
дата: [ i ]
  • *
  • Специалист
  • Репутация: 62
  • Статус: Давай пообщаемся!
  • Member OfflineМужчинаСвободен
QUOTE (do-do @ 03.04.2008 - время: 10:31)
Усе! Совет - используя дебагер прогони код - тогда осознаешь (!!) как всплывает пузырек

CODE

(***************************[sxn.today]*******************************)

если бы я был преподавателем по поводу этой программы я бы вынес такой вердикт:

1) самый главный косяк - не понято задание:
QUOTE
заполнить по возрастанию одномерный массив В (длинной 2М элементов) методом слияния из обоих столбцов массива А.

Метод слияния - это когда из двух и более упорядоченных последовательностей собирают одну. Гугли, или читай методичку (Стр. 3. скана) Вывод: решена только половина задания. Оценка не выше "трёх"
2) использовано процедурное программирование... А мы его не изучали. Вывод: писал не сам. Значит будем оценивать того программиста, которой это написал в три раза строже...
3) за счет проверок корректности очень усложнены операции ввода-вывода. Этого не требовалось, мы этого не изучали. Вывод: писал не сам.
4) не совсем корректное использование процедурного программирования. Логически разные задачи выполняются в одной процедуре. Смысл процедур в их универсальности, в возможности их многократного использования. Если я попытаюсь отсортировать массив, используя указанные процедуры - то мне обязательно придется выводить какие-то данные на экран. Если я захочу считать файл, то мне придется задать его имя константой, задать два массива с определенными именами и т.п. Вывод: процедурное программирования использовано неверно.
5) каментоф много, но форматирование кода "хромает". 3 оператора в одной строке - явный перебор. Плюс помесь CamelCase, AllCaps и всех маленьких букв, хоть это и паскаль, но хороший программист должен придерживаться одного стиля...

Вывод: низачод. На пересдачу.
do-do
дата: [ i ]
  • Group Icon
  • Мастер
  • Репутация: 349
  • Статус: Поболтаем?
  • Member OfflineМужчинаСвободен
QUOTE
На пересдачу

Как грится НАХ. Делал на коленке, больше времени ушло на шапку.

Если надо СЛИТЬ 2а упорядоченных массива в один B - сливаешь после выполнения 2ой процедуры сортировки (оба столбца УЖЕ отсортированы) всего то...Т.е. делаешь процедуру Swap2Array - например, и применяешь (массив то глобальный) после 2х предыдущих сортировок.
К божескому виду пусть соискатель приводит.... я вообще хотел все через любимые динамические массивы сделать.... (универсально в высшей степени), но судя по первой лабе... им этого не нужно :)

Методички пущай студенты читают - оно полезнее, я ток первый лист глянул, как оформлять лабу :)
Главное робит прожка, простые ошибки ловит. Кому надо, думаю трансформирует (а лучше напишет новую) по своему вкусу (кстати, в этом случае процедуры очень полезны)

P.S. Методически правильнее эту задачу решать с помощью ObjectPascal (его расширения в Pascal 7) Тут заводим метод, сортировка одномерного массива, сортировка многомерного.... и проч. понятнее было бы по любому

Это сообщение отредактировал do-do - 03-04-2008 - 16:13
mvf23
дата: [ i ]
  • *
  • Специалист
  • Репутация: 62
  • Статус: Давай пообщаемся!
  • Member OfflineМужчинаСвободен
QUOTE (do-do @ 03.04.2008 - время: 15:46)
Тут заводим метод, сортировка одномерного массива, сортировка многомерного.... и проч. понятнее было бы по любому

Да ну... Имхо, все это "от лукавого": имхо линейный, процедурный или объектый стиль программирования - это вовсе не главное, в такой задаче... Главное - это сортировкам научить.

Дональд Кнут считаейтся одним из наиболее выдающихся программистов 20го века, просто потому что он алгоритмы правильные знает и умеет придумывать. При этом я совсем не уверен - знаком ли он со всеми премудростями объектного программирования.

Думаю если бы тебя сразу вгрузили классами, шаблонами, инкасуляциями, сложными наследованиями, друзьями класса, абстрактными методами, публичными и приватными членами класса и прочими премудростями объектного программирования - то напрочь бы отбили все желание программировать :) Так что МЕТОДИЧЕСКИ, с точки зрения методики преподавания - все правильно.

Так что всему свое время. Для меня например нет никакой разницы - написать такую программу с использованием средств объектного программирования или без него, она же простенькая совсем. Городить тут классы, процедуры и т.п. имхо только код удлинять :) А использовать тут динамические массивы - вообще изврат. 50% кода будет посвящено обслуживанию динамических массивов. Работать будет медленнее, да и вообще непонятно зачем оно нужно, если максимальный размер массива - 11 элементов. :)
do-do
дата: [ i ]
  • Group Icon
  • Мастер
  • Репутация: 349
  • Статус: Поболтаем?
  • Member OfflineМужчинаСвободен
QUOTE (mvf23 @ 03.04.2008 - время: 16:43)
Работать будет медленнее, да и вообще непонятно зачем оно нужно, если максимальный размер массива - 11 элементов. :)

Когда я вкурил Объектный Паскаль - а это было, ну шоб не соврать совсем году так в 92-93 (тогда еще Борланд распродавала за смешные бабки дистрибутивы семерки) МНЕ ОН ОДНОЗНАЧНО был понятнее, чем просто линейный. Но паскаль я много лет уж не пользую - пришлось вспомнить :) Хотя конечно, шоб зачет получить - делать надо проще и быстрее (а чего быстрее списать уже готовую прогу :) )


Я бы челу не Кнута советовал почитать (будет он с mix разбираться :)? ) а книжку Жемчужины программирования. Джон Бентли
Там и сортировка есть и оптимизация :)
mvf23
дата: [ i ]
  • *
  • Специалист
  • Репутация: 62
  • Статус: Давай пообщаемся!
  • Member OfflineМужчинаСвободен
Ну ладно уж, так и быть... Потратил 25 минут личного времени. Чтобы преподаватель(ница) был(а) довольна за основу взял пример из методички.

Вообще оценивая строго я бы за этот пример из методички "пятерку" бы не поставил. В частности можешь передать своему преподавателю, что использование меток и операторов GOTO - дурной тон. Хотя лучше не стоит, а то ещё расстроится :) Короче преподаватель всегда прав, так что пусть наслаждается...

CODE
program SortNum;
{ Программа Лабораторной работы №5 Вариант №29. vano-m, студент группы sxn.today
 Выполнена под чутким руководством Веллы, do-do, mvf и JeyLo. }

var
 A : array [1..11,1..2] of integer;
 B : array [1..22] of integer;
 M,i,j,t,ic,kc : integer;
 Fin, Fout : text;

label
 Vvod_M;
begin
{ Открытие входного и выходного файлов  }
assign(Fout, 'UMNIK5.RES');
rewrite(Fout);
assign(Fin,'D:\LAB1\DATI.TXT');
reset(Fin);

{ Ввод количества строк массива }
Vvod_M:
writeln('Введите число строк массива');
readln(M);
if  (M < 2) or (M > 11) then
begin
   writeln('Недопустимое значение!');
   goto Vvod_M;
end;

{ заполнение массива числами из файла  }
for i := 1 to M do
   for j := 1 to 2 do read(Fin,A[i,j]);

{ Закрытие входного файла  }
close (Fin);

{ Распечатка исходного массива }
writeln(Fout,'Исходный массив A из ',M,'x2 элементов');

for i := 1 to M do
begin
   for j:=1 to 2 do write(Fout, A[i,j]:6);  { печать текущей строки }
   writeln(Fout);
end;
writeln(Fout);

{ сортировка столбцов A "пузырьком". }
{ Поскольку столбцы одинакового размера - сортируем оба столбца за один "проход" }

 for i := M-1 downto 1 do
  for j := 1 to i do
  begin
     if a[j,1] > a[j+1,1] then {первый столбец}
     begin
        t := a[j,1];
        a[j,1] := a[j+1,1];
        a[j+1,1] := t;
     end;
     if a[j,2] > a[j+1,2] then     {второй столбец}
     begin
        t := a[j,2];
        a[j,2] := a[j+1,2];
        a[j+1,2] := t;
     end;
  end;

{теперь сливаем оба столбца в массив B}
ic := 1;
kc := 1;
for i := 1 to 2*M do
  if ic > M then
   begin
      B[i] := A[kc,2];
      kc := kc + 1;
   end
  else
  if kc > M then
   begin
      B[i] := A[ic,1];
      ic := ic + 1;
   end
  else
  if A[ic,1] < A[kc,2] then
    begin
      B[i] := A[ic,1];
      ic := ic + 1;
    end
  else
    begin
      B[i] := A[kc,2];
      kc := kc + 1;
    end;

{ Печать результатов }
writeln(Fout, '=== Результаты работы ===');
writeln(Fout,'Массив A, каждый столбец которого отсортирован обменом');
for i := 1 to M do
begin
   for j:=1 to 2 do write(Fout, A[i,j]:6);  { печать текущей строки }
   writeln(Fout);
end;
writeln(Fout);

writeln(Fout,'Упорядоченный массив B, полученный слиянием из столбцов массива A ');
for i := 1 to 2*M do write(Fout, B[i]:4);  

close(Fout);
end.

дата: [ i ]
  • Unregistered
  • Статус:
  • Свободен
Кнута не читать??? Богохульники!
mvf23
дата: [ i ]
  • *
  • Специалист
  • Репутация: 62
  • Статус: Давай пообщаемся!
  • Member OfflineМужчинаСвободен
QUOTE (mvf23 @ 03.04.2008 - время: 16:43)
Городить тут классы, процедуры и т.п. имхо только код удлинять :)

Кстати в подтверждение этих слов - если убрать комменты и форматирование, то мой вариант программы (без процедур, функций, и повторного использования кода) получился даже чуть-чуть покороче :) Байт на 40... :)

А если тут объектов расплодить "в лучших традициях" - то код вырастет ещё процентов на 20-25. А если ещё и динамические массивы устроить - то и того больше... Результат: почти в два раза больше кода, а результат - такой же...

Вывод: чтобы не создавать себе лишней работы - нужно соразмерять сложность задачи и сложность способов её решения.

Это сообщение отредактировал mvf23 - 03-04-2008 - 21:19
-=Велла=-
дата: [ i ]
  • Group Icon
  • Акула пера
  • Репутация: 2775
  • Статус: Паникёрша и скандалистка )))
  • Member OfflineЖенщинаСвободна
vano-m должен mvf23 уже вагон пива! )))))
do-do
дата: [ i ]
  • Group Icon
  • Мастер
  • Репутация: 349
  • Статус: Поболтаем?
  • Member OfflineМужчинаСвободен
QUOTE (mvf23 @ 03.04.2008 - время: 21:12)

Кстати в подтверждение этих слов -

Я хоть первую страницу методички прочел :) Там черным по белому - в программе ДОЛЖНЫ быть проверки на возможные ошибки :)
А ежли файл D:\LAB1\DATI.TXT потерли ? А мож в DATI.TXT ошибки в формате данных :)?
дата: [ i ]
  • Unregistered
  • Статус:
  • Свободен
Методичку не четал, бо на жопорезе. Но в данном случае do-do немножко прав. Алгоритмизация и красота кода на первом этапе не важна. Впрочем, она не важна и в дальнейшем, если не умеешь реагировать "на дурака" и думать про то, что может сделать дурак.

mvf23, знаешь, чем в своей основной массе русский софт отличается от западного? Наш сделан программистами для красоты, а там для людей. У меня банальнейший (правда без MFC) визард на четыре степа (суммарно на шесть) занимает не меньше трех дней. А нарисовать GINA proxy 6 часов.

.... wink.gif

Это сообщение отредактировал JeyLo - 04-04-2008 - 10:55
mvf23
дата: [ i ]
  • *
  • Специалист
  • Репутация: 62
  • Статус: Давай пообщаемся!
  • Member OfflineМужчинаСвободен
QUOTE (do-do @ 04.04.2008 - время: 00:14)
Там черным по белому - в программе ДОЛЖНЫ быть проверки на возможные ошибки :)
А ежли файл D:\LAB1\DATI.TXT потерли ? А мож в DATI.TXT ошибки в формате данных :)?

Угу-угу :) Согласен и с тобой и с JeyLo в этом отношении.

В случае с описанной задачей и проверками корректности ввода-вывода предложенными do-do - все это конечно здорово, но не входит в стандартные средства Паскаля (определенные Н.Виртом и позже в ISO 7185)... А использовать какие-то компилятор-зависимые возможности - конечно неплохо, но нет никаких гарантий, что в ВУЗе vano-m не используют какой-нибудь GNU Pascal в режиме ANSI ISO...

В частности, поэтому и не учат обычно таким вещам... Вообще же проблема не только в этом. На практике - многим студентам не математических специальностей даже что такое матрица, и что есть пузырек понять сложно, поэтому не до подобных тонкостей, лишь бы хоть что-то усвоили... Вы сначала попробуйте пообщаться с реальными студентами не математических специальностей, а потом поговорим... wink.gif

К слову, даже говоря о потенциальных ошибках, которые могут возникнуть при использовании Turbo Pascal - все равно do-do обработал не все ошибки :) Например Range Checking... Например вывод на печать длинных чисел. И т.п. Высматривать влом.

2 JeyLo: переварил твой код с трудом :) Я последнее время только на скриптовых языках пишу - или кроссплатформенное или под веб. Поэтому такие нэйтив-вин-апи штуки перевариваю со скрипом... Долго думал зачем тебе вагина-прокси ('gina - это слэнговое vagina). Пришлось погуглить, зато теперь я знаю что это не только вагина, но и "Graphical identification and authentication"... :) Короче - глядя на подобный код радуюсь, что не пишу под винду :) Самое ужасное в этом то, что выйдет какая-нить Vienna, чуть-чуть изменится API, и превед... И такая аккуратно написанная обработка всяких интересных событий вроде блокировки рабочей станции - станет работать через зад...

Впрочем речь не об этом. С самой мыслью о том, что нужно предусматривать все грабли - согласен. Но требовать этого от студентов нематематических специальностей - имхо, в меру бессмысленно...Особенно с учетом того, что все грабли даже очень опытный программист предусмотреть может не всегда :/

QUOTE (JeyLo @ 04.04.2008 - время: 00:46)
Алгоритмизация и красота кода на первом этапе не важна. Впрочем, она не важна и в дальнейшем, если не умеешь реагировать "на дурака" и думать про то, что может сделать дурак.

При обучении в первую очередь важна алгоритмизация. Ведь обработка ошибок по сути тоже представляет собой некий алгоритм. Не понимая что есть алгоритм, и как работают банальные вещи, вряд ли возможно обрабатывать ошибки.

ИМХО, ребенок СНАЧАЛА должен научиться ходить, а уже потом научиться НЕ запинаться за мелкие препятствия... Боюсь если начать с того, что объяснить, что есть препятствия, за которые не надо запинаться - то ребенок с перепугу не пойдет вообще... Зато ему достаточно запнуться один раз и упасть больно на коленку чтобы научиться смотреть под ноги.

В общем do-do, JeyLo я с вами согласен, что эти вещи нужны и важны, но вы рассуждаете как "матерые программисты", думаю вам действительно стоит пообщаться с живыми студентами (не программистами) изучающими информатику, чтобы стать чуточку "ближе к народу"... :)

Это сообщение отредактировал mvf23 - 04-04-2008 - 06:38
do-do
дата: [ i ]
  • Group Icon
  • Мастер
  • Репутация: 349
  • Статус: Поболтаем?
  • Member OfflineМужчинаСвободен
QUOTE (mvf23 @ 04.04.2008 - время: 05:45)
А использовать какие-то компилятор-зависимые возможности - конечно неплохо, но нет никаких гарантий, что в ВУЗе vano-m не используют какой-нибудь GNU Pascal в режиме ANSI ISO...




Я конечно не Вирт, а так просто do-do, но даж я прочел :) Курс называется у человека программирование на TURBO PASCAL(e), конечно там может и 3я версия рулит :) НО IMHO все ж по умолчанию 7ка :)
И зная традиции, историю и наблюдая компы в учебных классах скажу - там нету даже free pascal(я) (котрый кстати имеет режим совместимости с турбиной) какие нах.. GNU :) чего препод лет 20 взад научился то и говорит

QUOTE
все равно do-do обработал не все ошибки :) Например Range Checking... Например вывод на печать длинных чисел. И т.п. Высматривать влом.

Угу, а откуда длинные целые вылезут ? Проверка идет на соответствие INTEGER - при загрузке массива. Или ДА или Нет. Хотя возможно восав число long...(забыл как оно в паскале дальше) он просто отбросив лишние байты присвоит нечто.... Гм...проверил - прога отследила ЭТУ ошибку (все ж паскаль более строг к соответствию типов :) чем С)

QUOTE
В частности, поэтому и не учат обычно таким вещам... Вообще же проблема не только в этом. На практике - многим студентам не математических специальностей даже что такое матрица, и что есть пузырек понять сложно, поэтому не до подобных тонкостей, лишь бы хоть что-то усвоили... Вы сначала попробуйте пообщаться с реальными студентами не математических специальностей, а потом поговорим... wink.gif


Сам преподаю...общаюсь..да и местный зачинатель топика то ж студент :)
дата: [ i ]
  • Unregistered
  • Статус:
  • Свободен
QUOTE (-=Велла=- @ 03.04.2008 - время: 22:01)
vano-m должен mvf23 уже вагон пива! )))))

Действительно! mvf23 огромное спасибо! Выручаете бедного студента как можете!

Во вторник попробую сдаться.

ЗЫ "студент гр. sxn.today" это мощно)))
mvf23
дата: [ i ]
  • *
  • Специалист
  • Репутация: 62
  • Статус: Давай пообщаемся!
  • Member OfflineМужчинаСвободен
QUOTE (do-do @ 04.04.2008 - время: 10:34)
Гм...проверил - прога отследила ЭТУ ошибку (все ж паскаль более строг к соответствию типов :) чем С)

ну наверное не прога отследила, а дебаггер в IDE.... :) А прога runtime error с каким-нибудь мутным номером наверное выдала... Кстати, ровно точно также она поступает, если оставить не обработанными ошибки ввода-вывода...

QUOTE (do-do @ 04.04.2008 - время: 10:34)
Сам преподаю...общаюсь..да и местный зачинатель топика то ж студент :)

ну вот давай и спросим у него, что он думает по поводу объектного программирования, динамических массивов и обработки ошибок ввода-вывода... :)

QUOTE (do-do @ 04.04.2008 - время: 10:34)
Курс называется у человека программирование на TURBO PASCAL(e)

Гм... Не видел. Где это написано?

QUOTE (do-do @ 04.04.2008 - время: 10:34)
чего препод лет 20 взад научился то и говорит

в том-то и бонус... Когда учишь стандарту языка - можешь быть уверен в том, что и 20 лет назад программа компилировалась, и что через 20 лет она будет нормально компилироваться. А конкретные компиляторы могут рождаться и умирать, принося и унося новые багофичи...

QUOTE (vano-m @ 04.04.2008 - время: 11:32)
Действительно! mvf23 огромное спасибо! Выручаете бедного студента как можете!

Во вторник попробую сдаться.

ЗЫ "студент гр. sxn.today" это мощно)))

Угу-угу... Кстати - попробуй всё же разобраться как оно работает, чтоб тебе польза была не только для зачетки, но и для общего развития... :)

Будут вопросы - задавай, не стесняйся, а то тут "матерые программисты" вместо того, чтоб объяснять по-человечески, какие-то эзотерические споры ведут от безделья :)

Это сообщение отредактировал mvf23 - 04-04-2008 - 13:59
do-do
дата: [ i ]
  • Group Icon
  • Мастер
  • Репутация: 349
  • Статус: Поболтаем?
  • Member OfflineМужчинаСвободен
QUOTE (mvf23 @ 04.04.2008 - время: 13:46)

ну наверное не прога отследила, а дебаггер в IDE.... :) А прога runtime error с каким-нибудь мутным номером наверное выдала...

Неа ...
IDE не пользуюсь :) Far+компилятор командной строки. Обработчик ошибок (мой) штатно сработал - указал строчку в которой ошибка :)


дата: [ i ]
  • Unregistered
  • Статус:
  • Свободен
QUOTE (mvf23 @ 04.04.2008 - время: 13:46)

Угу-угу... Кстати - попробуй всё же разобраться как оно работает, чтоб тебе польза была не только для зачетки, но и для общего развития... :)

Будут вопросы - задавай, не стесняйся, а то тут "матерые программисты" вместо того, чтоб объяснять по-человечески, какие-то эзотерические споры ведут от безделья :)

спасибо. да я впринципе с 1 по 4 лабу как текст увидел, так сразу и суть и алгоритм понял. пятую еще пока пытаюсь понять, до перестановок уже все въехал. до конца семестра остались две лабы... потом экзамен. ээх. уже начал готовится...
дата: [ i ]
  • Unregistered
  • Статус:
  • Свободен
Уррра! пятая лаба здана! осталось написать подпрограммы.

ВСЕМ огромное спасибо!
дата: [ i ]
  • Unregistered
  • Статус:
  • Свободен
Народ. Понимаю, конечно, что достал тут уже всех. Но мну застопорился на последней лабе. Из зп чего не дают написать курсовую. Помогите в последний разок , а?
do-do
дата: [ i ]
  • Group Icon
  • Мастер
  • Репутация: 349
  • Статус: Поболтаем?
  • Member OfflineМужчинаСвободен
QUOTE
Но мну застопорился на последней лабе

Ты как царь горы понимаешь шо написал, для тех кто в танке разжуй Ху из Что

P.S. Кого достал, те не ответят - так шо брось, чай не институтка. Сермягу излагай
дата: [ i ]
  • Unregistered
  • Статус:
  • Свободен
Вобщем тут такое дело...

Прочитать в одномерный массив строк (длинной по 74 символа) первые 73 символа каждой строк файла DATF.TXT (файл на серваке в универе). Используя функцию, заполнить выходной одномерный массив (элементы - строки, длинной восемь символов) числами.

Процедуры
1) Составить строковую функцию, выбирающую из строки первое число - первую подстроку между пробелами, заменяя при выборе в исходной строке выбранные символы пробелами.
2) Аечать выходного массива по пять чисел в строке выполнить с помощю процедуры.

M<=10 М- кол-во строк
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)

Страницы: (4) 1 2 3 4

Closed TopicStart new topicStart Poll0


Рекомендуем почитать также топики:

Dungeon Siege 2

18 Wheels Of Steel HAULIN

ЕДКИЙ ЗАПАХ

интернет на 2 компа

мфу



>