0 / 0 / 0
Регистрация: 02.07.2011
Сообщений: 8
1

Найти корень пятой степени из произведения всех компонентов файла

03.07.2011, 11:42. Показов 1704. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Прочитать с диска файл tol.dat и найти: корень 5ой степени из произведения всех компонентов файла;
заменить этим значением три последние компоненты файла
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.07.2011, 11:42
Ответы с готовыми решениями:

Найти корень пятой степени из числа K
Я юный ученик и нас в школе учать программированию. Но нужна помощь большая, как написать в...

Как описать корень пятой степени?
Как описать в С++ корень пятой степени з выражения?

sinlnb3b3 и следующее корень пятой степени, где под корнем b3+10
sinlnb3b3 и следующее корень пятой степени, где под корнем b3+10 Как расписать на языке C++,...

Массив: Найти среднее геометрическое чисел(корень N - ой степени из произведения) в массиве.
Помогите с задачей пожалуйста. Дан массив из N действительных чисел .Найти среднее геометрическое...

2
3 / 3 / 0
Регистрация: 02.07.2011
Сообщений: 42
03.07.2011, 11:55 2
Что ты понимаешь под компонентом файла??
0
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
03.07.2011, 12:17 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt;
var f:file of real;
    n,i:integer;
    a,p:real;
begin
clrscr;
randomize;
assign(f,'tol.dat');
rewrite(f);
repeat
write('Сколько чисел записать в файл, не менее 3х n=');
readln(n);
writeln;
until n>=3;
for i:=1 to n do
 begin
  a:=10*random-3;
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
p:=1;
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:0:2,' ');
  p:=p*a;
 end;
writeln;
writeln;
writeln('Произведение компонент=',p:0:2);
if p=0 then a:=0
else if p>0 then a:=exp(ln(p)/5)
else a:=-exp(ln(-p)/5);
writeln('Корень 5 степени=',a:0:2);
writeln;
{seek(f,filesize(f)-3);}
for i:=filesize(f)-3 to filesize(f)-1 do
 begin
  seek(f,i);
  write(f,a);
 end;
seek(f,0);
writeln('Замена трех последних компонент корнем 5 степени:');
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
 end;
close(f);
readln
end.
Добавлено через 5 минут
Цитата Сообщение от KurtCastle Посмотреть сообщение
Что ты понимаешь под компонентом файла??
А ты?
0
03.07.2011, 12:17
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.07.2011, 12:17
Помогаю со студенческими работами здесь

Найти сумму всех компонентов и произведение отрицательных компонентов файла
Создать числовой файл F. Найти сумму всех компонентов и произведение отрицательных компонентов...

Определить корень четвертой степени произведения чисел
Последовательно вводятся действительные положительные числа,пока не будет введено отрицательное...

Найти корень кубический из произведения элементов файла, меньших 34
Найти корень кубический из произведения элементов файла, меньших 34???

Подсчет произведения последовательности из n элементов и вычислить корень n-ой степени
Всем доброго времени суток. Написал программу которая считает произведение последовательности из n...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru