Функция

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

мой разума затуманен=(

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

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(var m:mas; 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] = S then inc(result) ;
end;
For i := 1 To 25 Do begin
If m[i] =  S then m[i]:='Zil-130';
end;
For i := 1 To 25 Do begin
If m[i] =  S then m[i]:='Kamaz';
end;
Mashin:=Result;
End;
begin
k1:=Mashin(m,'Gaz-21');
k2:=Mashin(m,'Zil-130');
k3:=Mashin(m,'Kamaz');
writeln('k1=',k1,' k2=',k2,' k3=',k3);
k:=(Mashin(m,'Gaz-21')+Mashin(m,'Zil-130')+Mashin(m,'Kamaz'))/25;
writeln('k=',k:3:2);
readln;
end.

задача получилось, но бред какой-то=)))

[Alex11223]

Почему затуманен? Вы передаете в функцию строку, которую хотите найти, но в самой функции не обращаете на нее внимание и ищите 3 заранее написанные в ней строки. (при этом из-за того, что в цикле for забыли begin/end; 2 из них выполняются за циклом, но это не столь важно)

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

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(var m:mas; 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] = S then m[i]:='Gaz-21' ;
end;
For i := 1 To 25 Do begin
If m[i] =  S then m[i]:='Zil-130';
end;
For i := 1 To 25 Do begin
If m[i] =  S then m[i]:='Kamaz';
end;
Mashin:=Result;
End;
begin
k1:=Mashin(m,'Gaz-21');
k2:=Mashin(m,'Zil-130');
k3:=Mashin(m,'Kamaz');
writeln('k1=',k1,' k2=',k2,' k3=',k3);
k:=(Mashin(m,'Gaz-21')+Mashin(m,'Zil-130')+Mashin(m,'Kamaz'))/25;
writeln('k=',k:3:2);
readln;
end.

а так нет, почему?

[Alex11223]

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  
   if m[i] = S then inc(result) ;
Mashin:=Result;

begin end нужен только если в цикле больше 1 оператора (как у вас в 1 варианте сегодня).
т.е.

for i:=1 to n do
   a:=b; //выполнится n раз т.к. в цикле
c:=b; //выполнится только 1 раз т.к. не в цикле  
f:=a; //выполнится только 1 раз т.к. не в цикле

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

вопросик еще:

procedure vvod(var m:mas);
var
i:integer;
begin
for i:=1 to 25 do
readln(m[i]);
end;

попробовал убрать ее из задачи, программа также исправно работает, получатеся она тут вообще не нужна?

[Alex11223]

Ну дык вы ее не используете. По идее основная программа должна так выглядеть.

begin
vvod(m);
k1:=Mashin(m,'Gaz-21');
k2:=Mashin(m,'Zil-130');
k3:=Mashin(m,'Kamaz');
writeln('k1=',k1,' k2=',k2,' k3=',k3);
k:=(Mashin(m,'Gaz-21')+Mashin(m,'Zil-130')+Mashin(m,'Kamaz'))/25;
writeln('k=',k:3:2);
readln;
end.

А функция так

Function Mashin(var m:mas; S:string) : integer;
Var
i:integer;
Begin
for i := 1 to 25 do  
   if m[i] = S then inc(result) ;
Mashin:=Result;
end;

И процедура видимо должна из файла читать, а не из пользователя)

Или как вариант можно в функции ее использовать.

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

разобрался, спасибо!!!!!!!!!!!!!!

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

program n9;
type
mas=array[1..25] of string;
var
m:mas;
k1, k2 ,k3:real;
k:real;
Function Mashin(var m:mas; 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] = S then inc(result) ;
end;
Mashin:=Result;
End;
begin
k1:=Mashin(m,'Gaz-21');
k2:=Mashin(m,'Zil-130');
k3:=Mashin(m,'Kamaz');
writeln('k1=',k1,' k2=',k2,' k3=',k3);
k:=(Mashin(m,'Gaz-21')+Mashin(m,'Zil-130')+Mashin(m,'Kamaz'))/25;
writeln('k=',k:3:2);
readln;
end.

вот рабочая программа=)

[Alex11223]

Лучше так. Я это имел в виду "как вариант можно в функции ее использовать." И не забывайте код форматировать.

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;
  F: text;
begin
  assign(F, 'C:\Users\user\Desktop\Zadacha.txt');
  reset(F);
  for i := 1 to 25 do 
    readln(F, m[i]);
  close(F); 
end;

function Mashin(var m: mas; S: string): integer;
var
  i: integer;
begin
  vvod(m);
  for i := 1 To 25 Do 
     if m[i] = S then inc(result);
   Mashin := Result;
end;

begin
  k1 := Mashin(m, 'Gaz-21');
  k2 := Mashin(m, 'Zil-130');
  k3 := Mashin(m, 'Kamaz');
  writeln('k1=', k1, ' k2=', k2, ' k3=', k3);
  k := (Mashin(m, 'Gaz-21') + Mashin(m, 'Zil-130') + Mashin(m, 'Kamaz')) / 25;
  writeln('k=', k:3:2);
  readln;
end.