Платные хостинги     Раскрутка сайта     Книги по программированию

Задания по Паскалю!!HELP, Спасите

- кому не лень помогите написать эти три задачи!просто я уже не успеваю их написать!!прошу вас!!Заранее большое человеческое спасибо!!1)В одномерном массиве, состоящем из n вещественных элементов, вычислить:1. количество элементов массива, равных 0;2. сумму элементов массива, расположенных после минимальногоэлемента.Упорядочить элементы массива по возрастанию модулей элементов.2)Уплотнить заданную матрицу, удаляя из нее строки и столбцы,заполненные нулями ( оформить в виде процедуры ).Найти номер первой из строк, содержащих хотя бы один положи-тельный эл-т ( оформить в виде функции ).3) 1. Описать пользовательский тип данных с именем NOTE типа запись(RECORD), содержащий следующие поля:- NAME - фамилия, имя - (тип STRING);- TELE - номер телефона - (тип STRING);- BDAY - день рождения -массив из трех чисел (тип INTEGER).2. Написать программу, выполняющую следующие действия:- ввод с клавиатуры данных в массив BLOC_NOTE, состоящий из 8-иэлементов типа NOTE; записи должны быть упорядочены по трем первымцифрам номера телефона.- вывод на экран информации о человеке, чья фамилия введена склавиатуры;- если такового нет - выдать на дисплей соответствующее сообщение.Выбор режима работы программы и ввод исходных данных осуществля-ется через окно диалога. Формируемый массив BLOC_NOTE отображаетя вокне исходных данных. Результаты поиска отображаются в окне результа-тов.

- NiKitosНу во первых читай правила форума.Название темы должно отражать суть проблемы.Во вторых подожди до обеда я тебе готовый код выложу.

- Код program Project1;{$APPTYPE CONSOLE}uses  SysUtils;var  GenArray: array[0..100] of real; //Главный массивprocedure FullArray(); // Заполняем массив случайными значениямиvar  I: integer;  r: real;begin  randomize;  for i := 0 to 100 do begin    r := random*10;    GenArray[i] := r;  end;end;function TestToZero():integer; //Сколько нулей в массивеvar  i: integer;  K: integer;begin  k:=0;  for i := 0 to 100 do begin    if int(GenArray[i]) = 0 then k := k+1;  end;  result := k;end;function FindMin(): integer;  //Ищем позицию минимального элементаvar i, min: integer;begin min := 0; for i := 0 to 100 do begin   if GenArray[min] > GenArray[i] then min := i; end; result := min;end;function SummAfterMin(el: integer): real;  //Суммируем элементы после минимальногоvar  i: integer;  summ: real;begin  summ := 0;  for i := el to 100 do begin    summ := summ + GenArray[i];  end;  result := summ;end;procedure SortGenArray(); //Сортируем массив методом пузырька по модулю элементовvar  i, k: integer;  temp: real;begin  for i := 0 to 99 do    for k := i to 100 do begin      If abs(GenArray[i]) < abs(GenArray[k]) then begin        temp := GenArray[i];        GenArray[i] := GenArray[k];        GenArray[k] := temp;      end;    end;end;var  i, h, min: integer;  summ : real;begin  // вызываем все вышеизложенное и выводим на экран.  FullArray;  for i := 0 to 100 do    Writeln(GenArray[i]);  h:=TestToZero;  Writeln('Index zero= ', h);  min := FindMin;  Writeln('Min element position= ', min);  summ:=SummAfterMin(min);  Writeln('Summ after min element= ', summ);  readln;  SortGenArray;  for i := 0 to 100 do    Writeln(GenArray[i]);  readln;end.highlightSyntax('delphimQ4MDk','delphi');Писано на Delphi consol application, просто чистого паскаля нет пока.Жди продолжения, сейчас работы много. Это сообщение отредактировал ~FoX~ - 21.12.2004, 12:46

- Приношу свои извенения за нарушение правил форума!В предь попытаюсь не нарушать их! Добавлено @ 22:18 Цитата (~FoX~ @ 21.12.2004, 12:43) Код program Project1;{$APPTYPE CONSOLE}uses  SysUtils;var  GenArray: array[0..100] of real; //Главный массивprocedure FullArray(); // Заполняем массив случайными значениямиvar  I: integer;  r: real;begin  randomize;  for i := 0 to 100 do begin    r := random*10;    GenArray[i] := r;  end;end;function TestToZero():integer; //Сколько нулей в массивеvar  i: integer;  K: integer;begin  k:=0;  for i := 0 to 100 do begin    if int(GenArray[i]) = 0 then k := k+1;  end;  result := k;end;function FindMin(): integer;  //Ищем позицию минимального элементаvar i, min: integer;begin min := 0; for i := 0 to 100 do begin   if GenArray[min] > GenArray[i] then min := i; end; result := min;end;function SummAfterMin(el: integer): real;  //Суммируем элементы после минимальногоvar  i: integer;  summ: real;begin  summ := 0;  for i := el to 100 do begin    summ := summ + GenArray[i];  end;  result := summ;end;procedure SortGenArray(); //Сортируем массив методом пузырька по модулю элементовvar  i, k: integer;  temp: real;begin  for i := 0 to 99 do    for k := i to 100 do begin      If abs(GenArray[i]) < abs(GenArray[k]) then begin        temp := GenArray[i];        GenArray[i] := GenArray[k];        GenArray[k] := temp;      end;    end;end;var  i, h, min: integer;  summ : real;begin  // вызываем все вышеизложенное и выводим на экран.  FullArray;  for i := 0 to 100 do    Writeln(GenArray[i]);  h:=TestToZero;  Writeln('Index zero= ', h);  min := FindMin;  Writeln('Min element position= ', min);  summ:=SummAfterMin(min);  Writeln('Summ after min element= ', summ);  readln;  SortGenArray;  for i := 0 to 100 do    Writeln(GenArray[i]);  readln;end.highlightSyntax('delphiVhNDUx','delphi');Писано на Delphi consol application, просто чистого паскаля нет пока.Жди продолжения, сейчас работы много. Спасибо за код!!Благодарю вас за то что нашли время!!

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD