Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Barsic
0 / 0 / 0
Регистрация: 30.05.2010
Сообщений: 3
#1

файлы - Pascal

30.05.2010, 22:04. Просмотров 265. Ответов 1
Метки нет (Все метки)

Дан файл f, компоненты которого являются действительными числами. Найти произведение компонент файла f;
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.05.2010, 22:04
Я подобрал для вас темы с готовыми решениями и ответами на вопрос файлы (Pascal):

Файлы
Доброго времени суток возник вопросик: Дан текстовой файл и некоторое слово....

файлы
имеется файл,который состоит из ФИО, 5 зачетов, 5 оценок. получить новый...

файлы
в общем есть текстовый файл, в нем 10 слов, как эти слова можно записать в...

файлы
Не подскажете где ошибка? program files; const nmax=10; ...

Файлы\\
заданы файлы f1, f2, f3, f4, f5, компонентами которого являються действительные...

Файлы
Дан файл Товар, содержащий сведения об экспортируемых товарах: 1) наименование...

1
c00le®
138 / 138 / 65
Регистрация: 20.03.2009
Сообщений: 235
31.05.2010, 02:15 #2
Лучший ответ Сообщение было отмечено Barsic как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var
f:text;
a,i,s,pr:integer;
begin
clrscr;
  randomize;
    assign(f,'file.txt');
    rewrite(f);
    for i:= 1 to 10 do
    begin
    a:=random(5)+2;
  write(f,a:2); end; close(f);
  pr:=1;
reset(f);
  while not eof(f) do begin
      read(f,s);
      pr:=pr*s;
  end;
writeln('Произведение: ',pr:2); close(f);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2010, 02:15
Привет! Вот еще темы с решениями:

Файлы.
дополнение каждой сроки заданым символом таким образом, чтобы ее длина стала...

Файлы
Уважаемые модератоы. Помогите, пожалуйста с решением, если это не составит...

файлы
надо позарез""" Прямо сейчас!!!!!!!!!! Дано два файла g1 и g2, содержащих...

Файлы
type stroka=array of char; textfile=file of char; Описать процедуру...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru