Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS
←   Декабрь 2009   →
 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
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.307 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: программирование на Delphi и Lazarus


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Boriss
Статус: Академик
Рейтинг: 1371
∙ повысить рейтинг » 		Jimhucksly
Статус: 5-й класс
Рейтинг: 712
∙ повысить рейтинг » 		Евгений/Genia007/
Статус: Бакалавр
Рейтинг: 490
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И ПО / Программирование / Delphi и Lazarus

Номер выпуска:1472
Дата выхода:16.12.2009, 13:30
Администратор рассылки:Калашников О.А., Руководитель
Подписчиков / экспертов:582 / 220
Вопросов / ответов:2 / 2

Вопрос № 175135: Написать процедуру, переворачивающие наоборот слова в предложении. ----------------- Программа должна работать на Delphi 7 Прошу написать как можно более простым языком. И закоментировать все по максимуму. и еще ОЧЕНЬ ОЧЕНЬ нужна Блок...

Вопрос № 175137: Написать программу, которая считывает текст из файла и выводит на экран выражения, заключенные в кавычки. ----------------- Программа должна работать на Delphi 7 Прошу написать как можно более простым языком. И закоментировать все по максиму...
Вопрос № 175135:

Написать процедуру, переворачивающие наоборот слова в предложении.

-----------------
Программа должна работать на Delphi 7
Прошу написать как можно более простым языком. И закоментировать все по максимуму.
и еще ОЧЕНЬ ОЧЕНЬ нужна БлокСхема. Пусть даже нарисованная на листке бумаги и отсканированная. Ну или в пэйнте на скорую руку. Пожалуйста очень нужно!

Отправлен: 11.12.2009, 13:00
Вопрос задал: Иванов Евгений Витальевич, Посетитель
Всего ответов: 1
Страница вопроса »

Отвечает Евгений/Genia007/, Бакалавр :
Здравствуйте, Иванов Евгений Витальевич.
Вот, что я могу Вам предложить
Код:
program Project15;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  s, s1, s2, s3: String;
  i: Integer;

begin
  Readln(s);  //  Ввод предложения
  s1:= '';  //  Отчистили
переменную s1
  s2:= '';  //  Отчистили переменную s2
  s3:= '';  //  Отчистили переменную s3
  for i:= 1 to Length(s) + 1 do  //  Делать пока не будет конец строки + 1
    if (s[i] <> ' ') and (i <> Length(s) + 1) then  //  Если символ не равен пробелу и i не равно длине строки + 1
      s2:= s2 + s[i]  //  Переменной s2 присвоили очередной символ строки s
    else
      begin
        s3:= s3 + ' '
 ;;  //  Считаем количество пробелов после слова
        While Length(s2) <> 0 do  //  Пока длина ытроки не будет ровна 0 делать
          begin
            s1:= s1 + Copy(s2, Length(s2), 1);  //  Скопировали 1 символ из конца строки s в строку s1
            Delete(s2, Length(s2), 1);  //  Удалили последний символ строки s
          end;
        s2:= '';  //  Отчистили переменную s2
        s1:= s1 + s3;  //  Добавили в конец слова пробелы
        s3:= '';  // 
Отчистили переменную s3
      end;
  Writeln(s1);  //  Вывели в поле ввода 2 содержимое строки s1
  Readln;  //  Задержка выхода из программы
end.

Блок-схема и проект в прикреплённом файле. Блок-схема нарисована в приложении Paint. Прикрепленный файл: загрузить »

-----
Помогли тебе, помоги и ты.

Ответ отправил: Евгений/Genia007/, Бакалавр
Ответ отправлен: 11.12.2009, 20:09

Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 257625 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Вопрос № 175137:

    Написать программу, которая считывает текст из файла и выводит на экран выражения, заключенные в кавычки.
    -----------------
    Программа должна работать на Delphi 7
    Прошу написать как можно более простым языком. И закоментировать все по максимуму.
    и еще ОЧЕНЬ ОЧЕНЬ нужна БлокСхема. Пусть даже нарисованная на листке бумаги и отсканированная. Ну или в пэйнте на скорую руку. Пожалуйста очень нужно!

    Отправлен: 11.12.2009, 13:13
    Вопрос задал: Иванов Евгений Витальевич, Посетитель
    Всего ответов: 1
    Страница вопроса »

    Отвечает Колесников Иван Владимирович, 3-й класс :
    Здравствуйте, Иванов Евгений Витальевич!
    Код программы на Delphi в приложении.
    Практически все строки с коментариями.
    Алгоритм приблизительно таков:
    0. Обнулить флаг
    1. Открыть файл
    2. Если конец файла перейти на шаг 7
    3. Прочитать символ
    4. Если это ковычка инвертировать флаг
    5. Если флаг установлен и это не ковычка вывести символ
    6. Перейти на 2
    7. Подождать нажатия на клавишу (чтобы окно консоли не закрылось сразу и мы смогли увидеть резальтат)
    8. Закрыть файл

    Приложение:

    Ответ отправил: Колесников Иван Владимирович, 3-й класс
    Ответ отправлен: 11.12.2009, 17:31

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 257613 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2009, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2009.6.12 от 30.11.2009
    В избранное