Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Даны четыре двумерных массива A, B, C, D, для каждого из них определить количество положительных элементов Для каждого из массивов определить количество положительных элементов https://www.cyberforum.ru/ turbo-pascal/ thread1391228.html	Вычислить скалярные произведения массивов Turbo Pascal даны четыре одномерных массива A, B, C, D, вычислить их скалярные произведения A и B, C и D
Turbo Pascal Наберите и отладьте три варианта программы о вычислении пути, пройденного автомобилем что это такое и как это делать? https://www.cyberforum.ru/ turbo-pascal/ thread1391168.html	Turbo Pascal Преобразовать матрицу символов в матрицу кодов и наоборот (через модули) https://www.cyberforum.ru/ turbo-pascal/ thread1391095.html unit modu; interface const n=3; type {процедурный тип} simv=array of char; {символы описываем с помощью char} code=array of byte; {код описывается с помощью цифр} implementation type proc=procedure(var kod:code; var sim:simv);
Проверить, входит ли в запись числа ровно два раза цифра 5 Turbo Pascal Дано целое число n, удовлетворяющее условию 0 < \|n\| ≤ 2 · 109. Проверить, входит ли в запись числа n цифра 5 ровно два раза.	Turbo Pascal Среди элементов четных столбцов массива найти произведение элементов лежащих в заданном интервале Среди элементов четных столбцов массива найти произведение элементов лежащих в интервале Program LN1; var i,j,p,N,M:integer; x:array of integer; begin write('Введите количество строк N,='); Readln (N); write('Введите количество столбцов M,='); https://www.cyberforum.ru/ turbo-pascal/ thread1390998.html
Turbo Pascal Не выдается сообщение в случае отсутствия положительных элементов массива https://www.cyberforum.ru/ turbo-pascal/ thread1390981.html Помогите пожалуйста, считает и заменяет все правильно, а вот если положительных элемент нет, сообщение не выдает. Все отрицательные элементы массива замените квадратом среднего арифметического его положительных элементов. Если положительных элементов нет, выдать соответствующее сообщение Program laboratornai; var SR, S:real; N,i,K,L:integer; X:array of real; Begin write ('введите...	Turbo Pascal Определить, принадлежит ли точка графику Здравствуйте, Уважаемые форумчане. Хочу спросить вас о помощи. Нужно сделать программу, которая при вводе координат, определяла: Принадлежит ли эта точка графику или к пространству между графиком и системой координат. Уравнение вот: Y=2x-4 График вот: (Ссылка на сторонний ресурс удалена)
Turbo Pascal Вывести на экран графические изображения на основе данных, записанных в файле https://www.cyberforum.ru/ turbo-pascal/ thread1390779.html Здравствуйте уважаемые форумчане, проболел долгое время и теперь трудно с графиками разобраться. Помогите пожалуйста, вот задали задание а как его делать без понятия. Буду очень благодарен если поможете, желательно с пояснениями, естественно если вас не затруднит. Заранее благодарю! Разработать алгоритм и составить программу вывода на экран графического изображения на основе данных с файла,...	Turbo Pascal Считывание записей из файла и вывод их на экран Допустим у меня в текстовом файле есть готовые записи Иванов И.И. ФМ-1-02 Высшая математика 4 Петров П.П. ФМ-1-02 Высшая математика 3 Сидоров С.С. ФМ-2-02 Физика 3 Как мне их считать из файла и вывести на экран? Добавлено через 14 минут Записи заданы так ФИО студента (17 знаков), группу (8 знаков), название дисциплины (20 знаков), полученную на экзамене... https://www.cyberforum.ru/ turbo-pascal/ thread1390678.html
В чем состоит 131 ошибка в процедуре умножения Turbo Pascal unit zzz; interface const n=10; type mas=array of integer; var i:integer; procedure plus(ml,m2:mas; var m3:mas); procedure mult(ml:mas;k:integer; var m3:mas); procedure search(ml:mas; var min, max:integer);	Turbo Pascal Подсчитать площадь N треугольников по заданным координатам https://www.cyberforum.ru/ turbo-pascal/ thread1390567.html программа должна быть создана с помощью function Вот начало программы, как я думаю: var s :real; a:array of integer; i,n:integer; function dl(x1,y2,x2,y2:real):real; begin dl:=sqrt(sqr(x2-x1)+sqr(y2-y1)); end; function st(x,y,z:real):real; var p:real;

Joy

2386 / 1298 / 1492

Регистрация: 29.08.2014

Сообщений: 4,661

10.03.2015, 12:07

Дан файл чисел, найти в нем заданное число - Turbo Pascal - Ответ 7321180

10.03.2015, 12:07. Показов 1050. Ответов 2

Метки (Все метки)

Сообщение было отмечено Oljanovka как решение

Решение

Pascal

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.

Вернуться к обсуждению:
Дан файл чисел, найти в нем заданное число Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

10.03.2015, 12:07

Готовые ответы и решения:

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

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

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

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

	10.03.2015, 12:07

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

10.03.2015, 12:07

Помогаю со студенческими работами здесь

Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты
Текст задачи:Дан файл вещественных чисел.Заменить в нем все элементы на их квадраты В чем ошибка...

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

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

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

Наверх