Форум программистов, компьютерный форум, киберфорум
Free Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Free Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Free Pascal Считать 2-е одновременно нажатые клавиши Бодрого времени суток, господа знатоки. В свободное от работы и отдыха время накрапываю игрушку и, как всегда, не хватает знаний (или ума). По задумке программа (одна из процедур) каждую секунду "считывает" нажатые клавиши - одну из цифровых от 1 до 9 и буквенная какая-либо из 5-и и, возможно, никакая не нажата. Можно это организовать? https://www.cyberforum.ru/ free-pascal/ thread2393446.html Free Pascal Массив: В каждом столбце матрицы найти второй отрицательный элемент, если таких нет, вывести ноль...
Сформировать квадратную матрицу. В каждом столбце найти второй отрицательный элемент.есди таких нет, вывести ноль. Добавлено через 1 минуту С использованием подпрограмм если можно
Free Pascal Создать типизированный файл целых чисел Создать типизированный файл целых чисел. Написать программу, которая вводит пару чисел m и n, а затем в данном файле заменяет m-й элемент на n. https://www.cyberforum.ru/ free-pascal/ thread2392916.html Free Pascal Найти количество шагов, которые может сделать конь на шахматной доске для прохождения всего поля https://www.cyberforum.ru/ free-pascal/ thread2392807.html
не получается сделать код программы: программа должна находить количество шагов, которые может сделать шахматная фигура конь на шахматной доске размером 8 на 8, с определенной позиции для прохождения всего шахматного поля, при этом в каждой клетке конь МОЖЕТ БЫТЬ ТОЛЬКО ОДИН РАЗ. Конь не может выйти за рамки шахматной доски. Изначально поле очищено и конь находиться в центре доски. Помогите...
Free Pascal Комбинаторные алгоритмы: генерация всех k элементных подмножеств множества из n элементов
Разработайте программу, которая генерирует все k элементные подмножества множества из n элементов таким образом, что каждое последующее подмножество образуется из предыдущего удалением одного элемента и добавлением другого. 		Free Pascal В правильной четырёхугольной пирамиде провести сечение через диагональ основания и середину бокового ребра (+ модуль) В правильной четырёхугольной пирамиде провести сечение, проходящее через диагональ основания и середину бокового ребра. https://www.cyberforum.ru/ free-pascal/ thread2391782.html
Free Pascal Как правильно в программу (создание шахматного поля) добавить модуль Unit? https://www.cyberforum.ru/ free-pascal/ thread2391603.html
Составить программу рисования на экране шахматного поля. Free Pascal. 		Второе и Третье задания Free Pascal
Во втором можно решить по теореме Безу, то есть остаток будет равен значению уравнения при x=c. Проблема с вводом полинома, я пытался ввести его вот так begin f:=1; s:=a; for i:=1 to n do begin f:=f*x; s:=s+a*f; end;
Free Pascal Уравнение на отрезке x^3*cos(x-1)+0,5*x -1 на отрезке Помогите с решением. Я даже в школе программирование не изучал, а в институте требуют https://www.cyberforum.ru/ free-pascal/ thread2390514.html Free Pascal Очереди Разработайте программу работы с очередью. Программа должна содержать следующие процедуры, вызываемые из меню: • построение пустой очереди; • добавление нового элемента в конец очереди; • удаление элемента с начала очереди; • просмотр очереди. https://www.cyberforum.ru/ free-pascal/ thread2390366.html
Массив: Получите новую матрицу согласно заданным схемам... Free Pascal
Дана действительная квадратная матрица порядка 2n (рис. 17.11). Цифрами обозначены подматрицы порядка n. Получите новую матрицу 17.2-17.5 Делаю в Lazarus (FP), но можно и в обычном Delphi или TurboPascal(Pascal ABC). 		Free Pascal Оставьте все выражения a = (c * d) (2k / m) путем деления на 5, а затем сообщите сумму остаточной стоимости. Если остато https://www.cyberforum.ru/ free-pascal/ thread2389445.html
Оставьте все выражения a = (c * d) (2k / m) путем деления на 5, а затем сообщите сумму остаточной стоимости. Если остаток равен 0, присвойте значение целочисленной части выражения. Для нечетных остатков выведите «нечетное число» и «четное число» в четном числе. Значения переменных c, d, k, m должны быть получены через случайные интервалы
Модератор
9868 / 5236 / 3306
Регистрация: 17.08.2012
Сообщений: 16,006
27.01.2019, 06:11 0

Олимпиадная задача "Минимум из трёх". Runtime error 205 - Free Pascal - Ответ 13275198

27.01.2019, 06:11. Показов 2584. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено sashakor22 как решение

Решение

- Ошиблись с типом переменных. Не всё из файла может поместиться в real или integer, откуда, собственно, и ошибка.
- Используете "волшебные числа", мало того, что это костыль, так ещё и неправильно Вы эти числа используете.
- Если выводить нужно в том виде, в котором это было во входном файле, то про целые числа можно (и нужно) смело забыть, и использовать только вещественные.

Какие-то несколько усложнённые у Вас преобразования... Я бы так написал:
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

var
  f, g: text;
  s: string;
  i, k, err, e, imin: integer;
  st: array[1..3] of string[255]; //судя по файлу, можно string[20]
  num: array[1..3] of extended; //extended, а никакой не real, и даже не double
 
begin
  assign(f, 'b_input.txt');
  reset(f);
  assign(g, 'b_output.txt');
  rewrite(g);
  while not eof(f) do
    begin
      readln(f, s);
      s += #9;
      e := 0;
      for i := 1 to 3 do st[i] := '';
      k := 1;
      for i := 1 to length(s) do
        if s[i] <> #9 then
          st[k] += s[i]
        else
          begin
            val(st[k], num[k], err);
            e += err;
            inc(k)
          end;
      imin := 1;
      if e = 0 then
        begin
          for i := 2 to 3 do
            if num[imin] > num[i] then imin := i
        end
      else
        begin
          for i := 2 to 3 do
            if st[imin] > st[i] then imin := i
        end;
      writeln(g, st[imin])
    end;
  close(f);
  close(g)
end.
Если всё же пожелаете целые числа обрабатывать отдельно от вещественных, применяйте для них тип int64.

Вернуться к обсуждению:
Олимпиадная задача "Минимум из трёх". Runtime error 205 Free Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 27.01.2019, 06:11
Готовые ответы и решения:

Runtime error 205 at 0000:020B
Здравствуйте! Вот собсно задание такое: Пишу следующее: program lab8; {Индивидуальное...

ошибка "runtime error 205"
Программа вычисляет сумму бесконечного ряда u(i) = xi / i!; f(x) = exp(x). но если ввести,...

Задача Кинотеатр. Runtime error
Тестирующая программа выдаёт ошибку Failed test #6 of 15. Runtime error Error: main:...

Задача на максимум и минимум трех чисел
Найти: Z=(min(a,b,c))/(max(a,b,c)) Программа: var a, b, c, min, max, Z: real; begin...

Задача с использованием как минимум трех методов
Решить задачу с обязательным использованием как минимум трех методов. Запрещается использовать...

2
27.01.2019, 06:11
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 27.01.2019, 06:11
Помогаю со студенческими работами здесь

Задача про минимум и максимум из трёх чисел
Здравствуйте, я написал программу в качестве домашнего задания. В неё вводятся 3 числа, а она в...

Ошибка Microsoft Visual C++ Runtime Library - Runtime Error
Здравствуйте. Буду признательна за помощь в моей беде. Совсем в этом не разбираюсь. В Safari при...

Из-за чего может быть runtime error? Задача "Автобус" с acmp
Доброго времени суток. Решаю задачу &quot;Автобус&quot;, но на 19 тесте (не могу предположить, что там может...

Error 205 при вводе значений в программе
error 205 при вводе значений в программе. Как обойти не изменяя алгоритм вычисления ? ...

Программа выдает ошибку Microsoft Visual C++ Runtime Library Runtime Error! Program: c:\Program Files\OpenOff
Здравствуйте! Написали программку, вставляющую в подготовленный шаблон документа Open Office Calc и...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru