Pascal ABC

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

Войти

Другие темы раздела
Pascal ABC Найти минимальный элемент одномерного целочисленного массива и его индекс Найти минимальный элемент одномерного целочисленного массива,состоящего из 10 элементов.Вывести не только число го и его индекс.чтобы выглядело так "минимальный элемент А=-8 Программу надо написать... для Паскаля.АВС. а пишете в раздел Turbo Pascal... https://www.cyberforum.ru/ pascalabc/ thread1942704.html	Создать дек (стек) Pascal ABC Нужно создать так называемый дек(так называет у нас его учитель) Нужно что бы можно было добавить в начало массива и убрать из начала массива число Нужно что бы можно было добавить в конец массива... https://www.cyberforum.ru/turbo-pascal/thread969115.html
Pascal ABC Вернуться с одной части кода на другую program Zadchahz; var k,n,er,a,e:integer; s,x,y1,b:real; y,a1:string; begin read (y); n:=length(y)-1; for k:=1 to n do begin Если верно понял то задание, хотя написано головоломно, то так. стирая в конце которого по одной цифре и складывая все получившиеся числа(abc+ab+c), var y,k,a,x:integer; begin y:=335; a:=y;...	Pascal ABC Сигнатурный анализ В заданной директории найти все файлы, содержащие заданную сигнатуру. Помогите пожалуйста,вообще не шарю, а сдать срочно надо https://www.cyberforum.ru/pascalabc/thread1437422.html https://www.cyberforum.ru/turbo-pascal/thread1523766.html https://www.cyberforum.ru/pascal/thread77837.html
Pascal ABC Номера, набираемые ходом коня Шахматная ассоциация решила оснастить всех своих сотрудников такими телефонными номерами, которые бы набирались на кнопочном телефоне ходом коня. Например, ходом коня набирается телефон 340-49-27.... Так, на всякий случай, вдруг кому-нибудь захочется решить: очевидно, цифра 5 не используется. https://www.cyberforum.ru/ pascalabc/ thread1943500.html	Ошибка: Нет перегруженной подпрограммы с такими типами параметров Pascal ABC program Zadchahz; var k,n,er,a:integer; s,x,e,f,y1,b:real; y:string; begin read (y); n:=length(y)-1; for k:=1 to n do begin используется FloatToStr(x);, что должно переводить Real in String Не должно, потому что не используется. Как же мне тогда x перевести в string ? y:=FloatToStr(x);
Pascal ABC В трёхмерном массиве определить значения минимального и максимального элементов и их координаты 2.40. Дан трехмерный массив А(3,2,4) целых чисел. Составить программу определения значения maх и min элементов и их координат. Рассчитать разницу между maх и min и заменить ею все элементы, лежащие в... ругается на лейбл l1 и выдает ошибку 113 У вас этот оператор получился внутри блока "begin end" процедуры Print, а не в начале основного блока программы: Procedure print (var a: mas); var i, j, k:... https://www.cyberforum.ru/ pascalabc/ thread1942818.html	Pascal ABC Очистка экрана без подключения модуля Crt Здравствуйте. Хотелось бы узнать, можно ли очистить экран без подключения модуля Crt? Ну или увеличить число активных строк? Не могу выводить большие таблицы и списки, верхняя часть удаляется. В простом АВС чистит экран системная процедура cls; Добавлено через 2 минуты А вообще без CRT окно вывода практически безразмерное, крути скрол и смотри. https://www.cyberforum.ru/ pascalabc/ thread1942599.html
Pascal ABC Напишите функцию, которая удаляет из переданной ей символьной строки все символы '<' и '>' https://www.cyberforum.ru/ pascalabc/ thread1942705.html Напишите функцию, которая удаляет из переданной ей символьной строки все символы '<' и '>'. . function del(s:string):string; var i:integer; begin i:=1; repeat if (s='<') or (s='>') then begin delete(s,i,1); dec(i); end; inc(i);	Pascal ABC Транспонировать матрицу Здравствуйте В данной программе мне нужно, чтобы были процедуры и функции. Транспонировать матрицу А(6х6). Транспонирование матрицы заключается в замене i-ых строк j-ыми столбцами. Заранее... Опять жаловаться будете: i-ых строк j-ыми столбцами Если уж одной строки на один столбец, то так и пишите. Добавлено через 14 минут program matr; uses crt; https://www.cyberforum.ru/ pascalabc/ thread1942668.html
Pascal ABC Моделирование электростатических линий силового поля ребята помогите пожалуйста написать программу "моделирование электростатических линий силового поля" ну начни хоть что то сам (сама) делать. наверно у тебя есть какая то методичка... хоть ее прикрепи к форуму. https://www.cyberforum.ru/ pascalabc/ thread1942561.html	Pascal ABC Создать очередь Нужно сделать очередь на примере массива Что бы можно было добавлять в конец и удалять из начала элементы Пример работы программы: Я ввожу какие-то цифры - 15 20 35 66 Ввожу push (добавить ,... https://www.cyberforum.ru/turbo-pascal/thread673150.html

Cyborg Drone

Модератор

10131 / 5465 / 3370

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

Сообщений: 16,703

23.03.2017, 04:44

Выход из бесконечного цикла - Pascal ABC - Ответ 10246691

23.03.2017, 04:44. Показов 3419. Ответов 5

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

Ответ

paronroman, что Вы замусориваете форум одной и той же задачкой?

И не постигаю, как так получилось, что Вы не сумели реализовать алгоритм, который предложил Вам jogano. Каким образом Вам вообще удалось организовать бесконечный цикл там, где имеет место предопределённый цикл? Зачем Вам преобразовывать число в строку?

И применяйте оператор goto только тогда, когда он действительно необходим. В данном случае, из-за него почти все беды.

Вот, набросал по-быстрому:

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
var x, y, i, k, xt, yt: integer;
    z: real;
begin
  repeat //ввод Y с проверкой
    write('Y > 0;  Y = ');
    readln(y)
  until y > 0;
  k := trunc(ln(y) / ln(10)); //k=n-1
  z := 9 / (10 - exp(-k * ln(10))); //z=9/(10-10^(1-n))
  x := 0; //пока полагаем, что X не существует
  for i := trunc(z * y) to trunc(z * (y + k)) do //от 9Y/(10-10^(1-n)) до 9(Y+n-1)/(10-10^(1-n))
    begin
      xt := i; //предполагаемый x (копируем, чтобы не трогать счётчик цикла)
      yt := 0; //предполагаемый y
      repeat //считаем, какой yt получается из данного xt
        yt := yt + xt;
        xt := xt div 10;
      until xt = 0;
      if y = yt //если предполагаемый y совпал с заданным,
        then begin //то
          x := i; //запоминаем X
          break //и досрочно выходим из цикла
        end
    end;
  if x > 0 //если X найден,
    then write('X = ', x) //то печатаем его значение
    else write('X doesn''t exist') //иначе печатаем, что X не существует
end.

Погонял маленько, считает верно.

Вернуться к обсуждению:
Выход из бесконечного цикла Pascal ABC

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

23.03.2017, 04:44

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

Выход из цикла
Добрый вечер. Есть программка которая генерирует примеры, а пользователь должен дать правильный ответ. program lil; uses crt; ...

Выход из цикла по нажитию клавиши
Подскажите пожалуйста как сделать выход из цикла по нажатию клавиши, любой кроме цифр. Используя readkey, возникают проблемы с readln....

Исправить exit на формальный выход из цикла
Нужно исправить все exit на формальный выход из цикла, help :help: uses crt; type arr=array of real; ar2=array of real; var ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

23.03.2017, 04:44

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

Выход из бесконечного цикла
Здравствуйте Посмотрите вот такой интересный код s := 1; i := 1; repeat s := s/2; inc(i); writeln( i:2,' ',s,'...

Алгоритм цикла. Рассчитать сумму бесконечного ряда
Помогите пожалуйста: Рассчитать сумму бесконечного ряда: 1+1/34+1/54+.... Суммирование проводить, пока очередной член ряда по модулю...

Выход из вложенного цикла
Не получается продолжить поиск со следующей строки после нахождения первого отрицательного элемента в двумерном массиве. Полагаю, нужно...

Выход из цикла repeat и case
вот кусок проги в которой вычисляется сумма разность ,умножение чисел ,Под цифрами 1,2,3 в данном примере в case просто написаны...

Используя оператор цикла с последующей условием, вычислить сумму бесконечного ряда
Всем привет. Помогите пожалуйста с заданием! Используя оператор цикла с последующей условием, вычислить сумму бесконечного ряда,...

Новые блоги и статьи Все статьи Все блоги /
Исследование байт-кода Python: подключаем дизассемблер stackOverflow 19.02.2025 Многие знают, что Python - интерпретируемый язык, но мало кто задумывается о том, что происходит между написанием кода и его выполнением. На самом деле Python использует промежуточное представление. . .	Исследование байт-кода Python: компиляторы против интерпретаторов stackOverflow 19.02.2025 Понимание байт-кода Python - основополагающий аспект для разработчиков, стремящихся глубже понять внутренние механизмы языка и оптимизировать производительность своих программ. Байт-код представляет. . .	Comprehensions в Python - что это такое? stackOverflow 19.02.2025 Когда речь заходит о Python, одной из его самых красивых и мощных возможностей являются списковые включения или comprehensions. Это особые синтаксические конструкции, позволяющие создавать новые. . .	Python правда такой медленный? Развенчиваем миф о медлительности stackOverflow 19.02.2025 Когда речь заходит о выборе языка программирования для нового проекта, вопрос производительности часто становится одним из ключевых факторов. Python, несмотря на свою популярность и простоту. . .	Динамические формы в Flask stackOverflow 19.02.2025 Работа с веб-формами часто требует гибкости в отношении количества полей, которые пользователь может заполнить. Представьте ситуацию, когда вам нужно создать форму для ввода контактных данных, где у. . .
Обнаружение объектов в реальном времени на Raspberry Pi с OpenCV и Movidius NCS stackOverflow 19.02.2025 Технология обнаружения объектов в реальном времени становится все более востребованной в различных областях - от систем безопасности до автономных транспортных средств. Особый интерес представляет. . .	где chromium хранит пароли и как их обнулить в пожарном варианте jigi33 19.02.2025 Where is the chromium browser stores passwords for a sites где chromium-подобный браузер хранит пароли и как их обнулить в пожарном варианте (see screenshot)	howto get access to external internet resources with kinit jigi33 19.02.2025 Решение проблемы с необходимостью доп. авторизации по Керберос для автоотработки аутентификации на прокси-сервер (see screenshot)	Отслеживание автомобилей и определение скорости с OpenCV и Python на Raspberry Pi stackOverflow 19.02.2025 В этой статье мы рассмотрим создание системы отслеживания транспортных средств и определения их скорости с использованием компьютерного зрения и библиотеки OpenCV. Наше решение основано на принципе. . .	ENV (environments) valid paths in linux jigi33 19.02.2025 Environments paths (see screenshot)

Наверх