Форум программистов, компьютерный форум, киберфорум
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...
8 / 6 / 3
Регистрация: 02.04.2018
Сообщений: 247
0

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

31.10.2019, 00:45. Показов 1039. Ответов 1
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
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
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.1*exp(4932*ln(10));
      if z+temp > MaxExtended then
        begin
          write('Переполнение');
          break
        end
      else
        z:=z+temp;
    end;
    writeln(k:0:0,' ',z:0:0);
 
  readln;
End.
Код не работает , думаю , что переполняется z+temp или нет? Подскажите пожалуйста

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

Арифметическое переполнение
Арифметическое переполнение в чем проблема не могу понять помогите 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
Блог
31.10.2019, 00:45
Помогаю со студенческими работами здесь

найти ошибку(переполнение.)
Задание во вложении. На 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
Новые блоги и статьи
Что такое шаблоны Django и как с ними работать
stackOverflow 19.02.2025
Шаблоны Django - основополагающий компонент фреймворка Django, который позволяет эффективно разделять логику приложения и его визуальное представление. Это очень важный инструмент для. . .
Какой Python Web-фреймворк лучший: Django, Flask или FastAPI?
stackOverflow 19.02.2025
В разработке под веб Python занимает особое место благодаря своей универсальности и богатой экосистеме. При создании веб-приложений разработчики сталкиваются с важным выбором - какой фреймворк. . .
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
Создаем REST API в Laravel с аутентификацией и Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru