Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
max0n11
0 / 0 / 0
Регистрация: 20.09.2015
Сообщений: 17

Нужно объединить 2 программы

16.02.2016, 20:06. Просмотров 198. Ответов 2
Метки (Все метки)

Вот в этот код
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Program pr;
 
var prog,s : string;
    x,y,p:real;
    i,c,m,n,b:integer;
    f:boolean;
begin
WriteLn('Выберите задание 1,2,3,4');
Readln(prog);
if (prog = '1') then
    begin
    writeln('Введите X');
    readln(x);
    writeln('Введите P');
    readln(p);
    y:=(p-2*x)/4;
    write('S:=',y*(y+x));
    end 
else if (prog = '2') then
    begin
    writeln('Введите числа:');
    readln(m);
    readln(n);
    readln(b);
    writeln('_______________');
    if (m>=0) then writeln(m*m) else writeln(m);
    if (n>=0) then writeln(n*n) else writeln(n);
    if (b>=0) then writeln(b*b) else writeln(b);
    end 
else  if (prog = '3') then
begin
{Код нужно вставить сюда}
end 
else  if (prog = '4') then
    begin
    writeln('Введите текст:');
    readln(s);
    for i:=length(s) downto 1 do
    if s[i] in ['а'..'я'] then s[i]:=Upcase(s[i]);
    write(s);
    end 
else begin
WriteLn('Неправельний номер');
end;
end.
нужно вставить вот этот
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
29
30
program pr2;
function prost(z:integer):boolean;
var  c:integer;
     f:boolean;
begin
z:=abs(z);
if z<2 then f:=false
else if z=2 then f:=true
else if z mod 2=0 then f:=false
else
 begin
  f:=true;
  c:=3;
  while(c*c<=z)and f do
  if z mod c=0 then f:=false
  else inc(c,2);
 end;
prost:=f
end;
var g,h:integer;
begin
repeat
write('Введите простое число ');
readln(g);
until Prost(g);
h:=g+1;
while not Prost(h) do
h:=h+1;
write('Следующее простое число=',h);
end.


Вернуться к обсуждению:
Нужно объединить 2 программы
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.02.2016, 20:06
Готовые ответы и решения:

Объединить 2 программы
Как соединить 2 программы например: program tr1; uses Utils; var i:...

Объединить 3 программы в 1
Объеденить 3 программы в 1, и создать к ней меню с выбором пункта программы....

Объединить две программы
1. Создать вещественный массив 300x10 чисел а) заполнить его случайными...

Шифрование/дешифрование, объединить две программы
нужно обьединеть две программы чтобы они работали вместе вот код:1 программа-...

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

2
Другие темы раздела
Pascal ABC Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по правилу http://www.cyberforum.ru/pascalabc/thread1663898.html
Дан текст. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: 1) оставить в слове только первые вхождения каждой буквы; 2) если слово...
Pascal ABC Написать программу нахождения НОК двух ненулевых чисел 2)Пусть а и b — ненулевые целые числа. Целое число m> 0 называется наименьшим общим кратным (НОК) чисел а и b, если m делится и на а, и на b нацело, а также для любого с, которое делится нацело и на... http://www.cyberforum.ru/pascalabc/thread1663895.html
Pascal ABC Найти значение выражения с помощью циклов
1) Даны натуральные числа n и k. Найти значение выражения 1^k+2^k+…+n^k. С помощью циклов. Скорее всего с циклом FOR. При этом не использовать такие записи как: Exp(Ln(i)*k); v := v + power(i,k);
Вычислить сумму прибылей фирмы. Определить максимальный убыток, если он был Pascal ABC
1)Вычислить сумму прибылей фирмы. Определить максимальный убыток, если он был. 2)Определить суммы прибылей и убытков.Сколько лет фирмы имела прибыл?
Pascal ABC Напечатать те слова, в которых последняя буква встречается в слове еще http://www.cyberforum.ru/pascalabc/thread1663789.html
Дана строка слов, разделенных произвольным количеством пробелов, после последнего слова точка. Напечатать те слова, в которых последняя буква встречается в слове еще
Pascal ABC Создание бот-программы для быстрого перебора паролей Вот так должно всё работать. Перед запуском бота мы открываем онлайн игру скачанную на рабочий стол. Логин введён сразу и просится ввести пароль. Суть бота: 1)Считывает пароль(например... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru