Создать файл из N чисел. Вывести содержимое на экран. Заменить отрицательные элементы на 5 остальные на 0. Записать в новый файл

@evgexa · Регистрация: 04.02.2014

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

1. Создать файл, состоящий из N целых чисел. Вывести содержимое этого файла на экран.
2. Заменить отрицательные элементы файла, созданного в задании 1, на пять, а остальные на 0, и полученные значения записать в новый файл.

к первой код уже есть
Код Pascal

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program 1;
uses crt;
     var
        n, i:integer;
        f:text;
begin
     clrscr;
     randomize;
     assign(f,'1.txt');
     rewrite(f);
     write('n= ');
     readln(n);
     for i:=1 to n do
         writeln(f,random(100));
     close(f);
     assign(f,'1.txt');
     reset(f);
     while not eof(f) do begin
           readln(f,i);
           write(i,'');
     end;
     close(f);
end.

@ildwine · 05.02.2014, 18:48

Комментарий модератора

evgexa, называйте темы информативно, как того требуют правила форума. В названии темы должно быть отражено то, что по существу нужно сделать! Читайте правила!

... также не нужно создавать новую тему если есть такая же старая! Дублирование тем запрещено! Официальное предупреждение!

@Vasiliev95 · 06.02.2014, 12:17

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
program prog;
uses crt;
var
   n, i, k:integer;
   fi, fo:text;
   
BEGIN
     clrscr;
     randomize;
     assign(fi,'1.txt');
     rewrite(fi);
     
     write('enter n = ');
     readln(n);
     for i:=1 to n do
          writeln(fi,random(100) - 50);
     close(fi);
     
     assign(fo,'2.txt');
     rewrite(fo);
     
     assign(fi,'1.txt');
     reset(fi);
     
     while not eof(fi) do
     begin
           readln(fi,k);
           write(k, '; ');
           
           if (k < 0) then k := 5
           else k := 0;
           writeln(fo, k);
     end;
     
     close(fo);
     close(fi);
END.

@ildwine · 06.02.2014, 13:09

Комментарий модератора

evgexa, правила форума 4.6. "Обсуждение вопросов - только в теме на форуме. Приглашения к обсуждению еще где-либо (в том числе и с помощью системы личных сообщений) запрещены, за исключением коммерческих разделов."

Новые блоги и статьи Все статьи Все блоги /
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint run.dev 26.04.2025 JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .	Паттерны в Python: Singleton, Factory и Observer py-thonny 26.04.2025 Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .	Исключения в C#: Stack Overflow, Access Violation и Out of memory stackOverflow 26.04.2025 Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .	Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик. Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .
Автоматизация Amazon Web Services (AWS) с Boto3 в Python py-thonny 25.04.2025 Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .	Apache Kafka vs RabbitMQ в микросервисной архитектуре ArchitectMsa 25.04.2025 Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .	Параллельное программирование с OpenMP в C++ NullReferenced 24.04.2025 Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .	Цепочки методов в C# с Fluent API UnmanagedCoder 24.04.2025 Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .	Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .

Опции темы