Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > Форум Форум программистов > Форум Pascal (Паскаль)
Восстановить пароль Регистрация

Ответ Создать новую тему
 
12.05.2009, 17:12   #1
plastid_Aka-plastid
Новичок
Регистрация: 02.04.2009
Сообщений: 6
Репутация: 0 (0)
Процедуры / Pascal (Паскаль)

Помогите обьединить с помошью процедуры
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program zadacha1;
uses crt;
var x:array[1..10] of integer;
i:integer;
begin
clrscr;
randomize;
for i:=1 to 10 do begin
x[i]:=random(10);
write(x[i],' ');
end;
readln;
for i:=1 to 8 do begin
x[i]:=x[i+2];
write(x[i],' ');
end;
readkey;
end.
и
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program zadacha2;
uses crt;
var x:array[1..10] of integer;
n,a,i:integer;
begin
clrscr;
randomize;
for i:=1 to 10 do begin
x[i]:=random(10); write(x[i]); end; readln;
writeln('vvedite elementi');
readln(a);
{for i:=1 to 10 do
readln(x[i]);}
for i:=1 to 10 do
if x[i]=a then writeln('nomer elementa',i)
else x[i]:=0;
readkey;
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
program zadacha3;
uses crt;
const size=10;
var c,a,b:array[1..size,1..size] of real;
       i,j:integer;
begin 
for i:=1 to 4 do
begin 
for j:=1 to 4 do
read(a[i,j]);
writeln;
end;
i:=1;
repeat
for j:=1 to 4 do
begin
b[i,j]:=a[4+1-i,j];
c[i,j]:=a[3+2-i,j];
end;
i:=i+1;
until i>4;
for i:=1 to 4 do
begin
for j:=1 to 4 do
write(c[i,j]:2:0,' ');
writeln;
end;
readkey;
end.
и
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program zadacha1;
uses crt;
var  a:array[1..10]of integer;
    k,b,l,m,j,ko:integer;
procedure z1;
begin
clrscr;
writeln('vvedi n');
readln(m);
writeln('vvedi k');
readln(l);
clrscr;
ko:=0;
for j:=1 to m do
read(a[j]);
for j:=1 to m do
if a[j]=l then ko:=ko+1;
writeln('kolichestvo=', ko);
readkey;
end.
Обьединить с помошью процедуры
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program zadacha5;
uses crt;
var s1:string;
k,i,b:integer;
x:char;
begin
clrscr;
writeln('vvedite tekst do tochki');
readln(s1);
b:=pos('.',s1);
s1:=copy(s1,1,b-1)+' ';
k:=0;
repeat
if s1[1]<>' ' then x:=s1[1];
i:=pos(' ',s1);
if i>1 then if x=s1[i-1] then k:=k+1;
delete(s1,1,i);
until i=0;
writeln('kol-vo slov kotorie i nachinautsya i konchautsya 1 i toi je bukvoi=',k);
readkey;
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
31
32
program zadacha6;
uses crt;
var count,i,o,j:integer;
h,st,buf:string;
begin
clrscr;
count:=;
buf:=' ';
h:=' ';
o=0;
repeat
buf:=' ';
if(st[1]=' ')or (length(st)=0) then
while (st[1]=' ')do delete(s1,1,1)
else begin
o=0;
while(st[1]<>' ')and(st[1]<>'.') and (length(st)>0) do begin
if(st[1]<>' ')and(st[1]<>'.') then inc(o);
if o=1 then begin h:=copy(st,1);
delete(st,1,1); end;
buf:=buf+st[1];
delete(st,1,1);
end;
end;
end;
j:=length(buf);
insert(h,buf,j+1);
j:=length(buf);
if j>1 then writeln(buf)
until st[1]='.';
readkey;
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
program zadacha7;
uses crt;
var s1:string; 
k,j,i,l:integer;
m:set of char;
buf:char;
begin
clrscr;
m:=['z','d','b','g','v','c','r','j'];
writeln('vvedite tekst do tochki');
read(s1);
for i:=1 to pos('.',s1)-1 do
for j:=pos(',',s1)-1 downto j+1 do
if s1[j]<s1[j-1] then begin
buf:=s1[j];
s1[j]:=s1[j-1];
s1[j-1]:=buf;
end;
for k:=1 to pos('.',s1) do
if (s1[k] in m) then
write(s1[k]);
readkey;
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
program zadacha8;
uses crt;
type pam=record
fio:string[12];
p:char;
d:integer; g:string;
end;
var t:array[1..2] of pam;
i:integer;
b,m:char; g:string;
begin
clrscr;
for i:=1 to 2 do
begin
writeln('vvedite imya');
readln(t[i].fio);
writeln('vvedite pol');
readln(t[i].p);
writeln('vvedite mesyac rojdeniya');
readln(t[i].d);
writeln('vvedite gorod gde rodilsya chelovek');
readln(t[i].g);
end;
for i:=1 to 2 do begin
if (t[i].d=4) and (t[i].p='b') then begin writeln('zovut:',t[i].fio,' ','rodilas v:',t[i].g);
end;
end;
readkey;
end.
12.05.2009, 17:12
AdAgent
Объявления
Другие темы раздела
Построение треугольника Pascal
С клавиатуры вводится число n. Нужно написать программу, которая рисует равнобедренный треугольник из звёздочек с высотой и основанием , равными n. Помогите.
Pascal корни уравнения
задачиа:вычислить z=(x1+y1)/(x2-y2),где x1 и x2-корни уравнения 〖2x〗^2+x-4=0, y1 и y2-корни уравнения 〖ay〗^2+y-1=0.............примечания: все корни действительные...................схема блок тоже нужна
12.05.2009, 17:12
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Turbo Pascal: Использование имени процедуры в качестве параметра другой процедуры
Составить программу по заданному условию. Первая часть условия является заданием на разработку процедуры для любой функции f или пары функций (f1, f2). Условие второй части задания предполагает обязательное использование разработанной процедуры. В качестве исходного данного в большинстве заданий...
Turbo Pascal Germetik 23.12.2013 19:43
Pascal: процедуры Написать программу с использованием процедуры. Привести результаты расчетов
Вычислить суммы и количество элементов, находящихся в интервале от А до В для матриц x (10,8) и y (10,12). Использовать процедуру. паскаль БПВ
Pascal (Паскаль) sergey_lata 23.12.2013 12:35
Turbo Pascal: Использование имени процедуры в качестве параметра другой процедуры:
Использование имени процедуры в качестве параметра другой процедуры: Составить программу по заданному условию. Первая часть условия является заданием на разработку процедур для любой функции f1, f2. Условие второй части задания предполагает обязательное использование разработанной процедуры. В...
Turbo Pascal Немтинова 08.10.2013 12:19
Delphi: запуск процедуры выхода во время работы другой процедуры
как зделать процедуру которая будет запускаться так сказать вне очереди! ну или точнее суть проблемы : процедура из 6 шагов с задержкой! нажимаю выход (моя кнопка так как форма отключена) и приходится ждать пока закончится 1 процедура есть идеи как исправить? :)
Delphi для начинающих Skid 13.05.2013 12:34
Free Pascal: Функции и процедуры. При помощи процедуры записать слова задом наперед
Дана строка S, состоящая из не менее 5 слов. При помощи процедуры записать слова задом наперед. Порядок слов сохранить. Помогите,пожалуйста
Free Pascal SAM 20.05.2012 12:16
Опции темы

Текущее время: 14:41. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.