Тема: Алгоритмические языки. Их классификация. Языки высокого уровня. Перспективы развития . Учебная работа № 430374

Учебная работа № 430374. Тема: Алгоритмические языки. Их классификация. Языки высокого уровня. Перспективы развития

Выдержка из похожей работы

…….

Алгоритмические языки: обработка массивов

…..ока) специально предназначен для
обработки строк (цепочек символов). Переменная типа string состоит из элементов
типа char. Переменные типа string могут быть объявлены следующим образом:

var Имя_переменной1: string;

Имя_переменной2: string[n];

Переменная типа string объявляется, как правило, путем
указания имени переменной, зарезервированного слова string и указания (в
квадратных скобках) максимального размера (длины) строки, которая может
храниться в этой переменной. Если максимальный размер строки не указан, то он
автоматически принимается равным 255 – максимально возможная длина строки.

Стандартные процедуры и функции для строк:

·  
функция
Length – определение фактической длины текстовой строки, хранящейся в указанной
переменной;

·  
функция
UpCase – преобразование символа любой литеры из строчного в прописной;

·  
функция
Copy – копирование фрагмента некоторой строки из одной переменной в другую;

·  
функция
Pos – осуществление в некоторой строке поиска определенного фрагмента;

·  
функция
Concut – соединение строк;

процедуры Insert и Delete – вставка фрагмента из
одной строки в другую, удаление фрагмента из строки[1-8].

Постановка задачи.

Дана последовательность слов; между соседними словами –
запятая, за последним словом – точка. Напечатать эту же последовательность
слов, но удалив из неё повторные вхождения слов. Составить блок схему алгоритма
и программу.

Листинг программы

uses crt;

var str:array[1..10] of string; – массив для слов

Slovo,st:string; – строка предложения

i,j,n,k:integer; – вспомогательные переменные

begin

ClrScr;

Writeln(‘ Programma ydalyaet povtornoe vhojdenie slov ‘);

Writeln;

Writeln(‘Vvedite posledovatelnost slov v formate:
<>,<>,<>.’); – формат ввода слов в программе

Write(‘Vashi slova: ‘);

Readln(Slovo);

if Length(Slovo)<1 then - проверка на ввод слов begin Writeln('Nujno vvesti slovo!'); Halt; end; j:=0; i:=1; k:=1; n:=1; - н.у. для переменных while i<=Length(Slovo) do - цикл в котором слова из предложения заносятся в массив begin строк n:=i; while (Slovo[i]<>‘,’)and(Slovo[i]<>‘.’) do begin
inc(i); inc(j); end;

str[k]:=Copy(Slovo, n, j); – занесение в массив слова

j:=0;

inc(k);

inc(i);

end;

str[k]:=’.’;

for i:=1 to k-1 do – цикл в котором происходит сравнение и
удаление

for j:=(i+1) to k-1 do begin одинаковых слов в предложении

if str[i]=str[j] then begin

str[j]:=”;

end;

end;

st:=”;

for j:=1 to k-1 do begin – формирование предложения из
неповторяющихся слов

if (str[j]<>”) then st:=st+str[j]+’,’;

end;

delete(st,Length(st),1);

st:=st+’.’;

writeln;

writeln(‘Posledovatelnost’);

write(‘bez povtoreniy:’,st); – вывод результата

readln;

end.

Блок-схема алгоритма программы.

Рис.1 Блок-сема программы задания 1.

Результаты работы программы. Yandex.RTB R-A-98177-2

(function(w, d, n, s, t) {
w[n] = w[n] || [];
w[n].push(function() {
Ya.Context.AdvManager.render({
blockId: “R-A-98177-2”,
renderTo: “yandex_rtb_R-A-98177-2”,
async: true
});
});
t = d.getElementsByTagName(“script”)[0];
s = d.createElement(“script”);
s.type = “text/javascript”;
s.src = “…