VPF::[Delphi] Помогите пожалуйста решить задачки?

Lapyle4ek

Дата 5.1.2008, 22:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 5.1.2008

Репутация: нет
Всего: нет

на строки: форматирование
дан текст, состоящий из предложений разделимых точками. напишите программу, производящую следующее форматирование: после каждой точки в конце предложения должен стоят хотя бы один пробел, первое слово в предложении должно начинаться с прописной буквы. Замечание: текст должен быть как на русском, так и на английском языке.
двумерный массив:
расположить столбцы матрицы D[M,N] в порядке возрастания элементов k-ой строки (1<=k<=M).
подпрограммы:
найти все натуральные числа, не превосходящие данного n, которые делятся на каждую из своих цифр
целочисленная арифметика:
• Дано натуральное k. напечатать k-ю цифру последовательности 12345678910111213..., в которой выписаны поряд все натуральные числа.

smile

Это сообщение отредактировал(а) Rodman - 6.1.2008, 12:33

Alexeis

Дата 5.1.2008, 22:12 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

mr.Anderson

Дата 6.1.2008, 01:15 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Первая задача.

Код


//Программа производит небольшое форматирование.
//Принимается текст (кириллица не проверялась) и форматируется по двум правилам:
// 1. После каждой точки должен стоять пробел.
// 2. Каждое предложение должно начинаться с прописной буквы.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function insert( src: String; pos: Integer; fragment: String ): String;
var
 l, r : String;
begin
 l := copy( src, 1, pos );
 r := copy( src, pos+1, Length(src) );

 Result := l + fragment + r;
end;

function replace( src: String; pos: Integer; replacement: String ): String;
var
 l, r : String;
begin
 l := copy( src, 1, pos-1 );
 r := copy( src, pos+1, Length(src) );

 Result := l + replacement + r;
end;

var
 s : String;
 c : Boolean;
 t : String;
 i : Integer;

begin
 readln( s );

 c := False;

 for i:=1 to Length(s) do
 begin
  if( c ) and ( i+1 <= Length(s) ) then
  begin
   t := s[i+1];
   t := UpperCase( t );

   s := replace( s, i+1, t );
  end;

  if( s[i] = '.' ) then
  begin
   if( i+1 <= Length(s) ) and ( s[i+1] <> ' ' ) then
    s := insert( s, i, ' ' );

   c := True;
  end
  else c := False;
 end;

 writeln( s );
end.

Добавлено через 14 минут и 22 секунды
С кириллицей в этой задаче как ни бился - бесполезно. Ни AnsiUpperCase, ни другие варианты функций перевода символа русского алфавита в верхний регистр не помогли.

--------------------

comtat

Дата 6.1.2008, 02:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

Репутация: 8
Всего: 71

Первая и вторая задачи

Присоединённый файл ( Кол-во скачиваний: 7 )

11.rar 13,67 Kb

--------------------

Рожденный в СССР !!!
ExtJS - мой фреймворк

Rodman

Дата 6.1.2008, 12:33 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122

M
Rodman

Модератор: Название темы должно отражать ее суть!
Модератор: Пожалуйста, один топик - один вопрос.

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

mr.Anderson

Дата 6.1.2008, 12:38 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Подправленный вариант 1-й задачи. С нормальной работой кириллицы (спасибо comtat за напоминание, как делать перевод регистра).

Код


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function insert( src: String; pos: Integer; fragment: String ): String;
var
 l, r : String;
begin
 l := copy( src, 1, pos );
 r := copy( src, pos+1, Length(src) );

 Result := l + fragment + r;
end;

function replace( src: String; pos: Integer; replacement: String ): String;
var
 l, r : String;
begin
 l := copy( src, 1, pos-1 );
 r := copy( src, pos+1, Length(src) );

 Result := l + replacement + r;
end;

var
 s : String;
 c : Boolean;
 t : Char;
 i : Integer;

begin
 readln( s );

 c := False;

 for i:=1 to Length(s) do
 begin
  if( c ) and ( i+1 <= Length(s) ) then
  begin
   t := s[i+1];
   t := Chr( Ord(t) - 32 );

   s := replace( s, i+1, t );
  end;

  if( s[i] = '.' ) then
  begin
   if( i+1 <= Length(s) ) and ( s[i+1] <> ' ' ) then
    s := insert( s, i, ' ' );

   c := True;
  end
  else c := False;
 end;

 writeln( s );
end.

Это сообщение отредактировал(а) mr.Anderson - 6.1.2008, 12:38

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »