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

Как зациклить программу в Паскале?

24.09.2017, 16:53. Просмотров 246. Ответов 0
Метки нет (Все метки)

Нужно, чтобы выполнилось это действие и затем выводилось на экран "Вы хотите продолжить? "Да" или "Нет"". Если "Да", то действие снова должно выполняться, если "Нет", то программа завершается. Через repeat надо. Помогите)
Pascal
1
2
3
4
5
6
7
8
9
10
var
  a,b,i:integer;
begin
  write('Введите целое число A:');
  readln(a);
  write('Введите целое число B:');
  readln(b);
  for i:=1 to min(a,b) do
    if(a mod i=0)and(b mod i=0)then writeln(i: 2);
end.
Добавлено через 1 час 3 минуты
Я уже решил, вот программа, кому интересно
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
var
  slovo, proverka: string;
  var
  a,b,i:integer; 
procedure  od(a,b,i:integer); 
 begin
 
  for i:=1 to min(a,b) do
    if(a mod i=0)and(b mod i=0)then writeln(i: 2);
    end;
    
    begin
    proverka :=('Да');
    
    repeat
     write('Введите целое число A:');
  readln(a);
  write('Введите целое число B:');
  readln(b);
    od(a,b,i);
    write('Вы хотите продолжить? Введите "Да" или "Нет": ');
      readln(proverka);
      until proverka= ('Нет');
      end.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.09.2017, 16:53
Ответы с готовыми решениями:

Зациклить программу
Требуется найти такое число (только одно, после чего завершить программу) Х,...

Нужно зациклить программу : жмешь 0 и она возврашается в меню
program Alex01; uses crt; var a,b,c,sq:string;...

Подредактировать программу на паскале. Выдаёт ошибку, а как исправить не знаю.
uses crt; const n=10; label M1,M2,M3; var a:array of integer;...

Как написать программу в Паскале посредством циклических конструкций или арифметических циклов?
Найти количество делителей натурального числа. Сколько среди них четных?

Как сделать программу в паскале, чтобы она показывала нужный текст в зависимости от ввода ключа
Помогите плиз) Как сделать программу в паскале, чтобы она показывала нужный...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.09.2017, 16:53

Как зациклить рисунок? Графика PascalABC
Может я из ума выжила, ну никак не лезет в голову, как продолжить этот рисунок,...

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

объясните программу на Паскале
Объясните по подробнее program zadacha; Uses crt; Var a:array of integer;...


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

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

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