Функция

[Александр1993]

Задание 9
Дан массив марок автомашин M1, ... , M25.
Определить K1 - количество ГАЗ - 21; К2 - количество ЗИЛ -130; КЗ - количество КамАЗ. Вычислить К = (K1 + K2 + K3)/25.

Uses Crt;
const
  m: array[1..25] of String = ( 
    'ГАЗ-21',
    'ЗИЛ-130',
    'КамАЗ',
    'Мерседес',
    'БМВ',
    'Феррари',
    'ЗИЛ-130',
    'ЗИЛ-130',
    'ГАЗ-21',
    'ЗИЛ-130',
    'КамАЗ',
    'Мерседес',
    'КамАЗ',
    'КамАЗ',
    'ГАЗ-21',
    'БМВ',
    'Феррари',
    'ЗИЛ-130',
    'КамАЗ',
    'Мерседес',
    'КамАЗ',
    'КамАЗ',
    'ГАЗ-21',
    'Феррари',
    'ЗИЛ-130'
  );
var
  i: Integer;
  k1: Integer;
  k2: Integer;
  k3: Integer;
  k: Real;
begin
  ClrScr; 
  k1 := 0;
  k2 := 0;
  k3 := 0;
  for i := 1 to 25 do 
    if m[i] = 'ГАЗ-21' then 
      Inc(k1) 
    else if m[i] = 'ЗИЛ-130' then 
      Inc(k2)
    else if m[i] = 'КамАЗ' then 
      Inc(k3);
  Writeln('k1 = ', k1); 
  Writeln('k2 = ', k2);
  Writeln('k3 = ', k3);
  k := (k1 + k2 + k3) / 25; 
  Writeln('k = (k1 + k2 + k3) / 25 = ', k:1:3); 
  ReadKey;
end.

решил задачу простым способом, но не понимаю, как сделать ее через функцию ( в задании требуется именно через нее), подскажите плиз.

[Александр1993]

const
  m: array[1..25] of String = ( 
    'ГАЗ-21',
    'ЗИЛ-130',
    'КамАЗ',
    'Мерседес',
    'БМВ',
    'Феррари',
    'ЗИЛ-130',
    'ЗИЛ-130',
    'ГАЗ-21',
    'ЗИЛ-130',
    'КамАЗ',
    'Мерседес',
    'КамАЗ',
    'КамАЗ',
    'ГАЗ-21',
    'БМВ',
    'Феррари',
    'ЗИЛ-130',
    'КамАЗ',
    'Мерседес',
    'КамАЗ',
    'КамАЗ',
    'ГАЗ-21',
    'Феррари',
    'ЗИЛ-130'
  );
var
 i, k1, k2, k3: Integer;
 k: Real;
function mashini(x:integer):integer;
  var i:integer;
  begin
  for i:=1 to 25 do
  if m[i] = 'ГАЗ-21' then inc(x);
  mashini:=x;
  end;
function mashini2(y:integer):integer;
  var i:integer;
  begin
  for i:=1 to 25 do
  if m[i] = 'ЗИЛ-130' then inc(y);
  mashini2:=y;
  end; 
function mashini3(z:integer):integer;
  var i:integer;
  begin
  for i:=1 to 25 do
  if m[i] ='КамАЗ' then inc(z);
  mashini3:=z;
  end; 
begin
k1:= mashini(k1);
k2:= mashini2(k2);
k3:= mashini3(k3);
k:=(k1+k2+k3)/25;
writeln('k1=',k1 ,' k2= ',k2 ,' k3=',k3 ,' k=',k)
end.

щас посидел подумал, вроде сделал, проверьте плиз.

[Valio]

Лучше так:

Function Mashin(S : String) : Integer;
Var i : Integer;
Begin
Result := 0;
For i := 1 To 25 Do If m[i] = S Then Inc(Result);
End;

.....

k1 := Mashin('ГАЗ-21');

В функцию передаёшь марку машины и она считает сколько раз эта марка встретилась.

[Александр1993]

Ок, хорошо, запомню...

[Александр1993]

еще вопросик, когда решаю задачу модулем Паскаля, как делать с этими 3 функциями??

program machine;
uses crt, MOD;
const
m: array[1..25] of String = ( 
    'ГАЗ-21',
    'ЗИЛ-130',
    'КамАЗ',
    'Мерседес',
    'БМВ',
    'Феррари',
    'ЗИЛ-130',
    'ЗИЛ-130',
    'ГАЗ-21',
    'ЗИЛ-130',
    'КамАЗ',
    'Мерседес',
    'КамАЗ',
    'КамАЗ',
    'ГАЗ-21',
    'БМВ',
    'Феррари',
    'ЗИЛ-130',
    'КамАЗ',
    'Мерседес',
    'КамАЗ',
    'КамАЗ',
    'ГАЗ-21',
    'Феррари',
    'ЗИЛ-130'
  );
var
 i, k1, k2, k3: Integer;
 k: Real;
begin
clrscr;
k1:= mashini(k1);
k2:= mashini2(k2);
k3:= mashini3(k3);
k:=(k1+k2+k3)/25;
writeln('k1=',k1 ,' k2= ',k2 ,' k3=',k3 ,' k=',k)
end.

а после:

unit MOD;
interface
function mashini(x,y,z:integer):integer;
var i: integer
implementation
function mashini(x:integer):integer;
  var i:integer;
  begin
  for i:=1 to 25 do
  if m[i] = 'ГАЗ-21' then inc(x);
  mashini:=x;
  end;
function mashini(x,y,z:integer):integer;
var i: integer
implementation
function mashini2(y:integer):integer;
  var i:integer;
  begin
  for i:=1 to 25 do
  if m[i] = 'ЗИЛ-130' then inc(y);
  mashini2:=y;
  end; 
function mashini(x,y,z:integer):integer;
var i: integer
implementation
function mashini3(z:integer):integer;
  var i:integer;
  begin
  for i:=1 to 25 do
  if m[i] ='КамАЗ' then inc(z);
  mashini3:=z;
  end;

[Valio]

можете объяснить, что значит? не понял. что за S? Хотелось бы еще побеседовать насчет этой задачи... Если будет возможность, напишите, очень нужно!

Function Mashin(S : String) : Integer;

Тут написано что мы создали функцию с названием Mashin и что она принимает параметр S типа String. Возвращаемое значение типа Integer.
S - строка которую надо найти (марка машины).
Возвращаемый параметр - кол-во раз сколько это строка встретилась в массиве.

S это переменая с которой будет работать функция.

[Александр1993]

задачу решенную выше мною, преподаватель не оценил, сказал, зачем я вызываю одну и туже функцию 3 раза, если можно все это сделать в 1-й функции, он мне привел пример: sin10, sin20, sin30, так же и у меня

program n9;
type
mas=array[1..25] of string;
var
m:mas;
k1, k2 ,k3:real;
k:real;
procedure vvod(var m:mas);
var
i:integer;
begin
for i:=1 to 25 do
readln(m[i]);
end;
Function Mashin(S: string) : integer;
Var
F:text;
i:integer;
Begin
assign (F,'C:\Users\user\Desktop\Zadacha.txt');
reset (F);
for i:= 1 to 25 do 
readln (F, m[i]);
close (F);
For i := 1 To 25 Do begin
If m[i] = 'Gaz-21' Then inc(Result) 
end;
For i := 1 To 25 Do begin
If m[i] = 'Zil-130' Then inc(Result) 
end;
For i := 1 To 25 Do begin
If m[i] = 'Kamaz' Then inc(Result)
end;;
Mashin:=Result;
end;
begin
k1:=Mashin('Gaz-21');
k2:=Mashin('Zil-130');
k3:=Mashin('Kamaz');
writeln('k1=',k1,' k2=',k2,' k3=',k3);
k:=(k1+k2+k3)/25;
writeln('k=',k:3:2);
readln;
end.

вот сделал, но не получается. у меня суммируются не так значения. Текстовый файл

Gaz-21
Zil-130
Kamaz
Mercedez
BMW
Ferrary
Zil-130
Zil-130
Gaz-21
Gaz-21
Zil-130
Kamaz
Mercedez
Kamaz
Kamaz
Gaz-21
BMW
Ferrary
Zil-130
Kamaz
Mercedez
Kamaz
Kamaz
Mercedez
Zil-130

Файл просчитывает правильно, 17 машин всего, но он их складывает(17+17+17), не пойму, как исправить...

[Valio]

Тоесть всё это:

Определить K1 - количество ГАЗ - 21; К2 - количество ЗИЛ -130; КЗ - количество КамАЗ. Вычислить К = (K1 + K2 + K3)/25.

Нужно засунуть в одну функцию?

[Александр1993]

как я понял, по его словам, да, типо смотрите: k=(kol(m,'Gaz-21')+kol(m,'Zil-130')+kol(m,'Kamaz'))/25

вот так он написал мне на листке с неправильным заданием=) в нашем случае, как я понял kol будет играть Mashin, осталось только разобраться, как это записать в этой самой функции, я написал, он посчитал все машины, которые мне надо, их ровно 17, но он считает, что k1=17 k2=17 k3=17, и вот я хз как тут быть=(

[Valio]

Судя по его записи в функцию передаётся массив и строка которую надо искать.

но он считает, что k1=17 k2=17 k3=17, и вот я хз как тут быть=(

Кто "он"?