Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
ЕвгенияТ
0 / 0 / 0
Регистрация: 20.07.2014
Сообщений: 41
1

Найти произведение квадратов предпоследней компоненты файла и компоненты с номером k

30.09.2014, 17:27. Просмотров 824. Ответов 1
Метки нет (Все метки)

1)создаите фаил f компанентами которого являются целые числа. Признаком конца последовательности является число 10. Вывести содержимое фаила на экран. Найти произведение квадратов предпоследней компоненты фаила и компоненты с номером k(вводимое пользователем)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.09.2014, 17:27
Ответы с готовыми решениями:

Найти произведение компонент файла (файл F, компоненты являются действительными числами)
Создать текстовый файл в текстовом редакторе. Организовать просмотр содержимого...

Исключить из файла вещественных чисел компоненты, которые меньше предшествующей компоненты
Составить программы, с помощью которых: - сформировать файл из вещественных...

Переписать с сохранением порядка следования компоненты файла 1 F в файл 2 F , а компоненты файла 2 F в файл 1 F
Ввести файлы 1 F и 2 F . Переписать с сохранением порядка следования компоненты...

Переписать с сохранением порядка следования компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1
Даны текстовые файлы f1 и f2. Переписать с сохранением порядка следования...

Заменить значение первой компоненты типизированного файла на значение последней его компоненты
Создать файл, компоненты (количество <=7) которого являются целыми числами....

1
ildwine
Супер-модератор
2989 / 1871 / 1224
Регистрация: 04.03.2013
Сообщений: 4,572
Записей в блоге: 1
30.09.2014, 18:08 2
Лучший ответ Сообщение было отмечено ЕвгенияТ как решение

Решение

Я разделил решение на 2 программы, при желании можно обойтись одной.
1. В первой программе мы создаем файл.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  f : file of integer;
  a : integer;
begin
  {создаем файл}
  assign(f, 'myfile.int');
  rewrite(f); {открываем на запись}
  repeat
    write('введите очередное число для записи в файл (10 - конец): ');
    readln(a);
    if a <> 10 then write(f, a) {если не 10 то пишем в файл}
  until a = 10;
  close(f); {закрываем файл}
  writeln('файл сохранен');
  readln
end.
2. Во второй (запускаем ее после создания файла в первой программе), открываем, выводим и вычисляем произведение квадратов:
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
var
  f : file of integer;
  a, k, p, i : integer;
begin  
  i := 0;
  {открываем файл на чтение}
  assign(f, 'myfile.int');
  reset(f);
  writeln('содержимое файла:');
  while not EOF(f) do
  begin
    read(f, a); {считываем следующее число}
    write(a:4); {выводим на экран}
    inc(i); {подсчет количества компонент}
  end;
  writeln(); {перевод строки} 
  {ввод k с проверкой принадлежности номера с количеством компонент файла}
  repeat
    write('введите k: ');
    readln(k)
  until k in [1..i];
  seek(f, k-1); {установка указателя на введенную позицию}
  read(f, p); {считываем k-ую позицию в p}
  p := sqr(p); {квадрат k-ой позиции}
  seek(f, i-2); {установка указателя на предпоследнюю позицию}
  read(f, a); {считываем в a}
  p := p * sqr(a); {вычисляем произведение}
  writeln('произведение квадратов ', k, ' и ', i-1, ' компонент = ', p);
  close(f); {закрываем файл}
  readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.09.2014, 18:08

Дано файл f, компоненты которого являются натуральные. Записать в файл g все компоненты файла f, которые являются полными квадратами.
Помогите решить буду очень благодарен. Задание 1. Дано файл f, компоненты...

Найти разность первой и последней компоненты файла вещественных чисел
Задача такая: Записать в файл последовательного доступа N действительных чисел....

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


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

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

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