Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 01.10.2010
Сообщений: 3
1

В заданном предложении поменять местами первое слово и самое длинное слово

01.10.2010, 10:24. Показов 1439. Ответов 5
Метки нет (Все метки)

Кто-нибудь, помогите решить задачи на Lazarus или Delphi!

1. В заданном предложении поменять местами первое слово и самое длинное слово. Напечатать исходный и преобразованный тексты.
2. В заданном предложении на русском языке найти слово, в котором наибольшее количество гласных. Напечатать исходное предложение и найденное слово.

1. Создать файл f1, состоящий из целых чисел по 6 в строке. Переписать в файл f2 все положительные числа из файла f1, оставляя их в тех же строках.
2 Файл состоит из произвольных слов, расположенных по одному слову в строке. Подсчитать и вывести количество тех слов в файле, которые являются записью чисел на Паскале (например, 1, 72.8, 0.33E-5)
Вариант 9
3. Переписать в файл таблицы значений функций y=sin x и z=tg x на отрезке [0,3] c шагом 0,1. Значения x записать с 1 цифрой в дробной части, значения y – с двумя цифрами, значения z – в экспоненциальной форме.
4. В файле содержатся шестизначные номера телефонов и информация о сумме задолженности абонента данного телефона. Записи об одном абоненте могут повторяться. Программа должна выводить суммарную задолженность абонента по введенному номеру телефона.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.10.2010, 10:24
Ответы с готовыми решениями:

В заданном предложении найти самое короткое и самое длинное слово и указать позиции, с которых они начинаются
В заданном предложении найти самое короткое и самое длинное слово и указать позиции, с которых они...

Найти самое длинное симметричное слово в заданном предложении
Как в программе определяется симметричное слово или нет? sW2 := S + sW2; //Слово в обратном...

Найти самое длинное симметричное слово в заданном предложении
Помогите, ввожу симметричные слова, а мне постоянно выдаёт симметричных слов нет! unit Unit1; ...

Поменять местами самое короткое и длинное слово
смог найти эти слова но вот как поменять не знаю.. вот что сделал const //Множество...

5
Фрилансер
452 / 433 / 117
Регистрация: 01.06.2010
Сообщений: 1,314
01.10.2010, 10:44 2
Цитата Сообщение от Kl@v@ Посмотреть сообщение
2 Файл состоит из произвольных слов, расположенных по одному слову в строке. Подсчитать и вывести количество тех слов в файле, которые являются записью чисел на Паскале (например, 1, 72.8, 0.33E-5)
Как то так можно:
Delphi
1
2
3
4
5
6
7
8
9
10
11
AssignFile(F,'имя файла данных');
Reset(F);
count:=0;
while not Eof(F) do
  begin
    Application.ProcessMessages;
    readln(F,Line);
    if TryStrToFloat(Line,Value) then Inc(count)
  end;
CloseFile(F);
  //count содержит количество чисел
1
0 / 0 / 0
Регистрация: 01.10.2010
Сообщений: 3
01.10.2010, 11:03  [ТС] 3
СПС! А на Delphi? С паскалем у меня получше, а вот Delphi

Добавлено через 8 минут
Все работает!
0
КотЪ
219 / 219 / 60
Регистрация: 26.05.2009
Сообщений: 688
01.10.2010, 11:57 4
И чём код Mad_Dog, отличается от написания в Делфи?..
1
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
01.10.2010, 12:04 5
Zabiyak, Так ТС и написал
Добавлено через 8 минут
Все работает!
1
2184 / 1254 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
01.10.2010, 12:08 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

вот по первому заданию
Delphi
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
32
33
34
procedure TForm1.Button1Click(Sender: TObject);
const t=['!',' ',',','.',':',';'];
var i,r:integer;
str,str2,stroka:string;
begin
if OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
stroka:=Memo1.Text;
str:='';
//stroka:=stroka+' ';
r:=0;
  for i:=1 to Length(stroka) do
  begin
    if not (stroka[i] in t) then
    begin
    str:=str+stroka[i];
    end else
    begin
      if Length(str)>0 then
      begin
        if r<length(str) then
        begin
            str2:=str;
      // str:=str+' ';
            r:=length(str);
        end;
      end;
    str:='';
    end;
  end;
  Label1.Caption:='Самое длинное слово это '+str2;
 
delete(stroka,1,pos(' ',stroka));
memo2.Text:=copy(memo1.Text,pos(str2,memo1.Text),PosEx(' ',memo1.Text,pos(str2,memo1.Text))-pos(str2,memo1.Text))+' '+copy(stroka,1,pos(str2,stroka)-1)+copy(memo1.Text,1,pos(' ',memo1.Text))+copy(memo1.Text,pos(str2,memo1.Text)+length(str2),length(memo1.Text)-pos(str2,memo1.Text)+length(str2));
end;
проверял, работает
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.10.2010, 12:08

Поменять местами в предложении самое длинное и самое короткое слово
Сам код, но тут 12 ошибок выдает в логе: #include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include...

Поменять местами в предложении самое длинное и самое короткое слово.
Помогите пожалуйста доделать задачу: Поменять местами в предложении самое длинное и самое короткое...

В каждом предложении требуется поменять местами самое длинное и самое короткое слово
Введите текст, заканчивающийся знаком *. Каждое предложение заканчивается точкой. В каждом...

Поменять местами самое длинное слово и самое короткое слово в тексте
Пусть есть двумерный массив, заполненный символами. Рассматривать его как многострочный текст,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru