Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Игорь1999
0 / 0 / 0
Регистрация: 22.02.2015
Сообщений: 5
1

Написать процедуры

18.10.2016, 18:53. Просмотров 117. Ответов 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
program z5a;
var a,b,c:real;
    x1,x2:real;
procedure Rad(a1,b1,c1:real; var x11,x12:real);
var d:real;
begin
d:=b1*b1-4*a1*c1;
if d>=0 then
begin
x11:=(-b1+sqrt(d))/(2*a1);
x12:=(-b1-sqrt(d))/(2*a1);
end;
end;
 begin
 writeln('a=');
 readln(a);
 writeln('b=');
 readln(b); 
 writeln('c=');
 readln(c);
 Rad(a,b,c,x1,x2);
 writeln('RДѓspuns');
 writeln(x1);
 writeln(x2);
 end.
б)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program z5b;
Var s,t,d:string;
 
Procedure Rad(s1,t1,d1:string);
Var i:integer;
begin
for i:=1 to lenght(s1) do
begin
if s1[i]<>t1 then d1[i-n]:=s1[i]
else
n:=n+1;
end;
end;
begin
writeln('Dati litera');
readln(t);
writeln('Dati sir');
readln(t);
Rad(s,t,d);
writeln('sir:');
writeln(d);
end.
в)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program z5c;
Var s:string;
Procedure iii(s1:string);
begin
insert('#',s1,1);
insert('#',s1,length(s1)+1);
end;
Begin
readln(s);
iii(s);
writeln(s);
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
Program z1;
Type mas=array [1..100] of integer;
 
Var a,b:mas;
i, i1, n, k:integer;
 
Procedure P(a1,b1:mas; var i1:integer);
Var i,k:integer;
Begin
if a1[i]<k then
begin
i1:=i1+1;
b1[i1]:=a1[i];
end;
end;
 
Begin
readln(n);       //n-число элементов массива
readln(k);                  //k-число больше которого нельзя
For i:=1 to n do
read(a[i]);
P(a,b,i1);
For i:=1 to i1 do
writeln(b[i1]);
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.10.2016, 18:53
Ответы с готовыми решениями:

Написать программу с использованием процедуры
С помощью подпрограммы процедура поменять местами первую и вторую строку...

Написать программу без процедуры
нужна помощь. не получается переписать программу без процедуры. uses crt;...

Написать программу, которая с помощью процедуры рисует 5 прямоугольников из *
Написать программу, которая с помощью процедуры рисует 5 прямоугольников из *...

Даны натуральные k, m. Написать процедуры для вывода следующих фигур
Даны натуральные k, m. Написать процедуры для вывода следующих фигур: а) k...

Процедуры и функции: написать подпрограмму, определяющую какой треугольник можно построить.
Для заданных вещественных положительных чисел A, B, C написать подпрограмму, ...

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4235 / 3073 / 3799
Регистрация: 05.06.2014
Сообщений: 15,466
18.10.2016, 18:58 2
Игорь1999, процедуры вообще-то написаны. Что вам нужно сделать? Поясните.
И не забудьте: "один вопрос - одна тема".
0
Игорь1999
0 / 0 / 0
Регистрация: 22.02.2015
Сообщений: 5
18.10.2016, 19:04  [ТС] 3
Программы с функциями не работают. Может Вы сможете найти ошибки. и г пункт не знаю как.

Добавлено через 2 минуты
а) находит корни уравнения ax^2+bx+c;
б)удаляет из строки указанный символ;
в)обрамляет строку символами #
г) упорядочивает элементы в порядке возврастания
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.10.2016, 19:04

Написать данную программу с использование процедуры, заменяющей группу операторов цикла.
Program pr; var a, b, x, y: real; begin writeln('Введите a,b,h:');...

Процедуры и Функции: Написать программу, которая считает произведение первых n натуральных чисел
2.Написать программу, которая считает произведение первых n натуральных чисел....

Написать процедуры для нахождения минимального и максимального в строке и замены одного элемента на другой
Дан двумерный массив размером N x M, заполненный целыми числами с клавиатуры в...


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

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

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