Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 28.10.2010, 22:29   #1
Pixma
Пользователь
 
Регистрация: 28.10.2010
Сообщений: 11
Вопрос Не могу разобраться, а завтра контрольная.

Вот задание :
1.Написать процедуру которая преобразует заданую строку что бы все строчные русские буквы стали прописными.Написать пример обращения к этой процедуре.
2.Написать функцию, которая работает как стандартная подпрограмма Copy, delete, Insert, Trimleft(right).
Очень прошу откликнуться.
Pixma вне форума
Старый 28.10.2010, 22:45   #2
vasek123
Заблокирован
 
Регистрация: 21.11.2008
Сообщений: 4,986
Сообщение

Во первых: Где исходник?
Во вторых: Какой язык?
В третьих: В чем именно непонятки?
vasek123 вне форума
Старый 28.10.2010, 22:47   #3
Pixma
Пользователь
 
Регистрация: 28.10.2010
Сообщений: 11
По умолчанию

Вот именно что исходника нету.
Просто даны эти задания.
Язык Паскаль.
В программе Delphi
Pixma вне форума
Старый 28.10.2010, 23:47   #4
Kingdom_Reborn
Форумчанин
 
Регистрация: 21.10.2010
Сообщений: 130
По умолчанию

В Delphi языка Паскаль нету давным давно, там язык Delphi

1: Написано на Delphi 7. Функция _Char_ нужна для корректного отображения русских букв на консоле.

Код:
function _Char_(C: Char): Char;
begin
  case C of
    'а'..'п' : Dec(C, 64);
    'р'..'я' : Dec(C, 16);
    'ё'      : Inc(C, 57);
    'А'..'Я' : Dec(C, 64);
    'Ё'      : Inc(C, 72);
  end;
  _Char_:=c;
end;

procedure UpperCase(var S: String);
var
  i: Integer;
begin
  for i := 1 to Length(S) do
    if S[i] in [_Char_('а').._Char_('п')]  then
      S[i] := _Char_(Chr(Ord('А') + Ord(S[i]) - Ord(_Char_('а'))))
    else if S[i] in [_Char_('р').._Char_('я')] then
      S[i] := _Char_(Chr(Ord('Р') + Ord(S[i]) - Ord(_Char_('р'))))
    else if S[i] = _Char_('ё') then S[i] := _Char_('Ё');
end;

Последний раз редактировалось Kingdom_Reborn; 29.10.2010 в 00:47.
Kingdom_Reborn вне форума
Старый 29.10.2010, 01:11   #5
Ghost of Night
Форумчанин
 
Аватар для Ghost of Night
 
Регистрация: 08.08.2010
Сообщений: 371
По умолчанию

Цитата:
В программе Delphi
Delphi - это не программа, это среда программирования, это искусство!!!!
Хакинг - не преступление, а способ выживания.
Ghost of Night вне форума
Старый 01.11.2010, 22:05   #6
Pixma
Пользователь
 
Регистрация: 28.10.2010
Сообщений: 11
По умолчанию

Ладно.Спасибо. Сам разобрался. И ничего подобного. С тем что делфи это среда програмирования согласен, ошибся, но в нём есть паскаль. Всё таки в универе на нём пишем как ника. Нечего с меня дурака делать=)
Pixma вне форума
Старый 02.11.2010, 10:51   #7
Kingdom_Reborn
Форумчанин
 
Регистрация: 21.10.2010
Сообщений: 130
По умолчанию

Цитата:
Сообщение от Pixma Посмотреть сообщение
Ладно.Спасибо. Сам разобрался. И ничего подобного. С тем что делфи это среда програмирования согласен, ошибся, но в нём есть паскаль. Всё таки в универе на нём пишем как ника. Нечего с меня дурака делать=)
В Delphi Паскаля как тагового нету, там язык Delphi...
Kingdom_Reborn вне форума
Старый 02.11.2010, 11:01   #8
RUSt88
Участник клуба
 
Регистрация: 29.12.2009
Сообщений: 1,166
По умолчанию

Цитата:
В Delphi Паскаля как тагового нету, там язык Delphi...
да вы с дуба что ле все рухнули??? какой язык делфи? нету такого!
есть Pascal (то, что многие знают со школьной скамьи) и Object Pascal - то, что многие называют языком Делфи, Делфи - это среда программирования, точнее Borland Delphi, а сейчас уже Embarcadero Rad Studio Delphi
прогер C\C++\C#\Delphi
ася: [семь 3]-[97]-[1 шесть]
RUSt88 вне форума
Старый 02.11.2010, 11:14   #9
Kingdom_Reborn
Форумчанин
 
Регистрация: 21.10.2010
Сообщений: 130
Смех

Цитата:
Сообщение от RUSt88 Посмотреть сообщение
да вы с дуба что ле все рухнули??? какой язык делфи? нету такого!
есть Pascal (то, что многие знают со школьной скамьи) и Object Pascal - то, что многие называют языком Делфи, Делфи - это среда программирования, точнее Borland Delphi, а сейчас уже Embarcadero Rad Studio Delphi
Это вы с дуба рухнули
http://ru.wikipedia.org/wiki/Delphi_...граммирования)
Kingdom_Reborn вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не могу разобраться semAz Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 10.03.2010 17:43
Задачка простая но решить не могу,а завтра контрольная...Помогите пожалуйста! killoff1234 Помощь студентам 4 17.12.2009 17:22
Паскаль,массивы и матрицы,могу терпеть до завтра 9:30..потом мне хана( jenix Помощь студентам 7 27.11.2008 21:29