русс | укр

Мови програмуванняВідео уроки php mysqlПаскальСіАсемблерJavaMatlabPhpHtmlJavaScriptCSSC#DelphiТурбо Пролог

Компьютерные сетиСистемное программное обеспечениеИнформационные технологииПрограммирование


Linux Unix Алгоритмічні мови Архітектура мікроконтролерів Введення в розробку розподілених інформаційних систем Дискретна математика Інформаційне обслуговування користувачів Інформація та моделювання в управлінні виробництвом Комп'ютерна графіка Лекції


ЗМІСТ, ПОСЛІДОВНІСТЬ ТА МЕТОДИКА ВИКОНАННЯ РОБОТИ


Дата додавання: 2014-11-27; переглядів: 791.


Завдання 1Скласти схему алгоритму і програму для обробки масиву символьних даних. Варіанти індивідуальних завдань вказаних в таблиці 5.1, співпадають з Вашим номером в класному журналі


Завдання 2Скласти схему алгоритму і програму по для обробки масиву символьних даних. Варіанти індивідуальних завдань вказаних в таблиці 5.1, співпадають з Вашим номером в класному журналі

 


ПРИКЛАД ВИКОНАННЯ ЗАВДАННЯ:

Приклад №1 Задана послідовність символів х1,х2.. З’ясувати чи є серед них пара сусідніх символів А і В.

Program primer ;

Uses CRT;

Var x: string[20]; I,k: integer;

Begin

clrscr;

Writeln (‘ Введіть послідовність:’);

Readln(x);

For I:=1 to n-1 do

If (x[i]=’A’ and x[I+1]=’B’) then k:=k+1;

If k<>0 tehn Writeln (‘ Сусідні A,B є у послідовності’) else writeln (‘Сусідніх A,B немає’);

C:=readkey;

End.

Приклад №2 В заданій послідовності символів, до першої точки видалити усі цифри та подвоїти знаки + та *

 

Program primer2;

Var I: integer; s:string;

Begin clrscr;

Writeln (‘Введіть послідовність:’);

Read(s);

Repeat

If (s[i]=’+’ or s[i]=’*’ then insert(s,s[i],i)

else

if (s[i]<’0’ or (s[i]>’9’) then delete(s,I,1);

Until s[i]=’.’;

End.


<== попередня лекція | наступна лекція ==>
ЗМІСТ, ПОСЛІДОВНІСТЬ, МЕТОДИКА ВИКОНАННЯ РОБОТИ | Іерархія типів даних Pascal


Онлайн система числення Калькулятор онлайн звичайний Науковий калькулятор онлайн