2 / 2 / 1
Регистрация: 15.10.2012
Сообщений: 16
1

Дан файл целых чисел. Подсчитать произведение чисел большее 5

16.10.2012, 17:01. Показов 1074. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program primer;
var fx: text;
s,c:integer;
begin
assign(fx,'F:\0001.txt');
reset (fx);
S:=0;
while not Eof(fx) do
begin
read (fx,c);
If c > 5 then S:=S*c;
end;
close (fx);
writeln('S=',S);
end.
Помогите пожалуйста, что то не работает.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.10.2012, 17:01
Ответы с готовыми решениями:

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

Дан файл целых чисел. Подсчитать сумму чисел, больших числа N
program p1; var fx:text; s,k,n:real; c:integer; begin...

Дан файл вещественных чисел Создать файл целых чисел, содержащий номера локальных максимумов исходного файла
2-File. Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных...

Дан файл целых чисел. Создайте файл вещественных чисел, компонентами которого будут
Дан файл целых чисел. Создайте файл вещественных чисел, компонентами которого будут средние...

2
8 / 8 / 9
Регистрация: 01.10.2012
Сообщений: 100
16.10.2012, 18:10 2
Код
program primer;
var fx: file of integer;
begin
assign(fx,'F:\0001.txt');
reset (fx);
S:=1;
Типизированный же файл. И переменной S значение 1 должно быть присвоено, ибо умножение.
0
2 / 2 / 1
Регистрация: 15.10.2012
Сообщений: 16
16.10.2012, 18:39  [ТС] 3
Точно. Но ответ всё равно 0.
0
16.10.2012, 18:39
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.10.2012, 18:39
Помогаю со студенческими работами здесь

1) Подсчитать произведение и количество всех неотрицательных чисел из 10 не целых чисел, введенных пользовател
1) Подсчитать произведение и количество всех неотрицательных чисел из 10 не целых чисел, введенных...

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

Дан файл целых чисел.Вывести кол-во содержащихся в нем чисел
Дан файл целых чисел.Вывести кол-во содержащихся в нем чисел

Дан файл состоящий из целых чисел. Создать новый файл целых чисел, содержащий длины всех серий исходного файла
Дан файл целых чисел. Создать новый файл целых чисел, содержащий длины всех серий исходного файла...


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

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

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