Объединить несколько готовых и работающих программ в одну - Turbo Pascal

  1. Привет, нужно объединить данные программы в 1 и чтобы можно было выбирать при запуске нужное действие. С паскалем туго, в основном работаю в visual basic, а задачу к курсовой сказали написать именно в паскале. Прошу помочь, заранее спасибо. 1. Программа нахождение максимального числа, минимального числа, а также ввод-вывод данных на экран.


textual

Код к задаче: «Объединить несколько готовых и работающих программ в одну - Turbo Pascal»

uses crt;
Var
z,a,b,c,max,min,x,y,ko:real;
k,m,r,n:integer;
operation: Char; { Символ арифметической операции }
Answer: Real; { Результат вычисления }
f:text;
procedure Maxmin;
begin
writeln ('Максимум Минимум');
begin
if x<y then ko:=x else ko:=y;
end;
begin
assign(f,'f1.txt');
rewrite(f);
writeln('Введите А,В,С');
readln(a,b,c);
min:=a;max:=a;
if b>max then max:=b;if b<min then min:=b;
if c>max then max:=c;if c<min then min:=c;
writeln('Максимальное число : ',max);
writeln('Минимальное число : ',min);
writeln(f,max);
writeln(f,min);
readln;
close(f);
end;
end;
procedure razloj;
begin
writeln('Разложение целого числа на простые множители.');
BEGIN
Write ('Введите целое число. '); ReadLn (r);
WriteLn ('Разложение числа ', r, ' на простые множители');
m:=2;
While m<=r do
If (r MOD m)=0 Then 
Begin
Write (' * ',m);
r:=r DIV m;
End else m:=m+1;
END;
readkey;
end;
procedure kalk;
begin
writeln('Программа, моделирующая простой калькулятор.');
BEGIN
Answer:=0; { Вначале обнулим результат }
operation:='+'; { Присвоить '-', '*' или '/' нельзя }
WriteLn ('Вводите арифметическое выражение');
WriteLn ('каждый символ - с новой строки ');
Repeat
ReadLn (n);
Case operation Of
'+': Answer:=Answer + n;
'-': Answer:=Answer - n;
'*': Answer:=Answer * n;
'/': Answer:=Answer / n;
End;
ReadLn (operation);
Until operation = '=';
WriteLn (Answer:5:4);
END;
readkey;
end;
begin //main program
while k<>4 do begin
clrscr;
Writeln('1 - Максимум Минимум');
Writeln('2 - Разложение целого числа на простые множители.');
Writeln('3 - Программа, моделирующая простой калькулятор.');
Writeln('4 - Выход');
writeln('you choose');
readln(k);
if (k<1) or (k>4) then begin
Writeln ('Diapozon zadn ne verno');
readkey;
end else 
case k of
1:maxmin;
2:razloj;
3:kalk;
end;
end; 
 
readkey;
end.

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 3.714 из 5



Похожие ответы
  1. Заданы два массива с N и M элементами, упорядоченными по неубыванию, объединить элементы этих массивов в один массив так, чтобы элементы снова оказались упорядоченными по неубыванию.Добавлено через 2 часа 22 минуты Не получается составить код Паскаль

  1. Добрый вечер, форумчане! Возникла пара вопросов при работе с нетипизированными файлами в Turbo Pascal 7.0 (а также и в 7.1). На всякий случай опишу условие задачи: на экране нужно нарисовать несколько произвольных закрашенных фигур; информацию (коордианаты, цвет, количество вершин и пр.) о данных фигурах записать в нетипизированный файл. Каждая запись файла имеет фиксированный размер. Сохранить файл на диске. Восстановить содержимое экрана из файла.Код программы: Кликните здесь для просмотра всего текста

  1. В исходном текстовом файле находится информация о студенте: фамилия и группа. Программа сортирует студентов по группам и записывает в новый файл. Нужно, чтобы для каждой группы создавался отдельный файл. Пример исходного файла: Иванов 6101 Петров 6101 Сидоров 6103 Николаев 6103 Данилов 6105 Александров 6105 Все это записывается в виде: 6101 Иванов Петров 6103 Сидоров Николаев 6105 Данилов АлександровЗадача: Создать для каждой группы отдельный файл, который будет называться номером группы.

  1. ДАны 2 файла целых чисел с именами Name1 и Name2, элементы которых упорядоченны по возростанию. Объеденить эти файлы в новый файл с именем Name3, сохранив упорядоченность элементов.

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

  1. помогите пожалуйста Нужно создать программу которую вводишь время формате 24 часа с минутами, несколько , и потом отсортировать их по возрастанию. Заранее спасибО!_

  1. Написать программу, которая выводит на экран график одной или несколько функций. Программа должна выводить рисунок с использованием модуля Graph. Программа должна содержать по крайней мере подпрограммы: 1)Функцию, график которой нужно вывести. Программа может содержать несколько таких функций. 2)Функцию или процедуру, которая выводит график на экран. Эта подпрограмма должна получать в качестве аргументов координаты области, которая будет отображена на экране и функцию, график которой нужно отобразить (аргумент процедурного типа). Прошу пожалуйста хотя бы с минимальным объяснением, хочется вникнуть в тему.

  1. Задали 2 задачи, первую надо решить обязательно, вторую желательно.. 1. Ввести 2 целых числа, перебрать в 2 строки, объединить в 1 строку и вывести на экран. 2. написать прог-му, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ до тех пор, пока в строке не останется 1 символ. Например: Мира, Мир, Ми, М..

  1. 1)Разлетающиеся из центра шарики. Летают с отражением, каждый со своим шагом и разным цветом. 2)Двигающиеся горизонтально несколько НЛО.Добавлено через 1 час 30 минут 2) - не обязательно.