0 / 0 / 0
Регистрация: 26.12.2011
Сообщений: 41

Дописать файл из вещественных чисел суммой первых двух чисел из этого же файла

14.01.2012, 12:53. Показов 1083. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
: Дописать файл из вещественных чисел суммой первых двух чисел из этого же файла. Вывести содержимое начального и получившегося файла.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
14.01.2012, 12:53
Ответы с готовыми решениями:

Дописать файл из вещественных чисел наибольшим числом из этого же файла
Дописать файл из вещественных чисел наибольшим числом из этого же файла. Вывести содержимое начального и получившегося файла.

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

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

1
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
14.01.2012, 15:04
Лучший ответ Сообщение было отмечено ___Alex___ как решение

Решение

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
uses crt;
var f:file of real;
    a,b:real;
    n,i:integer;
begin
clrscr;
randomize;
assign(f,'file');
rewrite(f);
repeat
write('Сколько чисел записать в файл n>2  n=');
readln(n);
until n>1;
for i:=1 to n do
 begin
  a:=10*random;
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
  end;
writeln;
writeln;
b:=0;
for i:=0 to 1 do
 begin
  seek(f,i);
  read(f,a);
  b:=b+a;
 end;
seek(f,filesize(f));
write(f,b);
seek(f,0);
writeln('Содержание измененного файла:');
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
  end;
close(f);
readln
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
14.01.2012, 15:04
Помогаю со студенческими работами здесь

Создать третий файл целых чисел, в котором содержится Р первых чисел из файла 1 и Q последних чисел из файла 2
Написать программу,создающую 2 файла целых чисел разной длины.Файлы заполнить ,случайными числами.Пользователь вводит 2целых числа: P и...

Файлы. Создать файл целых чисел, в котором содержится P первых чисел из файла 1 и Q последних чисел из файла 2
Помогите решить две задачи срочно плиз!!!! 1) Написать программу, создающую 2 файла целых чисел разной длины. Файлы заполнить...

Если сумма трех попарно различных вещественных чисел Х,Y,Z меньше единицы, то наименьшее из трех чисел заменить полу суммой двух других
Если сумма трех попарно различных вещественных чисел Х,Y,Z меньше единицы, то наименьшее из трех чисел заменить полу суммой двух других, в...

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

Дано имя файла и вещественные числа A и D. Создать файл вещественных чисел с данным именем и записать в него 10 первых членов арифметической прогресси
Дано имя файла и вещественные числа A и D. Создать файл вещественных чисел с данным именем и записать в него 10 первых членов...


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

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

Новые блоги и статьи
Трассировка корутин Kotlin с OpenTelemetry
mobDevWorks 14.07.2025
Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .
Облачные приложения на Rust: руководство по архитектуре микросервисов
golander 13.07.2025
Когда я впервые взялся за проектирование облачной платформы для одного из наших клиентов, выбор стоял между привычными Go и Java. Но после нескольких месяцев разработки микросервисной системы,. . .
Как Node.js выполняет асинхронные операции
Reangularity 13.07.2025
Каждый раз, когда я рассказываю про Node. js, возникает один и тот же вопрос: "Как эта штука может быть быстрой, если JavaScript — однопоточный язык?" И это действительно кажется парадоксом. Ведь в. . .
Как писать чистый, тестируемый и качественный код на Python
py-thonny 12.07.2025
Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .
Blazor и контроллер сервопривода IoT Meadow Maple
Wired 11.07.2025
Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .
Генерация OpenQASM из кода Q#
EggHead 10.07.2025
Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .
Изучаем новый шаблон ИИ-чата .NET AI Chat Web App
stackOverflow 10.07.2025
В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .
Результаты исследования от команды ARP (июль 2025 г.)
Programma_Boinc 10.07.2025
Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .
Angular vs Svelte - что лучше?
Reangularity 09.07.2025
Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .
Code First и Database First в Entity Framework
UnmanagedCoder 09.07.2025
Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru