Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 04.02.2010
Сообщений: 8
1

Модули

15.04.2010, 16:36. Показов 1470. Ответов 2
Метки нет (Все метки)

помогите плиз завтро надо сдавать ваще хз как сделать...
создать функции
MyVal – преобразовать строку в целое число
NewCopy – выделение строки с заданного начального символа до заданного конечного символа
MyPos – определение первого вхождения подстроки
MyLen определяет количество символов в строке
MySTR-заменяет все маленькие буквы на БОЛЬШИЕ
но при этом нельзя использовать:
Copy()
Concat()
Pos()
UpCase()
и тд...
можно использовать только Length()
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.04.2010, 16:36
Ответы с готовыми решениями:

Модули
NewCopy – выделение строки с заданного начального символа до заданного конечного символа NewDelete...

Модули
Доброе время суток! У меня следующая проблема. Я создал два модуля в которых фигурирует тип...

Модули
Написать программу c помошью модуля, вычисляющую удвоенный квадрат площади треугольника с помощью...

Модули
Помогите!!Не врубаюсь в тему модули!Надо решить... Разработать модуль, реализующий функции...

2
0 / 0 / 0
Регистрация: 04.02.2010
Сообщений: 8
21.04.2010, 13:36  [ТС] 2
ну плиз , ребята помогите вообще не получается ((а в понедельник сдавать...
0
Модератор
63381 / 47074 / 32446
Регистрация: 18.05.2008
Сообщений: 114,107
21.04.2010, 15:19 3
Лучший ответ Сообщение было отмечено andreypere как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
function MyVal(s:string):longint;
var i:byte;
    n,k:longint;
begin
n:=0;
for i:=1 to length(s) do
n:=n*10+ord(s[i])-48;
MyVal:=n;
end;
Добавлено через 7 минут
2.
Pascal
1
2
3
4
5
6
7
8
9
function NewCopy(s:string;n,k:byte):string;
var i:byte;
    s1:string;
begin
s1:='';
for i:=n to k do
s1:=s1+s[i];
NewCopy:=s1;
end;
Добавлено через 35 минут
3.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function MyPos(ps,st:string):byte;
var i,j,p,k:byte;
    s1:string;
begin
p:=0;
for i:=1 to length(st)do
if st[i]=ps[1] then
 begin
  s1:='';
  for j:=i to i+length(ps)-1 do
  s1:=s1+st[j];
  if s1=ps then
   begin
    p:=i;
    break;
   end
 end;
MyPos:=p;
end;
Добавлено через 19 минут
4.
Pascal
1
2
3
4
function MyLen(s:string):byte;
begin
MyLen:=ord(s[0]);
end;
Добавлено через 12 минут
5.
Pascal
1
2
3
4
5
6
7
8
9
function MyStr(s:string):string;
var i:integer;
begin
for i:=1 to length(s) do
if s[i] in ['a'..'z','*'..'Ї'] then s[i]:=chr(ord(ord(s[i])-32))
else if s[i] in ['а'..'п'] then s[i]:=chr(ord(ord(s[i])-80))
else if s[i]='с' then s[i]:='р';
MyStr:=s;
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.04.2010, 15:19

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Модули
Дана задача: Написать подпрограмму (процедуру или функцию) для вычисления суммы , когда вид...

Модули
РЕализовать в виде модуля набора подпрограмм для выполнения операции над вектором: сложение....

Модули
Провести вычисления. Необходимые для вычислений функции (факториал, возведение в степень и т.д.)...

Модули.
Задание в вордовском документе. Срок выполнения до субботы. Заранее большое спасибо!


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

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

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