Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
hunzah08
0 / 0 / 0
Регистрация: 27.03.2012
Сообщений: 4
1

Вывести в файл слова в две колонки

26.04.2012, 17:37. Просмотров 916. Ответов 1
Метки нет (Все метки)

Нужна помощь в написании следующей программы:
..Заранее благодарю ))
0
Миниатюры
Вывести в файл слова в две колонки  
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2012, 17:37
Ответы с готовыми решениями:

Вывести в две колонки все слова текстового файла, содержащие не менее 4 букв
Вывести в две колонки все слова текстового файла, содержащие не менее 4 букв.

Вывести слова, в которых две гласные буквы
Нужно написать 2 проги 1) Пользователь вводит с клавиатуры слова через...

Вывести в новый файл все слова, отличные от последнего слова
В файле содержится последовательность слов, разделенных пробелом. Текст...

Печать чисел в две колонки
Задача: Дан текстовый файл f, содержащий целые числа от 1 до 100. Подготовить...

Вывод букв в две колонки
Суть такова: вывожу заглавные буквы латинского алфавита от А до Z используя их...

1
MayaNash
1291 / 460 / 151
Регистрация: 24.08.2011
Сообщений: 2,248
29.04.2012, 23:06 2
Лучший ответ Сообщение было отмечено hunzah08 как решение

Решение

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
uses crt;
 
type slovo = string[10];
 
var f,f1: text;
    name,name1: string;
    a: array [1..51] of slovo;
    i: integer;
 
procedure readWord(var s: slovo);
var ch: char;
begin s:='';
read(f,ch);
while ch = ' ' do read(f,ch);
repeat
s:=s + ch;
read(f,ch);
until (ch = ' ') or (eoln(f)) or (eof(f));
if eoln(f) then readln(f);
end;
 
 
begin clrscr;
write('Imea faila: '); readln(name);
assign(f,name); reset(f);
write('Imea faila1: '); readln(name1);
assign(f1,name1); rewrite(f1);
while not eof(f) do
 begin
 for i:=1 to 50 do readWord(a[i]);
 for i:=1 to 50 do
  begin
  readWord(a[51]);
  writeln(f1,a[i]:15,a[51]:15);
  end;
 end;
close(f); close(f1);
writeln('Fail ',name1,' byl perepisan');
readkey; end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.04.2012, 23:06

Текстовый файл. Вывести строки, содержащие одинаковые слова
Вывести на экран и в текстовый файл строки данного текстового файла, содержащие...

Объявить заранее созданный файл как нетипизированный и вывести все четные слова
Объявить какой-либо заранее созданный файл как нетипизированный и вывести все...

Вывести слова, отличные от последнего слова, предварительно удалив из каждого слова последнюю букву
Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2...


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

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

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