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

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

    В избранное