Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Silverain14
0 / 0 / 0
Регистрация: 10.08.2010
Сообщений: 16
#1

Описать функцию firsts(f) - Pascal

23.08.2010, 10:19. Просмотров 321. Ответов 1
Метки нет (Все метки)

type myfile = file of char;
Описать функцию firsts(f), которая подсчитывает количество вхождений первой литеры файла f
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.08.2010, 10:19
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Описать функцию firsts(f) (Pascal):

Описать функцию - Pascal
Пусть текстовый файл t разбит на непустые строки. Описать функцию count(t) для подсчета числа строк, которые начинаются с буквы R.

Описать функцию - Pascal
type seria = file of integer; var s:seria; Описать функцию sum(s), вычисляющую среднее арифметическое элементов файла s. Программа:...

Описать функцию - Pascal
Помогите найти ошибку, программа просто сама закрывается. Задание: Описать функцию IsSquare (K) логического типа, возвращает True, если...

описать функцию - Pascal
сама функция на рисунке..заранее спасибо...

Описать функцию - Pascal
Вот условие: Описать функцию Min(A,B,C) вещественного типа, находящую минимальное из трёх вещественных чисел A, B и C. С помощью этой...

Описать функцию - Pascal
Описать функцию RootCount(A,B,C),определяющую по дискриминанту количество корней для каждого из пяти уравнений,заданных своими...

1
Puporev
Модератор
52840 / 40651 / 13905
Регистрация: 18.05.2008
Сообщений: 94,355
23.08.2010, 11:11 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
uses crt;
type myfile=file of char;
const fname='simbol';
function firsts(var f:myfile):integer;
var c,c1:char;
    i,k:integer;
begin
reset(f);
seek(f,0);
read(f,c1);
k:=1;
for i:=1 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,c);
  if c=c1 then k:=k+1;
 end;
firsts:=k;
close(f);
end;
var f:myfile;
    c:char;
   i:integer;
begin
clrscr;
assign(f,fname);
rewrite(f);
writeln('Введите в файл символы, окончание ввода пробел:');
repeat
readln(c);
write(f,c);
until c=#32;
clrscr;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,c);
  write(c,' ');
 end;
close(f);
writeln;
writeln('Первый симол повторяется ',firsts(f),' рз.');
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.08.2010, 11:11
Привет! Вот еще темы с ответами:

Описать функцию - Pascal
Описать функцию, которая возвращает целое неотрицательное число по его строковому представлению S в шестнадцатеричной системе счисления....

Описать функцию LowCost(G) - Pascal
type name = (Mary, Jane, Kim, Bob, Jan, Pit, Tom, Sara, Bill, Pol); data = record male : boolean; {пол: true - мужской, false -...

Описать функцию BinToDec(S)... - Pascal
Здраствуйте,помогите пожалуйста с задачкой: Описать функцию BinToDec(S) (HexToDec(S)) целого типа, которая определяет целое...

Описать функцию PosSub(S0, S, K, N) - Pascal
Помогите написать программу.. Описать функцию PosSub(S0, S, K, N) целого типа, возвращающую номер позиции, начиная с которой в...


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

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

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