![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 23.05.2012
Сообщений: 5
|
![]()
#include <stdio.h>
main() { char s; // текущий символ текста char prs; // предыдущий символ short net=1; // признак, имеется ли "BA" в тексте // net=1, если "BA" нет // net=0, если "BA" есть printf ("\nVvedite text.\n"); s=getchar(); if (s!='.') { do { prs=s; s=getchar(); if (prs=='B' && s=='A') net=0; } while (s!='.'); } if(net) printf ("V texte net 'BA'.\n"); else printf ("V texte est 'BA'.\n"); } помогите пожалуйста Задание: Даны вещественные числа А1, А2, А3, ... . Признак конца последовательности число 999. Определить: Составляют ли числа возрастающую последовательность. |
![]() |
![]() |
![]() |
#2 |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
![]()
Зачем вы выкладываете код для других задач?
Потому что своих наработок нет? стучите, контакты ниже!
Mess with the best, die like the rest.
![]() Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
![]() |
![]() |
![]() |
#3 |
Новичок
Джуниор
Регистрация: 23.05.2012
Сообщений: 5
|
![]()
Это пример, по примеру надо составить программу?!
|
![]() |
![]() |
![]() |
#4 |
Старожил
Регистрация: 02.01.2011
Сообщений: 3,328
|
![]()
Вот определение возрастающей последовательности a[n]:
Пусть n и m индексы последовательности. Для любого n и m, из условия, что (n > m) следует -> (a[n]>a[m]). То есть каждый следующей член обязан быть строго больше предыдущего. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Натуральное число - Определить, образуют ли все цифры числа возрастающую последовательность | Sasha2011 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 18.10.2011 09:25 |
Квадраты нескольких 3-xзначных чисел оканчиваются 3 цифрами, которые составляют исходные числа. Найти эти числа. Паскаль | zig1 | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 12.10.2011 09:32 |
Заданая последовательность состоит из 1 и 0,определить количество Mзначных чисел,делящихся на 21 | Dima170792 | Помощь студентам | 3 | 25.06.2011 10:36 |
1. Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядко | Sos1 | Помощь студентам | 2 | 08.06.2010 00:29 |
Определить, сколько чисел входит ровно дважды в последовательность а1,а2,...,аm | milton | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 11.11.2008 18:31 |