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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 24.12.2013, 18:37   #1
SsAn
Пользователь
 
Регистрация: 23.12.2013
Сообщений: 25
По умолчанию Составить программу с процедурами

Текст - строка начинается и заканчивается двузначным числом. Определить, равна сумма цифр длине строки.
SsAn вне форума Ответить с цитированием
Старый 24.12.2013, 19:05   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Код:
if (Length(s)-4) =
 ((ord[s[1]]-ord('0'))*1000)+
 ((ord[s[2]]-ord('0'))*100)+
 ((ord[s[Length(s)-1]]-ord('0'))*10)+
 ((ord[s[Length(s)]]-ord('0'))*1)
then
 Write('Yes') else Write('no');
Где s - та самая строка.
Идея ясна?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 24.12.2013, 19:27   #3
SsAn
Пользователь
 
Регистрация: 23.12.2013
Сообщений: 25
По умолчанию

Код:
var s:string;
ord:integer;

function summa(var s:string):string;
begin
if (Length(s)-4) =
 ((ord[s[1]]-ord('0'))*1000)+
 ((ord[s[2]]-ord('0'))*100)+
 ((ord[s[Length(s)-1]]-ord('0'))*10)+
 ((ord[s[Length(s)]]-ord('0'))*1)
then
 Write('Yes') else Write('no');
 end;
 summa:=s;
 end;
 begin
 Writeln('посчитать сумму');
 writeln('Введите строку');
 readln(s);
 
 write(summa(s));
 end.
Я не знаю, что нужно делать дальше.
SsAn вне форума Ответить с цитированием
Старый 24.12.2013, 20:30   #4
SsAn
Пользователь
 
Регистрация: 23.12.2013
Сообщений: 25
По умолчанию

И у меня вопрос:
Что такое ord?
SsAn вне форума Ответить с цитированием
Старый 24.12.2013, 20:44   #5
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
Что такое ord?
См. справку..
Цитата:
Идея ясна?
Неа
Просят же найти суммы цифр.. а не число, образованное этими цифирками..
Poma][a вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Написать программу с процедурами. Паскаль Тетрадь Помощь студентам 7 03.11.2013 22:18
Составить программу вычисления и печати таблицы значений функции при заданных значениях параметров Составить программу вычисле Марина1986 C/C++ Сетевое программирование 1 08.05.2013 13:34
никак не могу составить программы на паскале... кто нибудь помогииите составить программу program_1 Паскаль, Turbo Pascal, PascalABC.NET 1 04.12.2012 19:52
составить программу Animechnica Помощь студентам 2 18.06.2012 19:45
Помогите решить программу со строковыми процедурами и их функциями Тищук Евгений Паскаль, Turbo Pascal, PascalABC.NET 1 08.11.2008 22:59