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

Сформировать типизированный файл по формуле, найти произведение чисел, кратных 2 и 10

15.04.2015, 10:38. Показов 1077. Ответов 1
Метки нет (Все метки)

Помогите решить задачу, пожалуйста.
Типизированные файлы.
А) Формировать М1(из 10 компонент) первая половина по формуле 3i, вторая по формуле i+3
B) Найти в M1 произведение чисел кратных 2 и 10
Заранее спасибо!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.04.2015, 10:38
Ответы с готовыми решениями:

Сформировать типизированный файл, содержащие действительные числа. Вычислить среднее арифметическое этих чисел
Сформировать типизированный файл ,содержащие действительные числа.Вычислить среднее арифметическое...

Сформировать типизированный последовательный файл, компоненты которого вычисляются по формуле
1.Сформировать типизированный последовательный файл, компоненты которого вычисляются по формуле,...

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

Сформировать одномерный массив. Найти произведение элементов, кратных 5
сформировать одномерный массив. Найти произведение элементов, кратных 5. через массивы решить и...

1
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
17.04.2015, 08:54 2
Лучший ответ Сообщение было отмечено motocross97 как решение

Решение

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
{
Типизированные файлы.
А) Формировать М1(из 10 компонент) первая половина по формуле 3i,
вторая по формуле i+3
B) Найти в M1 произведение чисел кратных 2 и 10}
const
  n=10;
var
  m1:file of integer;
  i:integer;
  p:longint;
begin
  assign(m1,'m1.dat');
  rewrite(m1);
  for i:=1 to n div 2 do
    write(m1,3*i);
  for i:=n div 2 +1 to n do
    write(m1,i+3);
  close(m1);
 
  p:=1;
  writeln('Содержимое файла:'); 
  reset(m1);
  while not eof(m1) do
    begin
      read(m1,i);
      write(i:5);
      if (i mod 2=0) and (i mod 10=0) then
        p:=p*i;
    end;
  writeln;
  close(m1);
  writeln('Прозведение: ',p);
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.04.2015, 08:54
Помогаю со студенческими работами здесь

Найти произведение количества чисел не кратных 5 на количество чисел не кратных 7
задача через stdio.h С клавиатуры вводится последовательность ЦЕЛЫХ чисел. Количество чисел...

Сформировать файл из чисел последовательности (–1)^k*0.3^k/(k + 1).Найти произведение компонентов файла
Сформировать файл из чисел последовательности (–1)^k*0.3^k/(k + 1).Найти произведение компонентов...

Найти произведение чисел, кратных 4, но не кратных 7
Помогите пожалуйста чайнику решить две задачки :) 1. Пользователь вводит N целых чисел. Найти...

Найти произведение чисел, кратных 4, но не кратных 7
1. Пользователь вводит N целых чисел. Найти произведение чисел, кратных 4, но не кратных 7....


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

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

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