Задачи По Паскалю: матрица, строка, записи

[Milionaire]

Помогите написать задачи на Паскале. Очень вас прошу. В долгу не останусь .



1. Дана действительная матрица nЧm. Определить числа B1, …, Bm, равные соответственно: наименьшим значениям элементов строк.
2. Даны натуральное число n, символы S1, S2, …, Sn, среди которых есть двоеточие. Вывести на экран все символы, расположенные до первого двоеточия включительно.
3. Создать базу данных предприятий, которая содержит следующую информацию : код предприятия, название предприятия, адрес предприятия, номинал акций. Поиск предприятий с наибольшим номиналом акций.

(блок схема, текст прогаммы,результат работы программы)

В долгу не останусь плиз помогите . Плиз помогите.

Спасибо

[Serge_Bliznykov]

1-я задача
поиск минимального. цикл по столбцам внутри цикл по строке поиск минимального,
после нахождения минимума записываем его в массив B[номер_текущего_столбца]
всё.

2-я задача. не совсем понятно, что представляют собой "символы S1, S2, …, Sn, " - вообще-то это получается обычная строка.
Тогда вывести все символы это одна строчка:
WriteLn( Copy( S, 1, Pos(';',S)-1);
если же S: array[1..N] of char;
тогда пара строк ;-)

Код: Выделить всё

const N = 20;
var
   S: array[1..N] of char;
   i : integer;
begin
  Readln(S);
  i := 1;
  while S[i]<>';' do begin
     Write(S[i]);
     Inc(i);
  end;
end.

3-я задача. Ищите на форуме по словам RECORD или ЗАПИСИ
например, [url=http://forum.developing.ru/showthread.php?t=13810]тут[/URL]
[url=http://forum.developing.ru/showthread.php?t=14005]или тут[/url]
[url=http://forum.developing.ru/showthread.php?t=12745]или (записи с данными о ЦПУ) тут[/url] 
[url=http://forum.developing.ru/showthread.php?t=13725]или тут[/url] ... 
Изучайте!

Ну, и, для затравки:
[code]
type
  str100 = string[100];
  
  
type FactoryRec = Record
   Code : Longint;
   Name : str100;
   Address : str100;
   ActionValue : double; {номинал акций}
end;

var
  FactoryArray : array[1..100] of FactoryRec;
...
<банальная сортировка по ActionValue>

сразу возникает вопрос - сколько будет предприятий и откуда брать исходные данные...
я бы рекомендовал воспользоваться ТИПИЗИРОВАННЫМИ файлами
(var F: file of FactoryRec поискать здесь на форуме (будете искать по слову RECORD обязательно и на типизированные файлы наткнётесь!)....

удачи.

[Хыиуду]

>>WriteLn( Copy( S, 1, Pos(';',S)-1);
Только вместо точки с запятой передать двоеточие надо.

[Serge_Bliznykov]

Только вместо точки с запятой передать двоеточие надо.

Хыиуду, ну разумеется, Вы правы! и ещё скобки закрывающей не хватает ;-)))
WriteLn( Copy( S, 1, Pos(':',S)-1));