Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите решить задачу (Очень надо)
Помогите решить задачу
Ввести текст из нескольких строк из клавиатуры. В каждой строке текста найти слово, которое расположено в центре строки. Слова разделяются пробелами. Найденные слова записать в новый файл. wink
1 | Автор: innaa639 | 2008-11-29, 17:19   |  Репутация: [ + 0 ]
1 | Автор: innaa639 | 2008-11-29, 17:19   |  Репутация: [ + 0 ]
ну будем считать что пробелы одиночные и спережи и сзади нет пробелом. тогда:
1. считаем количество пробелов
2. если количесвто пробелов четное - слов в предложении - нечетное, то центральным слово будет то, которое стоит после n/2 пробела, где n - количесвто пробелов. Если же количество пробелов нечетное то слов - четное, и "центральных" слова будет как бы два - которые стоят до и после (n div 2) + 1 или round(n/2) пробела в строке.
3. записываем в файл.


If you can't make it GOOD make it LOOK GOOD. B.Gates
2 | Автор: DoVe | 2008-12-01, 22:16 | Изменено: DoVe - Пн, 2008-12-01, 22:17   |  Репутация: [ + 48 ]
помогите решить

Услуги телефонной сети оплачиваются по следущему правилу: за разговоры до А минут в месяц оплачивются В руб, а разговоры сверх установленной нормы оплачиваются из расчета С руб, в минуту. Написать программу, вычесляющую плату за пользование телефоном для введеного времени разговоров за месяц.


Жизнь вселенной длинною в бесконечность
3 | Автор: Руслан | 2011-07-01, 11:06 | Изменено: Руслан - Пт, 2011-07-01, 11:18   |  Репутация: [ + 0 ]
Quote (Руслан)
помогите решить

Услуги телефонной сети оплачиваются по следущему правилу: за разговоры до А минут в месяц оплачивются В руб, а разговоры сверх установленной нормы оплачиваются из расчета С руб, в минуту. Написать программу, вычесляющую плату за пользование телефоном для введеного времени разговоров за месяц.


ответ:
program razgovoru;
uses crt;
var a,b,c,d,e,f:integer;
begin
clrscr;
a:=0;
writeln('Vvedite normy minyt');
read(a);
writeln('Vvedite koli4estvo minut');
read(b);
writeln('Vvedite razmer oplatu za 1 minyty');
read©;
if b<=a then
d:=c*b;
writeln('Symma k oplate = ',d);
if b>a then
writeln('Vvedite oplaty sverh normu');
read(e);
f:=b*e;
writeln('Symma k oplate sverh normu = ',f);

end.
4 | Автор: viper-klas | 2011-07-04, 18:35   |  Репутация: [ + 3 ]
Код правильно работать не будет

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
5 | Автор: Berestovskiy | 2011-07-12, 15:26   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите решить задачу (Очень надо)
Страница 1 из 11
Поиск: