Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Ascolon
4 / 4 / 4
Регистрация: 29.11.2014
Сообщений: 201
#1

Программа завершается, но не выводит результат - Pascal ABC

04.03.2016, 17:11. Просмотров 273. Ответов 5
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
uses crt;
   var k,s:integer;
begin
   for s:=1 to 89 do
    for k:=1 to 89 do
      if (s*4+k*5=89) and (s+k=17) then
          writeln(s,k);
end.
программа пишет завершено и все не чего не выполняет
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.03.2016, 17:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Программа завершается, но не выводит результат (Pascal ABC):

программа завершается, после ввода данных, не показав результат
программа завершается, после ввода данных, не показав результат program...

Написать программу, которая просит пользователя ввести число и выводит квадрат этого числа. Программа завершается тогда, когда пользователь введет 0.
Всем привет. Не могу решить эти задания. Можете помочь?Я то я пропустил...

Программа выводит результат бесконечное число раз. Не ясна причина.
Здравствуйте! я написала программу сортировки одномерного массива простым...

Программа вводит с клавиатуры шесть раз пары чисел A и B вычисляет их сумму и выводит на экран результат
Ребяяяят,помогите пожалуйста. Ничего не понимаю. программа вводит с...

Вложенная рекурсия: программа не завершается
Задача: заменить два вложенных цикла рекурсией Проблема: программа не...

Не выводит результат при вычислении
program MySixthProgramm; var u,s,e:real; begin writeln('Введите E' ); ...

5
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25624 / 17177 / 6830
Регистрация: 22.10.2011
Сообщений: 30,369
Записей в блоге: 6
04.03.2016, 17:19 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Потому что нет решений в заданных интервалах. Ответ: s = -4, но у тебя отрицательные числа не рассматриваются.

Добавлено через 39 секунд
Сделай так:
Pascal
1
2
3
4
5
6
7
   var k,s:integer;
begin
   for s:=-10 to 89 do
    for k:=-10 to 89 do
      if (s*4+k*5=89) and (s+k=17) then
          writeln(s,' ',k);
end.
и убедись
0
Ascolon
4 / 4 / 4
Регистрация: 29.11.2014
Сообщений: 201
04.03.2016, 17:39  [ТС] #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
   uses crt;
   var k,s,j,z,g:integer;
begin
   for s:=1 to 5000 do
    for k:=1 to 5000 do
     for z:=1 to 5000 do
      for j:=1 to 5000 do
        for g:=1 to 5000 do
      if (s*3+k*1+z*2+j*6+g*3=5000) and (z+j+s+k+g=600) then
          writeln('S:',s,' K:',k,' J:',j,' Z:',z,' G:',g);
end.
тут что типо тоже нет решений в таком большем диапазоне??
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25624 / 17177 / 6830
Регистрация: 22.10.2011
Сообщений: 30,369
Записей в блоге: 6
04.03.2016, 17:45 #4
А на кой тут такой большой диапазон, если все равно сумма z+j+s+k+g должна быть = 600. Вполне можно ограничить 600 вместо 5000.
0
Ascolon
4 / 4 / 4
Регистрация: 29.11.2014
Сообщений: 201
04.03.2016, 17:52  [ТС] #5
Pascal
1
2
3
4
5
6
7
8
9
10
11
   uses crt;
   var k,s,j,z,g:integer;
begin
   for s:=1 to 600 do
    for k:=1 to 600 do
     for z:=1 to 600 do
      for j:=1 to 600 do
       for g:=1 to 600 do
      if (s*3+k*1+z*2+j*6+g*3=5000) and (z+j+s+k+g=600) then
          writeln('S:',s,' K:',k,' J:',j,' Z:',z,' G:',g);
end.
не чего не изменилось
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25624 / 17177 / 6830
Регистрация: 22.10.2011
Сообщений: 30,369
Записей в блоге: 6
04.03.2016, 17:55 #6
Ну, раз не изменилось - значит, решения в заданных интервалах тоже нет. Тебе виднее, мне неинтересно запускать приложения, которые будут тупо проверять условие (неизвестно для чего, что характерно) и жрать ресурсы моего процессора. Тебе нужно - ты и запускай.
0
04.03.2016, 17:55
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.03.2016, 17:55
Привет! Вот еще темы с решениями:

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

Программа ничего не выводит
program p1; var s: string; n, i: byte; begin readln (s); readln (n); for...

Программа запускается, но не выводит данные
Массивы ми еще не учили поэтому делал розветлением. Когда запускаю програму...

Программа не запускается и не выводит график
Программа готова. Не выводит график и прочее что требуется. Выводит только...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru