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

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

27.03.2012, 11:18. Показов 1250. Ответов 2
Метки нет (Все метки)

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

Получить типизированный файл из неповторяющихся чисел исходного файла
В файле хранится последовательность целых чисел. Получить типизированный файл из неповторяющихся...

Из файла f переписать в файл g все числа, являющиеся полными квадратами
Из файла f переписать в файл g все числа, являющиеся полными квадратами.

Типизированный файл. В новый файл записать все массивы исходного, исключая четвертые элементы
2)копмоненты заданного типизированного файла - массивы, состоящие из пяти вещественных чисел...

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

2
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
27.03.2012, 17:38 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
32
33
34
35
36
37
38
39
40
41
42
uses crt;
var f,g:file of integer;
    n,a,i:integer;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
write('Сколько чисел записать в файл n=');
readln(n);
for i:=1 to n do
 begin
  a:=random(500)+1;
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:4);
  if frac(sqrt(a))=0 then write(g,a);
 end;
writeln;
writeln;
close(f);
reset(g);
if filesize(g)=0 then write('Полных квадратов нет')
else
 begin
  writeln('Файл полных квадратов:');
  while not eof(g) do
   begin
    read(g,a);
    write(a:4);
   end;
 end;
close(g);
readln
end.
n вводи побольше, типа 200, а то пусто будет.
1
0 / 0 / 0
Регистрация: 12.03.2012
Сообщений: 21
27.03.2012, 21:28  [ТС] 3
спасибо))
0
27.03.2012, 21:28
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.03.2012, 21:28
Помогаю со студенческими работами здесь

Найти сумму элементов и минимальный элемент. Получить новый файл, поместив в него только те компоненты исходного файла, которые представляют собой неч
Решите задачу пожалуйста если вам не трудно :) ►Сформировать типизированный файл натуральных...

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

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

Получить в файле g все компоненты файла f, являющиеся полными квадратами
class Program { static void Main(string args) { string file1 =...


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

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

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