Функции - Форум
Пятница, 09.12.2016, 06:51
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Функции (Нужно решить с помощью функций)
Функции
BaksBanyДата: Суббота, 18.06.2011, 13:18 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
В строке состоящих из слов определить количество слов имеющих длину равную длине первого слова.

решить в паскале.до понедельника!буду очень благодарен тому кто поможет.


Сообщение отредактировал BaksBany - Суббота, 18.06.2011, 14:39
 
k_beДата: Вторник, 02.08.2011, 18:08 | Сообщение # 2
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
есть ограничение на длину строки?
На С++ не подойдёт?


Сообщение отредактировал k_be - Вторник, 02.08.2011, 18:10
 
OnlinePascalDelphi1Дата: Среда, 03.08.2011, 01:09 | Сообщение # 3
Рядовой
Группа: Заблокированные
Сообщений: 4
[ 0 ]
Статус: Offline
Уже сплю, и заметьте не кто бесплатно решать вам не будет.
Code
{В строке состоящих из слов определить количество слов имеющих длину равную длин
е первого слова.}
Program zad1;
var
  str: String;
   
  function CountSlov(str: String): Integer;
  var
   slovo, slov: String; // Тут будет хранится первое слово
   count: Byte;
  begin
   slovo := Copy(str,1,Pos(' ',str));
   Delete(str,1, Pos(' ',str));
   while Pos(' ', str) <> 0 do
   begin
    slov := Copy(str,1,Pos(' ',str));
    Delete(str,1, Pos(' ',str));
     if Length(Slovo) = Length(slov) then
     begin
      count := count + 1;
     end;
     if Length(str) = 1 then count := count + 1;
   end;
   CountSlov := count;
  end;
begin
  Write('Введите текст: ');
  ReadLn(str);
  WriteLn('Количество слов имеющюю длину первого слово:',CountSlov(str),' слов');
end.

Рузультат программы:
Введите текст: Ванек саня юля Ванек ваня
Количество слов имеющюю длину первого слово:1 слов


Сообщение отредактировал OnlinePascalDelphi1 - Среда, 03.08.2011, 01:10
 
KOT_B_MEIIIKEДата: Среда, 03.08.2011, 20:27 | Сообщение # 4
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
я бы сделал)
 
OnlinePascalDelphi1Дата: Четверг, 04.08.2011, 00:23 | Сообщение # 5
Рядовой
Группа: Заблокированные
Сообщений: 4
[ 0 ]
Статус: Offline
Для чего? Вам не хочется подзаработать!?
Почему если они нечего не хотят мы должны делать за них бесплатно.
 
KOT_B_MEIIIKEДата: Четверг, 04.08.2011, 09:13 | Сообщение # 6
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
Ну не знаю, мне не влом, ели задачки несложные. Плюс мне нравится составлять действительно работающие программы, которые кому-то нужны. А насчёт не хотят - если человек учится на пищевого химика, то нафига ему VB например... Я думаю так - если человеку нужно проограммирование, то он будет делать всё сам, а если вообще не надо, то можно и помочь. Плюс истинная благодарность человека - для меня важнее, чем деньги. А тех кто не говорит даже спасибо - вот тех я не люблю.
 
OnlinePascalDelphi1Дата: Четверг, 04.08.2011, 16:46 | Сообщение # 7
Рядовой
Группа: Заблокированные
Сообщений: 4
[ 0 ]
Статус: Offline
Не понимаю таких людей, просто когда вы делайте бесплтано это как то не так. А вот допустим ты делаешь платно и тебе на кошелек капает денюшка и ты понимаешь что ты делаешь за бабки то есть ты работаешь. Ну в принцепе как знайте.
 
KOT_B_MEIIIKEДата: Понедельник, 08.08.2011, 08:44 | Сообщение # 8
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
Просто платят очень немногие. Платёжная система интернета осваивается в России плохо, да и я сам отношусь к ней пока без особого энтузиазма) Мне нравится делать людям приятное, мб подрасту - это пройдёт)
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Функции (Нужно решить с помощью функций)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016