Считать с экрана 10 строк и записать их в файл

@Happy_Jack · Регистрация: 16.06.2016

Студворк — интернет-сервис помощи студентам

Кто поможет с программой для паскаля?
Вот задания:
1) Считать с экрана 10 строк и записать их в файл.
2) Открыть файл и подсчитать кол-во символов 'a' .

@ZX Spectrum-128 · 17.06.2016, 08:47

Сообщение от Happy_Jack

Считать с экрана

С клавиатуры, может быть?
Считывание с экрана - не совсем простая задача.

@Happy_Jack · 17.06.2016, 23:19 **[ТС]**

Именно считать с экрана

Добавлено через 7 минут
Мне бы хотя бы на первый вопрос помогите программу записать.
Нужно что бы она считала 10 строк и записала их в свой созданный файл.

Добавлено через 5 часов 58 минут
у меня получилось только так;
2 программы: одна пишет 10 заданный символов, но не выводит их в текстовый файл (пишет только одно - 10), а вторая - выводит в текстовый файл, но только одну строку.

@bormant · 18.06.2016, 07:44

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  f: Text;
  s: String;
  j, k: Integer;
begin
  Assign(f,'file.txt'); Rewrite(f);
  WriteLn('Введите 10 строк:');
  for j:=1 to 10 do begin
    ReadLn(s); WriteLn(f,s);
  end;
  Reset(f);
  while not EoF(f) do begin
    ReadLn(f,s);
    for j:=1 to Length(s) do Inc(k,Ord(s[j]='a'));
  end;
  Close(f);
  WriteLn('Обнаружено букв "a": ',k);
end.

@Happy_Jack · 19.06.2016, 21:16 **[ТС]**

Спасибо большое, очень выручил, но есть не особо важная проблемка
Он пишет что "Program7.pas(11) : Ошибка времени выполнения: Процесс не может получить доступ к файлу "C:\PABCWork.NET\работы\file.txt", так как этот файл используется другим процессом."
Что с этим делать?

@bormant · 19.06.2016, 22:07

Сообщение от Happy_Jack

так как этот файл используется другим процессом

Проверьте, возможно PABC.NET требует предварительно закрыть файл перед повторным открытием, добавьте перед 11 строкой

Pascal
1
  Close(f);

Добавлено через 1 минуту
Отдельный раздел по PascalABC.net существует на форуме не зря, слишком много у него "особенностей".

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Happy_Jack 0 / 0 / 0 Регистрация: 16.06.2016 Сообщений: 3

	Считать с экрана 10 строк и записать их в файл 16.06.2016, 22:36. Показов 2971. Ответов 5 Метки нет (Все метки) Кто поможет с программой для паскаля? Вот задания: 1) Считать с экрана 10 строк и записать их в файл. 2) Открыть файл и подсчитать кол-во символов 'a' . 0

@Happy_Jack 0 / 0 / 0 Регистрация: 16.06.2016 Сообщений: 3
	17.06.2016, 23:19 [ТС]
	Именно считать с экрана Добавлено через 7 минут Мне бы хотя бы на первый вопрос помогите программу записать. Нужно что бы она считала 10 строк и записала их в свой созданный файл. Добавлено через 5 часов 58 минут у меня получилось только так; 2 программы: одна пишет 10 заданный символов, но не выводит их в текстовый файл (пишет только одно - 10), а вторая - выводит в текстовый файл, но только одну строку. 0

@Happy_Jack 0 / 0 / 0 Регистрация: 16.06.2016 Сообщений: 3
	19.06.2016, 21:16 [ТС]
	Спасибо большое, очень выручил, но есть не особо важная проблемка Он пишет что "Program7.pas(11) : Ошибка времени выполнения: Процесс не может получить доступ к файлу "C:\PABCWork.NET\работы\file.txt", так как этот файл используется другим процессом." Что с этим делать? 0

Считать с экрана 10 строк и записать их в файл

Решение