Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
max0n11
0 / 0 / 0
Регистрация: 20.09.2015
Сообщений: 17
#1

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

16.02.2016, 20:06. Просмотров 190. Ответов 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.02.2016, 20:06
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Нужно объединить 2 программы (Pascal ABC):

Объединить 3 программы в 1 - Pascal ABC
Объеденить 3 программы в 1, и создать к ней меню с выбором пункта программы. 1. Условие: Дан двумерный массив размерностью 4х5,...

Объединить 2 программы - Pascal ABC
Как соединить 2 программы например: program tr1; uses Utils; var i: integer; mb,b: integer; begin cls;

Шифрование/дешифрование, объединить две программы - Pascal
нужно обьединеть две программы чтобы они работали вместе вот код:1 программа- program Kriptograf; function Shifr ( Kod, K : string ):...

Нужно создать программы - Pascal
1.В заданому масиві обчислити середнє арифметичне елементів, що не менші числа 7. 2.У текстовий файл занести всі числа, які більші за...

Нужно написать программы - Pascal
Здравствуйте! Мне нужно решить 14 задач))Помогите кто чем сможет))За ранние спасибо!!! 1. Даны три числа. Написать фрагмент программы,...

Нужно написать 2 программы - Pascal
Здравствуйте, уважаемые пользователи данного форума. Возникла проблема я не могу написать 2 программы в Pascal. Прошу скиньте...

2
Puporev
Модератор
53999 / 41632 / 14717
Регистрация: 18.05.2008
Сообщений: 97,854
16.02.2016, 20:49 #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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
Program pr;
uses crt;
procedure pr1;
var x,p,y:real;
begin
clrscr;
writeln('Введите X');
readln(x);
writeln('Введите P');
readln(p);
y:=(p-2*x)/4;
write('S:=',y*(y+x));
readln;
end;
procedure pr2;
var m,n,b:integer;
begin
clrscr;
writeln('Введите числа m,n,b:');
readln(m,n,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);
readln;
end;
procedure pr3;
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
clrscr;
repeat
write('Введите простое число ');
readln(g);
until Prost(g);
h:=g+1;
while not Prost(h) do
h:=h+1;
write('Следующее простое число=',h);
readln;
end;
procedure pr4;
var s:string;
    i:byte;
begin
clrscr;
writeln('Введите текст:');
readln(s);
for i:=length(s) downto 1 do
if s[i] in ['а'..'я'] then s[i]:=Upcase(s[i]);
write(s);
readln;
end;
 
var prog:integer;
begin
repeat
clrscr;
repeat
WriteLn('Выберите задание 1,2,3,4,0-выход');
Readln(prog);
until prog in [0..4];
case prog of
1:pr1;
2:pr2;
3:pr3;
4:pr4;
0:exit;
end;
until prog=0;
end.
0
max0n11
0 / 0 / 0
Регистрация: 20.09.2015
Сообщений: 17
16.02.2016, 21:29  [ТС] #3
Большое спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.02.2016, 21:29
Привет! Вот еще темы с ответами:

Нужно разобраться в действии программы - Pascal ABC
uses vcl; //$VCLDESIGN+ var Form1: Form; PaintBox1: PaintBox; Button1: Button; //$VCLDESIGN- procedure...

Нужно сделать лёгкие программы - Pascal
Нужно составить программу для вычесления в Pascal: a) периметра и площади прямоугольного треугольника по заданным длинам двух катетов a и...

нужно составить две программы - Pascal
1. Составить программу для вычисления высоты треугольника, проведенной из вершины B, по формуле: h = 2 (p (pa) (pb) (pc)) ^1 / 2) / b,...

Нужно прокоментировать две программы - Pascal
Прокоментируйте пожалуйста если можете программы...Просто надо сделать по такому же принципу программы, а сам текст программ не полностью...


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

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

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