Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Silverain14
0 / 0 / 0
Регистрация: 10.08.2010
Сообщений: 16
#1

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

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

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

Описать функцию
Вот условие: Описать функцию Min(A,B,C) вещественного типа, находящую...

Описать функцию
Описать функцию, которая возвращает целое неотрицательное число по его...

Описать функцию
Помогите найти ошибку, программа просто сама закрывается. Задание: Описать...

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

Описать функцию
type seria = file of integer; var s:seria; Описать функцию sum(s),...

1
Puporev
Модератор
54129 / 41762 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
23.08.2010, 11:11 #2
Лучший ответ Сообщение было отмечено Silverain14 как решение

Решение

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
Привет! Вот еще темы с решениями:

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

Описать функцию y=arcsin(x).
Описать функцию y=arcsin(x). Составить программу решения уравнения sin(ax+b)=c...

Описать рекурсивную функцию
Помогите кто нибудь решить... Завтра зачет, а у меня не получается((( ...

Описать функцию (записи)
Опять нужна помощь в написании программы :) Задача такая: type ...


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

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

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