Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Вывести данное значение длительности в часах, минутах и секундах https://www.cyberforum.ru/ pascal/ thread680217.html
18. Дано натуральное число T, которое представляет длитель¬ность прошедшего времени в секундах. Вывести данное значение длительности в часах, минутах и секундах в следующей форме: НН ч ММ мин SS с. ...
Pascal Поменять местами дробную и целую части числа и вывести полученное значение числа.
19. Дано действительное число R вида nnn. ddd (три цифровых разряда в дробной и целой частях). Поменять местами дробную и целую части числа и вывести полученное значение числа. Помогите...
Pascal Определить число полных часов и полных минут, прошедших с начала суток. 21. С начала суток часовая стрелка повернулась на y градусов (0 ≤ y <360, y — вещественное число). Определить число полных часов и полных минут, прошедших с начала суток. Сформулировать и решить... https://www.cyberforum.ru/ pascal/ thread680214.html Pascal Выбрать из двух числовых величин большее значение. 1) нарисуйте блок-схемы и напишите на Паскале два варианта программы решения задачи: выбрать из двух числовых величин большее значение. Первый вариант-с полным ветвление,второй вариант-с неполным... https://www.cyberforum.ru/ pascal/ thread680198.html
Pascal Если ферзь за один ход может перейти с одного поля на другое, вывести логическое значение True
Даны координаты (как целые от 1 до 8) двух различных полей шахматной доски. Если ферзь за один ход может перейти с одного поля на другое, вывести логическое значение True, в противном случае вывести...
Pascal 4 задачи https://www.cyberforum.ru/ pascal/ thread680123.html
http://s005.***********/i210/1210/58/855b0cd1db3c.png
Pascal Определить минимальное количество первых символов слов, по которым можно различить слова в строке https://www.cyberforum.ru/ pascal/ thread680087.html
Задание 1 Строка состоит из нескольких слов, разделенных пробелом. Определить минимальное количество первых символов слов, по которым можно различить слова в строке. Входные данные: abc5 abc0...
Pascal Вывод дампа float
Здравствуйте. Нужно вывести дамп памяти типа float. Вот программа на Си #include<stdio.h> int main() { char buf,*b=buf; float x=1.1; char*c=(char*)&x+3; int i,j; for(i=0;i<=3;i++)
Pascal Найти порядковый номер наибольшего по значению числа, являющегося симметричным в двоичном представлении. Найти порядковый номер наибольшего по значению числа, являющегося симметричным в двоичном представлении. Пример: 55 31200 677 1317 837 1453 23171; результат: 1453=(10110101101), i=6. (массив... https://www.cyberforum.ru/ pascal/ thread679908.html Pascal Найти такие элементы (а также их сумму), в которых чередуются четные и нечетные цифры https://www.cyberforum.ru/ pascal/ thread679885.html
Найти такие элементы (а также их сумму), в которых чередуются четные и нечетные цифры. Пример: 2325 8122 5 1438 156 123; результат: сумма 2325+1438+123=3886. огромное спасибо
Записать формулу на языке Паскаль Pascal
как ето написать на Паскале? 3cos^2 (2x) sin(x)
Pascal Составить блок схему https://www.cyberforum.ru/ pascal/ thread679783.html
Помогите пожалуйста составить блок-схему к данной задаче: Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица i, j = 1, ..., n, если aij=cos(i в квадрате +n)
64 / 64 / 57
Регистрация: 13.04.2010
Сообщений: 150
0

Очереди: Содержимое текстового файла переписать в новый файл, перенося цифры в конец строки - Pascal - Ответ 3608875

25.10.2012, 17:47. Показов 1281. Ответов 1
Метки (Все метки)

Здравствуйте!

Используя очередь, решить следующую задачу. Содержимое текстового файла f, разделенное на строки, переписать в текстовый файл g, перенося при этом в конец каждой строки все входящие в нее цифры (с сохранением исходного порядка как среди цифр, так и среди остальных литер строки.

Подскажите пожалуйста какой результат должна выводить данная программа на примере.

Есть код подобной задачи:

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
program StackExample;
uses Crt;
const n = 6;
type
  elementtype = integer;
  stack = ^celltype;
  celltype = record
  element: elementtype;
  next: stack
  end;
var top, s: stack; i, k, x, e: integer;
  a: array[1..n] of integer;
{----------------------------------------------------------------------}
procedure MakeNull(var s: stack); { делает стек S пустым}
var p: stack;
begin
  New(p); p^.element := 0; p^.next := nil; S := p {s-vershina steka}
end;
{----------------------------------------------------------------------}
procedure Push(x: elementtype; var S: stack); {вставляет элемент x в top of stack}
var p: stack;
begin
  New(p); p^.element := x; p^.next := S; S := p {s-vershina steka}
end;
{----------------------------------------------------------------------}
procedure Data(var S: stack); {формирование стека}
var i: byte; k: integer;
begin
  MakeNull(s);
  for i := 1 to n do begin
    writeln('Введите элемент стека');
    readln(k); Push(k, s) end;
end;
{----------------------------------------------------------------------}
function Empty(S: stack): boolean; {return true if stack is empty}
begin
  if S^.next = nil
    then Empty := true
  else Empty := false
end;
{----------------------------------------------------------------------}
function TopS(S: stack): elementtype; { return element from top of stack}
begin
  if Empty(S)
    then begin writeln(' Стек пустой '); Exit end
  else TopS := S^.element
end;
{---------------------------------------------------------------------}
procedure Pop(var S: stack); { удаляет, "выталкивает" элемент from top of stack}
var p: stack;
begin
  if Empty(S)
    then begin writeln(' Стек пустой '); Exit end
  else begin p := s; s := p^.next; Dispose(p) end
end;
{---------------------------------------------------------------------}
procedure OutData(S: stack); { вывод stack_a}
begin write('Стек имеет вид: ');
  while not (Empty(S)) do
  begin write(TopS(S): 3, ' '); a[i] := TopS(S); Inc(i); Pop(s); end; writeln
end;
{---------------------------------------------------------------------}
begin
  i := 1;
  Data(s);
  Outdata(s);
  MakeNull(s);
  for i := n downto 1 do
  begin
    Push(a[i], s)
  end;
  Push(a[n], s);
  OutData(s);
  readln;
end.


Вернуться к обсуждению:
Очереди: Содержимое текстового файла переписать в новый файл, перенося цифры в конец строки Pascal
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.10.2012, 17:47
Готовые ответы и решения:

Задание со стеками и очередями: Содержимое файла f переписать в файл g, перенося цифры в конец строки
Помогите решить задание: Используя очередь, решить следующую задачу. Содержимое текстового файла...

В результирующий файл переписать содержимое текстового файла
не можите помочь с одной задачкой....делаю делаю..полная фигня получается... задача заключается в...

Дан текстовый файл F. Переписать файл F в файл G, вставляя в конец каждой строки ее порядковый номер.
решите)

Прочитать квадратную матрицу из текстового файла и переписать в новый файл
Пожалуйста, сделайте такую программу. Прочитать квадратную матрицу (n x n) из текстового файла и...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.10.2012, 17:47

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Из текстового файла переписать в новый файл и вывести все четные числа
Нужна помощь! Из текстового файла f, содержащего целые числа, переписать в файл g и вывести на...

С текстового файла f переписать в файл g только симметричные строки
С текстового файла f переписать в файл g только симметричные строки.

С текстового файла f переписать в файл g только симметричные строки
Помогите написать код. С текстового файла f переписать в файл g только симметричные строки.

Переписать строки исходного файла в новый файл, укоротив, длинные строки до 20 символов
Переписать строки исходного файла в новый файл, укоротив, длинные строки до 20 символов

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