Объединить три программы в одну

@О, Евгеша · Регистрация: 09.04.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте, помогите пожалуйста. Я написал 3 программы теперь мне нужно их объединить в одну с помощью "Case of" т.е. что бы выдавалось меню и пользователь смог бы сам выбрать какую из трёх задач он хочет решать.

@kloks · 08.05.2012, 14:50

Если я вас правильно понял, то

Pascal

writeln('1 - Задача 1');
writeln('2 - Задача 2');
writeln('3 - Задача 3');
readln(k);
case k of
  1 : zadacha1; // Вызов подпрограммы
  2 : zadacha2;
  3 : zadacha3;
end;

@UserABC · 08.05.2012, 15:34

Можно написать эти программы в самом операторе варианта (пример)

Pascal

program primer;
uses crt;
 var a,b,c,k:integer;
begin
 writeln('1 - íàõîæäåíèå ñóììû äâóõ ÷èñåë');
 writeln('2 - íàõîæäåíèå ïðîèçâåäåíèÿ ÷èñåë');
 writeln('3  - íàõîæäåíèå ðàçíîñòè ÷èñåë');
writeln;
write('ââåäèòå íîìåð ïðîãðàììû = '); readln(k);
 case k of
  1:
   begin
    writeln('ââåäèòå äâà ÷èñëà'); readln(a,b);
    c:=a+b;
    writeln('ñóììà ðàâíà ', c);
   end;
  2:
   begin
    writeln('ââåäèòå äâà ÷èñëà'); readln(a,b);
    c:=a*b;
    writeln('ïðîèçâåäåíèå ðàâíî', c);
   end;
  3:
   begin
    writeln('ââåäèòå äâà ÷èñëà'); readln(a,b);
    c:=a-b;
    writeln('ðàçíîñòü ðàâíà ', c);
   end;
 end;
end.

Объединить три программы в одну

Решение

Решение

@О, Евгеша 0 / 0 / 0 Регистрация: 09.04.2012 Сообщений: 12
		1
	Объединить три программы в одну 08.05.2012, 13:56. Показов 6638. Ответов 2 Метки нет (Все метки) Здравствуйте, помогите пожалуйста. Я написал 3 программы теперь мне нужно их объединить в одну с помощью "Case of" т.е. что бы выдавалось меню и пользователь смог бы сам выбрать какую из трёх задач он хочет решать. 0

	08.05.2012, 15:34

Опции темы