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

текстовые файлы,Работа с файлами

06.06.2010, 19:12. Просмотров 959. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста, очень важно,это мой допуск к зачету.
Задча1:Дан текст,хранящийся в текстовом файле.Подсчитать количество строк сдлиной не более 15.
Задача2:Выполнить следующее задание используя типизированные файлы.Создать файл, компоненты которого случайные строчные буквы латинского алфавита. Подсчитать сколько из них находятся по алфавиту позже некоторой буквы(вводимой с клавиатуры).Создать новый файл, содержащий такие буквы
Спасибо большое заранее.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.06.2010, 19:12
Ответы с готовыми решениями:

Текстовые файлы
Условие: Создать текстовый файл, состоящий из записей, имеющих заданную структуру (см. ваш...

Текстовые файлы
Всем привет)) помогите пожалуйста решить задачку: Имеется текстовый файл, переписать в другой...

текстовые файлы
вот задача: В файле хранятся строки. Найти строку, содержащую наименьшее количество символов и...

Текстовые файлы
Прошу помощи с заданием, сам не справляюсь =/ ...

2
Модератор
60534 / 45542 / 31430
Регистрация: 18.05.2008
Сообщений: 109,469
06.06.2010, 20:44 2
Лучший ответ Сообщение было отмечено GUZ как решение

Решение

1.
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
uses crt;
var f:text;
    nf,s:string;
    k:integer;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  if length(s)<=15 then k:=k+1;
 end;
close(f);
writeln('Количество строк не более 15 символов=',k);
readln
end.
Добавлено через 27 минут
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
46
47
48
49
50
51
52
uses crt;
var f,g:file of char;
    a,c:char;
    n,i,k:integer;
begin
clrscr;
clrscr;
randomize;
assign(f,'filef');
rewrite(f);
assign(g,'fileg');
rewrite(g);
writeln('Сколько букв ввести в файл? n=');
readln(n);
for i:=1 to n do
 begin
  a:=chr(random(26)+97);
  write(f,a);
 end;
repeat
write('Введите строчную латинскую букву для поиска c=');
readln(c);
until c in ['a'..'z'];;
writeln('Содержание исходного файла:');
reset(f);
k:=0;
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
  if a>c then write(g,a);
 end;
writeln;
writeln;
close(f);
reset(g);
if filesize(g)=0 then write('Букв по алфавиту позже ',c,' нет!')
else
 begin
  writeln('Буквы по алфавиту позже ',c);
  while not eof(g) do
   begin
    read(g,a);
    write(a,' ');
   end;
   writeln;
   writeln;
   write('Всего букв по алфавиту позже ',c,'=',filesize(g));
 end;
close(g);
readln
end.
1
1 / 1 / 0
Регистрация: 06.06.2010
Сообщений: 3
06.06.2010, 21:03  [ТС] 3
Спасибо огромное
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2010, 21:03

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

текстовые файлы!!
Плз помогите!!Дан текст. Если первый символ текста не является малой латинской буквой то оставить...

Текстовые файлы
Пусть дан текстовый файл. распечатайте все строки, начинающиеся с заданного слова

Текстовые файлы
Создать 2 текстовых файла. Переписать первый файл во второй и наоборот. Вывести оба текста на экран.

Текстовые файлы
Дан текстовый файл содержащий фамилию ,имя,город,проживания.Проверить встречается ли в файле ...


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

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

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