Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Oljanovka
0 / 0 / 1
Регистрация: 01.12.2014
Сообщений: 4
#1

Дан файл чисел, найти в нем заданное число

09.03.2015, 21:12. Просмотров 834. Ответов 2
Метки нет (Все метки)

дан файл действительных чисел a1...an, что упорядочены по возрастанию . Найти среди этих чисел первый элемент , равный x^2(x задать самостоятельно).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.03.2015, 21:12
Ответы с готовыми решениями:

Дан файл чисел. Найти в нем наибольшее число
Дан файл чисел. Найти в нем наибольшее число. Помогите пожайлуста на...

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

Дан массив A (n),из целых чисел, и натуральное число k (0 < k ? n). Требуются вставить заданное число m b k-ую позицию массива.
Дан массив A (n),из целых чисел, и натуральное число k (0 &lt; k ? n). Требуются...

Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты
Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты.

Дан файл, содержащий натуральные числа. Найти наибольшее, наименьшее число, количество чётных и нечётных чисел.
Дан элементы файла, содержащий натуральное(real) числа найти а) максимальный...

2
Joy
Эксперт Pascal/Delphi
2133 / 1173 / 1423
Регистрация: 29.08.2014
Сообщений: 4,271
10.03.2015, 12:07 #2
Лучший ответ Сообщение было отмечено Oljanovka как решение

Решение

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
const eps=1e-6;
var
  f:file of real;
  x,r:real;
  ok:boolean;
begin
  write('x='); 
  readln(x);
  x:=x*x;
  ok:=false;
  assign(f,'input.txt');
  reset(f);
  while not eof(f) do begin
    read(f,r);
    if (r>=x-eps) and (r<=x+eps) then
      begin
        writeln(r:0:8);
        ok:=true;
        break;
      end;
   end;
   close(f);
   if not ok then writeln('элемент ',x:0:8, ' не найден в файле');
end.
1
Oljanovka
0 / 0 / 1
Регистрация: 01.12.2014
Сообщений: 4
23.03.2015, 19:17  [ТС] #3
сделала, правда без файла, а просто в программе

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
43
44
45
46
47
48
49
50
program lab15;
uses crt;
const n=10;
type vector=array[1..n] of integer;
var x:vector;
procedure uved(n:byte; var a:vector);
var i:byte;
begin
randomize;
for i:=1 to n do
a[i]:=random(16);
end;
procedure vuvid(n:byte; a:vector);
var i:byte;
begin
for i:=1 to n do
writeln('a[',i,']=', a[i]);
end;
procedure sort(n:byte; var a:vector);
var i,j,y:integer;
begin
for i:=2 to n do
for j:=n downto i do
if a[j-1]>a[j] then
begin y:=a[j-1]; a[j-1]:=a[j]; a[j]:=y; end;
end;
procedure poshuk(n:byte; a:vector);
var m,l,r,y,z:integer; flag: boolean;
begin
write('input y= '); readln(y);
z:=sqr(y);
l:=1; r:=n; flag:=false;
while not flag and (l<=r) do
begin
m:=(l+r) div 2;
if a[m]<z then l:=m+1 else
if a[m]>z then r:=m-1 else flag:=true;
end;
if flag then writeln('number ',m) else writeln('there isnt this element');
end;
 
BEGIN
clrscr;
uved(n,x);
vuvid(n,x);
sort(n,x);
vuvid(n,x);
poshuk(n,x);
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.03.2015, 19:17

Дан файл целых чисел. Удалить в нем все отрицательные и нечетные числа
Приветствую вас люди...Помогите кто нибудь буду очень длагодарен! Разработать...

Дан файл целых чисел. Продублировать в нем все числа,принадлежащие диапазону 5-10
Дан файл целых чисел. Продублировать в нем все числа,принадлежащие диапазону...

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


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

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

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