Типизированный файл целых чисел: Заменить все отрицательные компоненты их квадратами

@[Алёнка] · Регистрация: 24.10.2011

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

С клавиатуры вводится последовательность целых чисел, заканчивающихся нулем (в самой последовательности нулей нет). Требуется:
• записать все введенные числа в файл;
• открыть файл и вывести на экран все записанные в него числа (в строку);
• модифицировать файл:
Заменив все отрицательные компоненты их квадратами.

@Puporev · 25.10.2011, 19:46

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
uses crt;
var f:file of integer;
    a,i:integer;
begin
clrscr;
assign(f,'file');
rewrite(f);
writeln('Введите в файл целые положительные и отрицательные числа, конец ввода 0');
repeat
readln(a);
write(f,a);
until a=0;
clrscr;
reset(f);
writeln('Исходный файл:');
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a,' ');
  if a<0 then a:=a*a;
  seek(f,i);
  write(f,a);
 end;
writeln;
writeln;
seek(f,0);
writeln('Модифицированный файл:');
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
close(f);
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Тестирование Pull Request в Kubernetes с vCluster Mr. Docker 19.07.2025 Часто сталкиваюсь с серьезной дилемой при настройке тестовых окружений для проверки Pull Request в Kubernetes. С одной стороны, каждый PR требует изолированной среды — только так можно гарантировать,. . .	Мой 7 минутный ролик с крамольным предложением про шахматы, предлагаю заценить _Ivana 18.07.2025 p2UhJNMGY94	Десять Middleware Node.js для эффективного кодинга Reangularity 18.07.2025 Когда я только начинал работать с Node. js, количество пакетов в npm меня буквально парализовало. Сегодня их больше 1,3 миллиона — попробуй разберись, что стоит твоего внимания, а что нет. Я потратил. . .	Context и глубины Android mobDevWorks 18.07.2025 В Android разработки Context напоминает воздух - он везде, жизненно необходим, но мало кто может детально объяснить его природу. Мы привыкли получать его как параметр, передавать дальше и. . .	Результаты исследования от команды MCM (июль 2025 г.) Programma_Boinc 18.07.2025 Результаты исследования от команды MCM (июль 2025 г. ) Как сообщалось в наших предыдущих публикациях, мы изучаем гены, которые имеют наибольший рейтинг и ассоциируются с различными видами рака, в. . .
ИИ-чатбот на React с OpenAI и LangChain.js Reangularity 17.07.2025 React давно стал для меня золотым стандартом фронтенд-разработки. Его компонентная структура, виртуальный DOM и однонаправленный поток данных идеально подходят для создания динамичных интерфейсов. . .	Пишем адаптер для локального хранилища S3 на C# stackOverflow 16.07.2025 Разработка современных приложений часто требует интеграции с объектными хранилищами, и Amazon S3 стал де-факто стандартом в этой области. Однако работа с облачными сервисами в процессе разработки. . .	Старые замки kumehtar 16.07.2025 Смотрел тут фото, попались пара старых замков. И сразу бросилось в глаза из отличие. Например: Замок Бистон, в англии. Разрушенное сооружение. Но - не испорченное людьми, по крайней мере - на. . .	Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB Javaican 15.07.2025 Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .	EmBitz, создание проекта, отладка, прошивка locm 15.07.2025 Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .

@[Алёнка] 0 / 0 / 0 Регистрация: 24.10.2011 Сообщений: 10

	Типизированный файл целых чисел: Заменить все отрицательные компоненты их квадратами 25.10.2011, 18:45. Показов 1918. Ответов 1 Метки нет (Все метки) С клавиатуры вводится последовательность целых чисел, заканчивающихся нулем (в самой последовательности нулей нет). Требуется: • записать все введенные числа в файл; • открыть файл и вывести на экран все записанные в него числа (в строку); • модифицировать файл: Заменив все отрицательные компоненты их квадратами. 0

Опции темы

Типизированный файл целых чисел: Заменить все отрицательные компоненты их квадратами

Решение