Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.06.2011, 23:22   #11
Александр1993
Пользователь
 
Регистрация: 29.05.2011
Сообщений: 20
По умолчанию

паскаль=)))
Александр1993 вне форума Ответить с цитированием
Старый 04.06.2011, 23:24   #12
Александр1993
Пользователь
 
Регистрация: 29.05.2011
Сообщений: 20
По умолчанию

именно так, как вы сказали!
Александр1993 вне форума Ответить с цитированием
Старый 04.06.2011, 23:29   #13
Valio
Сливочное масло
Участник клуба
 
Аватар для Valio
 
Регистрация: 01.01.2011
Сообщений: 1,149
По умолчанию

Ну так добавь к параметрам функции ещё и массив. В самой функции наверное надо будет определить размерность массива... хотя не факт. Можно так и оставить до 25.
Сливочное масло Valio - компиляция как по маслу
Valio вне форума Ответить с цитированием
Старый 04.06.2011, 23:43   #14
Александр1993
Пользователь
 
Регистрация: 29.05.2011
Сообщений: 20
По умолчанию

немного не понял=(
Александр1993 вне форума Ответить с цитированием
Старый 05.06.2011, 00:08   #15
Valio
Сливочное масло
Участник клуба
 
Аватар для Valio
 
Регистрация: 01.01.2011
Сообщений: 1,149
По умолчанию

Что именно?

Нужно в функцию передать два параметра: массив с которым нужно работать и строку, которую надо искать.

На данный момент там только строка.
Погугли: передача массива как параметр функции
Сливочное масло Valio - компиляция как по маслу
Valio вне форума Ответить с цитированием
Старый 05.06.2011, 00:19   #16
Александр1993
Пользователь
 
Регистрация: 29.05.2011
Сообщений: 20
По умолчанию

хорошо, попробую.
Александр1993 вне форума Ответить с цитированием
Старый 06.06.2011, 16:43   #17
Александр1993
Пользователь
 
Регистрация: 29.05.2011
Сообщений: 20
По умолчанию

Код:
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 
If m[i] = 'Gaz-21' then inc(Result);
If m[i] = 'Zil-130' then inc(Result);
If m[i] = 'Kamaz' 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.
все равно не получается=( задача работает, но не верно...
Александр1993 вне форума Ответить с цитированием
Старый 06.06.2011, 16:49   #18
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Цитата:
If m[i] = 'Gaz-21' then inc(Result);
If m[i] = 'Zil-130' then inc(Result);
If m[i] = 'Kamaz' then inc(Result);
Дык искать надо не все сразу, а только ту строку, что передали. И вы, кстати, begin\end тут забыли в цикле.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 06.06.2011, 16:50   #19
Александр1993
Пользователь
 
Регистрация: 29.05.2011
Сообщений: 20
По умолчанию

каким образом, это я не могу понять...
Александр1993 вне форума Ответить с цитированием
Старый 06.06.2011, 16:51   #20
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

if m[i] = s then...
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
функция.... begemotikdin Паскаль, Turbo Pascal, PascalABC.NET 3 19.08.2010 18:51
Функция MilenaR Помощь студентам 5 10.05.2010 20:43
Функция Kloun1 Паскаль, Turbo Pascal, PascalABC.NET 5 24.01.2009 19:56
Функция в VB asd48 Помощь студентам 1 25.12.2008 23:29
одна функция потока, а другая функция - член класса запускающего этот поток Дмитрий_Ч Общие вопросы C/C++ 2 27.09.2007 08:50