Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
sergei-1994
0 / 0 / 0
Регистрация: 01.07.2013
Сообщений: 28
1

Дан текстовый файл. Вывести все согласные, которых нет ни в одном слове

03.09.2013, 19:37. Просмотров 1015. Ответов 10
Метки нет (Все метки)

а) Дан текстовый файл. Вывести все согласные, которых нет ни в одном слове.
б) Дан файл компонентами которого являются n-мерные векторы (n-const). Векторы с наибольшим модулем перенести в конец файла...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.09.2013, 19:37
Ответы с готовыми решениями:

С клавиатуры вводится текст. Признак конца ввода - точка. Вывести все согласные, которых нет ни в одном слове
С клавиатуры вводится текст. Признак конца ввода — точка. Вывести все со-...

дан текстовый файл.перенести в текстовый файл все строки, содержащие заданное слово
помогите пожалуйста решить задачу... условие:дан текстовый файл.перенести в...

Дан текстовый файл. удалить в каждом слове последнюю букву
помогите...

Дан текстовый файл Т1. Переписать в файл Т2 все компоненты файла Т1 с заменой в них символа «0» на символ «1» и наоборот.
Добрый вечер. Есть такая вот задачка. Помогите пожалуйста... Дан текстовый...

Дан текстовый файл. Вывести его на экран.
Дан текстовый файл. Вывести его на экран.

10
Puporev
Модератор
54582 / 42088 / 29061
Регистрация: 18.05.2008
Сообщений: 99,260
03.09.2013, 19:53 2
Какой Паскаль, какой язык в файле?
0
sergei-1994
0 / 0 / 0
Регистрация: 01.07.2013
Сообщений: 28
03.09.2013, 20:01  [ТС] 3
да...
0
Puporev
Модератор
54582 / 42088 / 29061
Регистрация: 18.05.2008
Сообщений: 99,260
03.09.2013, 20:06 4
Что да? Вам задали 2 вопроса, ответьте или тему удалю.
0
Joker_vad
Эксперт 1С
471 / 409 / 92
Регистрация: 26.09.2012
Сообщений: 1,824
03.09.2013, 20:21 5
Цитата Сообщение от Puporev Посмотреть сообщение
Какой Паскаль, какой язык в файле?
Сложные вопросы задаете). Вы бы еще спросили как предмет называется)
0
Puporev
Модератор
54582 / 42088 / 29061
Регистрация: 18.05.2008
Сообщений: 99,260
03.09.2013, 20:30 6
Дело в том что файлы, созданные в Блокноте на русском языке, Паскаль АВС понимает, а Турбо Паскаль читает их крякозябрами, разные кодировки, потому и спрашиваю.Если секрет, то и не нужно спрашивать.
0
sergei-1994
0 / 0 / 0
Регистрация: 01.07.2013
Сообщений: 28
03.09.2013, 20:44  [ТС] 7
мне дали задание написать программу на турбо паскале или на паскале АВС. и задание которое написано выше. а что как куда и зачем я не знаю.

Добавлено через 1 минуту
я практически не понимаю как писать программы только основу знаю и все... и как мне дали задание так я его и выложил
0
Puporev
Модератор
54582 / 42088 / 29061
Регистрация: 18.05.2008
Сообщений: 99,260
03.09.2013, 21:11 8
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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
uses crt;
const n=5;
      mmax=20;
type mas=array[1..n] of integer;
     fail=file of mas;
function max(x:mas):integer;
var i,mx:integer;
begin
mx:=abs(x[1]);
for i:=2 to n do
if abs(x[i])>mx then mx:=abs(x[i]);
max:=mx
end;
var f:fail;
    x,y:mas;
    m,i,j,k,mx:integer;
begin
clrscr;
randomize;
assign(f,'filef');
rewrite(f);
repeat
write('mведите количество компонет до ',mmax,' m=');
readln(m);
until m in [1..mmax];
for i:=1 to m do
 begin
  for j:=1 to n do
  x[j]:=-50+random(101);
  write(f,x);
 end;
writeln('Содержание исходного файла:');
writeln('Макс. модуль':n*5+12);
reset(f);
mx:=-maxint-1;
while not eof(f) do
 begin
  read(f,x);
  for i:=1 to n do
   begin
    write(x[i]:5);
    if max(x)>mx then mx:=max(x);
   end;
  writeln(max(x):7);
 end;
writeln('Максимальный модуль=',mx);
seek(f,0);
k:=0;{количество компонент с макс. модулем}
i:=0;
while i<filesize(f)-k do
 begin
  seek(f,i);
  read(f,x);
  if max(x)=mx then
   begin
    k:=k+1;
    for j:=i to filesize(f)-k-1 do
     begin
      seek(f,j+1);
      read(f,y);
      seek(f,j);
      write(f,y);
     end;
    seek(f,filesize(f)-k);
    write(f,x);
   end;
  i:=i+1;
 end;
writeln('Компонеты с макс. модулем в конец:');
writeln('Макс. модуль':n*5+12);
seek(f,0);
while not eof(f) do
 begin
  read(f,x);
  for i:=1 to n do
  write(x[i]:5);
  writeln(max(x):7);
 end;
close(f);
readln
end.
Добавлено через 3 минуты
Цитата Сообщение от sergei-1994 Посмотреть сообщение
мне дали задание написать программу на турбо паскале или на паскале АВС.
Эта программа написана в Турбо Паскале, можно и в АВС запустить, а первую,если будет желание, напишу завтра в АВС.
2
sergei-1994
0 / 0 / 0
Регистрация: 01.07.2013
Сообщений: 28
03.09.2013, 21:16  [ТС] 9
Спасибо большое!!!
0
Puporev
Модератор
54582 / 42088 / 29061
Регистрация: 18.05.2008
Сообщений: 99,260
04.09.2013, 07:41 10
Цитата Сообщение от sergei-1994 Посмотреть сообщение
Вывести все согласные, которых нет ни в одном слове.
Если символа нет ни в одном слове, значит его просто нет в файле и слова выделять не нужно, а просто прочитаем файл по символам.
В Паскаль АВС, файл в папке с программой.
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
uses crt;
//множество всех согласных букв русского алфавита
const sgl=['Б','б','В','в','Г','г','Д','д','Ж','ж','З','з','Й','й','К','к',
           'Л','л','М','м','П','п','Р','р','С','с','Т','т','Ф','ф','Х','х',
           'Ц','ц','Ч','ч','Ш','ш','Щ','щ'];
var f:text;
    c:char;
    m:set of char;
begin
assign(f,'text.txt');
reset(f);
m:=[];//множество согласных, которые ксть в файле
while not eof(f) do
read(f,c);
if c in sgl then m:=m+[c];
close(f);
writeln('Согласные буквы, которых нет ни в одном слове:');
m:=sgl-m;//вычитаем из полного множества, те что есть
if m=[] then write('Таких букв нет')
else
 begin
  for c:='Б' to 'щ' do
  if c in m then write(c);
 end;
end.
1
sergei-1994
0 / 0 / 0
Регистрация: 01.07.2013
Сообщений: 28
04.09.2013, 17:30  [ТС] 11
спасибо
0
04.09.2013, 17:30
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.09.2013, 17:30

Дан текстовый файл с программой. Вывести список всех процедур, не описанных в блоке описания
Задача: Дан текстовый файл, содержащий строки длиной до 255 символов. Файл...

Дан текстовый файл A.TXT. Найти и вывести на экран строки, содержащие слово PROGRAM
Дан текстовый файл A.TXT. Найти и вывести на экран строки, содержащие слово...

В самом коротком слове все согласные буквы заменить буквой А
Создать программу заданной обработки массива слов.В процессе обработки...


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

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

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