Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Блок-схема Можете сделать блок-схему для данного задания: Дан одномерный массив A из n элементов. Определить наибольшее значение произведения Ai Ai-1 Добавлено через 1 час 2 минуты program Project5; ... https://www.cyberforum.ru/ pascal/ thread2521394.html Pascal Метод Ньютона 3z^3+2z^2+3 https://www.cyberforum.ru/ pascal/ thread2521369.html
Помогите с задачей {3z}^{3}+{2z}^{2}-3 =; =. Спасибо! Добавлено через 3 часа 7 минут Решение:
Pascal Не могу найти ошибку:( Добрый вечер! Нужна помощь: Программа должна выводить на экран слова, содержащие ровно две заданные буквы. Текст и буквы вводит пользователь. Не знаю, как нужно посчитать посчитать эти буквы, я вроде... var s,s1:string; n,k:char; i,j,q,p,f:integer; begin writeln('Введите 2 разных символа'); readln(n,k); writeln('Введите строку из слов, разделенных пробелами'); writeln('в том числе... https://www.cyberforum.ru/ pascal/ thread2521364.html Pascal Вставить число в массив, не нарушив его упорядоченности Дан массив из n целых чисел.массив упорядочен по неубыванию. Дано число b-целое.Вставить число b в массив,не нарушив его упорядоченность var a:array of integer; n,b,c,i,j,k,p:integer; begin clrscr; randomize; write('n='); readln(n); a:=random(5); for i:=2 to n do begin https://www.cyberforum.ru/ pascal/ thread2521842.html
Нельзя преобразовать тип real к integer Pascal
type tfile = file of real; procedure vvod(var n: integer; ch: char); begin write('Введите: ', ch, '='); readln(n); end; procedure create_file(var f: tfile; n: integer); Ну логично же! Операция mod не применима к типу real… Да и нельзя будет записать символ пробела в файл fileG в строке 53! a mod 2 — это чётность целых чисел, а не отрицательность...
Pascal Пирамидка Археологи откопали ранее неизвестную пирамиду, от которой к моменту раскопок остался только нижний ярус (цоколь) — квадрат из каменных блоков, имеющий сплошной потолок. Сканирование разнообразными... https://www.cyberforum.ru/ pascal/ thread2521149.html
Pascal Метод хорд x^3+sqrt(x)+2x https://www.cyberforum.ru/ pascal/ thread2521360.html
Помогите с задачей {x}^{3}+\sqrt{x}+2x =; =. Спасибо!
Напечатать числа в заданном виде Pascal
Составить процедуру ,которая для заданного числа n печатала целые числа в виде (n=3): 1 2 3 1 2 1 procedure print(a:integer); var i,j:integer; begin for i:=1 to a do begin for j:=1 to a-i+1 do write(j:3); writeln; end; end;
Pascal посчитать количество цифр (от "0" до "9")
В заданной строке посчитать количество цифр (от "0" до "9") k:=0; for i:=1 to length(s) do if s in then inc(k);
Ряды Pascal
В данной программе все ряды собраны вместе и предлагаются на выбор. Нужно разбить программу на ряды т.е сделать из этой программы 7 программ с каждым рядом program ryad; type func = function(x:... Нужно разбить программу на ряды т.е сделать из этой программы 7 программ с каждым рядом Так делай.
Pascal Type mismatch
Добрый день, Помогите пожалуйста понять почему выдает ошибку Type mismatch? function Citrix(): Boolean; begin if RegKeyExists ('HKLM',... ты на Delphi пишешь? Так чего в раздел Delphi не пошёл? а по сути. Скорее всего первый параметр у функции это не строка, а RootKey: HKEY попробуй function Citrix(): Boolean; begin ...
Являются ли числа, находящиеся по обе стороны от заданного чётного числа, близнецами Pascal
Составить функцию логического типа для проверки условия: являются ли числа, находящиеся по обе стороны от заданного четного числа близнецами (близнецы - простые числа,разница между которыми равна... так это же просто. возьми функцию проверки числа на простоту. поиском легко гуглится. да и тут на форуме она есть. и потом легко readLn(n); if isSimple(n-1) and isSimple(n+1) then...
Модератор
10130 / 5464 / 3370
Регистрация: 17.08.2012
Сообщений: 16,703
01.11.2019, 09:54 0

Переполнение - Pascal - Ответ 13953921

01.11.2019, 09:54. Показов 1039. Ответов 1
Метки (Все метки)

Ответ

Цитата Сообщение от FunnyK Посмотреть сообщение
переполняется z+temp
Да.
Цитата Сообщение от FunnyK Посмотреть сообщение
Pascal
14
      MaxExtended:=1.1*exp(4932*ln(10));
Вас что, записи чисел в научной нотации не учили, что ли? Вместо этого бреда должно быть
Pascal
14
      MaxExtended:=1.1e4932;
Для справки: максимальное нормализованное число для типа exended:

MaxExtended = 1.18973149535723176502*104932.

Вообще шедевр:
Цитата Сообщение от FunnyK Посмотреть сообщение
Pascal
23
    writeln(k:0:0,' ',z:0:0);
Что и как будет напечатано, не задумывались? По идее, должно напечататься число с 4932 цифрами. Правда, есть защита "от дурака". Большинство паскалевских компиляторов вместо длиннющего числа с кучей нулей в конце (как просили) милостиво выдадут что-то типа 1.1E+4932 (чтобы не было бегущего по экрану легиона нулей), но это, опять же, не информативно.

Чтобы не было переполнения, нужно чуть изменить условие. Исправленная программа:
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
Var
  z, k, temp,  MaxExtended:extended;
  n, i:integer;
 
Begin
  k:=13;
  z:=15;
  n:=100001;
 
  for i:=1 to n do
    begin
      temp:=k;
      k:=z;
      MaxExtended:=1.18973149535723176502E4932;
      if z > MaxExtended - temp then
        begin
          write('Переполнение');
          break
        end
      else
        z:=z+temp;
    end;
    writeln(k:30,z:30);
  readln;
End.
И ещё. Возможно, Вы избрали неверный алгоритм, либо неверно реализовали верный алгоритм. Смысла никакого я в Вашей программе не вижу.

Опишите, пожалуйста, подробно, что должна делать Ваша программа.

Вернуться к обсуждению:
Переполнение Pascal
1
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
01.11.2019, 09:54
Готовые ответы и решения:

Арифметическое переполнение
Арифметическое переполнение в чем проблема не могу понять помогите const nn=16; type mas=array of integer; var a:mas; n,k:integer; ...

Арифметическое переполнение
Ребят, пишет " Арифметическое переполнение ", в чем ошибка?program lab04; //------------------------------ uses crt; procedure lab4; ...

Арифметическое переполнение
У меня проблема: все программы выдают арифметическое переполнение. В универе дали методичку перевести паскаль в асм, но проблема в том что...

1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
01.11.2019, 09:54
Помогаю со студенческими работами здесь

найти ошибку(переполнение.)
Задание во вложении. На 11 строке выдает переполнение. Или ,если не сможите увидеть ошибку,предложите свой вариант программы) ...

Почему происходит переполнение?
Только учусь паскалю так что имейте ввиду если не знаю чего-то элементарного. Вобщем вот код с книжки Program fsaf; Var a :...

Вещественное переполнение, исправить код
помогите пожалуйста, при решении данной матрицы 3 2 10 -7 1 -4...

Подскажите где ошибка. Выдаёт арифметическое переполнение?
program z1; USES crt; const N= 10; var x: array of integer; i: integer; y: array of integer; begin ClrScr; randomize; for...

Вычислить сумму ряда (Ошибка, переполнение. Где?)
Вычисление суммы ряда. Program fuuuuu; Const e=0.0001; Var a,s,f,x:real; k:integer; Function F1(n:real;m:byte):real; Var...

0
Новые блоги и статьи
Создаем SPA Router на чистом JavaScript
bytestream 17.02.2025
В современной веб-разработке одностраничные приложения (SPA) стали стандартом для создания динамичных и отзывчивых пользовательских интерфейсов. Ключевым компонентом любого SPA является роутер -. . .
Машинное обучение на TypeScript и TensorFlow
bytestream 17.02.2025
Машинное обучение становится все более востребованным направлением в современной разработке программного обеспечения. Интеграция искусственного интеллекта в веб-приложения открывает новые возможности. . .
Манипуляция данными EXIF и JPEG в JavaScript
bytestream 17.02.2025
В современном мире цифровой фотографии метаданные изображений играют важнейшую роль в организации и управлении медиаконтентом. Формат EXIF (Exchangeable Image File Format) - это стандарт,. . .
Как создать GUID/UUID в JavaScript
bytestream 17.02.2025
GUID (Globally Unique Identifier) и UUID (Universally Unique Identifier) - это специальные форматы 128-битных идентификаторов, которые практически гарантируют уникальность значения во времени и. . .
Что такое мышление в упрощенном смысле (моё субъективное видение, для создания модели).
Hrethgir 17.02.2025
Разумеется упрощать смысл есть. Дело в том, что я пришёл к тому выводу, что даже если я создам свой процессор (конвейер), то первое для чего смогу его использовать в качестве демонстративного. . .
Как Node.js устроен изнутри
Wired 17.02.2025
Node. js коренным образом изменил подход к веб-разработке, позволив использовать JavaScript не только в браузере, но и на стороне сервера. Созданный в 2009 году Райаном Далем, Node. js представляет. . .
Как обновить Node.js в Windows
Wired 17.02.2025
Думаю, многие разработчики сталкивались с ситуацией, когда устаревшая версия Node. js становилась источником проблем - от несовместимости с новыми пакетами до уязвимостей в безопасности. Особенно это. . .
Как обновить Node.js в MacOS
Wired 17.02.2025
В Node. js существует несколько подходов к обновлению, каждый из которых имеет свои преимущества и особенности применения. Выбор конкретного метода зависит от ваших потребностей - будь то. . .
Как обновить Node.js в Linux
Wired 17.02.2025
Обновление Node. js может показаться сложной задачей, особенно если у вас несколько проектов с разными зависимостями. Однако существует несколько надежных способов обновления, подходящих для разных. . .
[golang] 134. Gas Station
alhaos 17.02.2025
Тут нам даны два целочисленных слайса gas и cost, индексы массива представляют собой заправочные станции. а элементы gas это количество топлива на такой станции, cost это количество топлива. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru