Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
L1oN
1 / 1 / 1
Регистрация: 25.03.2015
Сообщений: 63
1

Как в приведенном коде можно использовать функцию?

16.04.2015, 17:03. Просмотров 843. Ответов 4
Метки нет (Все метки)

Подскажите, где тут можно использовать функцию? Надо что бы в коде обязательно была function.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program lab9_sorokroy(input,output);
 var k:integer;
     f:text;
     s:string;
begin
  Assign(f,'C:\PABCWork.NET\text.txt');
  Reset(f);
 While not eof(f) do
 Begin
  Readln(f,s);
  if length(s)<40 then
   inc(k);
 End;
 Close(f);
 writeln('Number of <40 strings = ',k);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.04.2015, 17:03
Ответы с готовыми решениями:

Как обойтись без дополнительного массива в приведенном коде
Сделала лабу, всё зачли, но встал вопрос, о том, что эту программу можно...

Можно ли в среде паскаль использовать мышь ???
Дорогие форумчане меня интересует такой вапрос Можно ли в среде паскаль...

можно ли использовать процедуру в операторе условного перехода
if u=&quot;procedure&quot; then writeln('verno'); else ('Neverno!pravilnii...

Можно ли на Object Pascal использовать на веб сервере
Можно ли на Object Pascal использовать на веб сервере ( то есть использовать...

Можно ли использовать var переменную как оператор?
можно ли использовать var переменную как оператора?

4
Constantin Cat
1961 / 1049 / 365
Регистрация: 28.02.2015
Сообщений: 2,326
Завершенные тесты: 1
16.04.2015, 17:10 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

К примеру так:
Pascal
1
2
3
4
5
6
7
function check(a:string):boolean;
  begin
    check:=length(s)<40
  end;
. . .
if length(s)<40 then inc(k);
. . .
0
SuperKir
381 / 363 / 259
Регистрация: 10.03.2015
Сообщений: 1,545
Завершенные тесты: 1
16.04.2015, 17:44 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от L1oN Посмотреть сообщение
While not eof(f) do Begin Readln(f,s); if length(s)<40 then inc(k); End;
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
function GetStrings(myFile: text): Integer;
var s: String;
    sCount: Integer;
begin
    sCount := 0;
    While not Eof(myFile) do
    begin
        ReadLn(myFile,s);
        if Length(s)<40 then inc(sCount);
    end;
    result := sCount;
end;
Или так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
function GetStrings(myFile: text, var count: Integer): Integer;
var s: String;
    sCount: Integer;
begin
    sCount := 0;
    While not Eof(myFile) do
    begin
        ReadLn(myFile,s);
        if Length(s)<40 then inc(sCount);
    end;
    result := sCount;
end;
И уже подставляя второй параметр в основной проге, можешь использовать его.
0
L1oN
1 / 1 / 1
Регистрация: 25.03.2015
Сообщений: 63
16.04.2015, 21:16  [ТС] 4
Как мне использовать переменную, обозначающую количество строк в главной проге?
0
SuperKir
381 / 363 / 259
Регистрация: 10.03.2015
Сообщений: 1,545
Завершенные тесты: 1
17.04.2015, 01:42 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
GetStrings(f,k);
writeln('Number of <40 strings = ',k)
Или же без второго параметра если, то просто
Pascal
1
writeln('Number of <40 strings = ',GetStrings(f));
0
17.04.2015, 01:42
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.04.2015, 01:42

Можно ли использовать регулярные выражения
если это не возможно то я так понял что такое есть в Делфи, тогда как в Делфи...

Random: как его использовать и применить в приведенном коде
Приветик знатокам. Возник вопрос. Как работает метод рандом. Дело в том, что я...

Как добавить функцию выбора вкуса кофе в приведенном коде
Всем привет!!! Вообщем в этом примере нужно добавить функцию чтобы был...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru