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

Nbsp; Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования «Вологодский государственный технический университет» Кафедра автоматики и вычислительной техники ОТЧЕТ лабораторная работа8 по информатике Выполнил:Симанов Алексей Николаевич Проверил(а): Давыдова Е.Н. Группа: ЭПО-11 Вариант: 5 Вологда 2011 Содержание Задача 1...........................................................................................................................................................2 Задача 2……………………………………………………………………………………………………………………………………………………..5

Задача 1

В заданной строке текста необходимо выбрать все цифры и записать их в массив.

Подсчитайте количество цифр.

Работа программы

В заданной строке(str) ищутся числа, если такие есть то программа считает их количество и выдает на экран(j-1)

Назначение переменных

Назначение переменных, используемых в задаче, приведено в таблице 1

Таблица 1 – Назначение переменных

Переменная	Тип	Назначение
Str	String	Cтрока
I,J	Integer	Целочисленные переменные подпрограммы.
A	Array of char	Исходный массив

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

p uJwoEEh1sB01Gt5eVxc5iJgMWeMCoYYjRlhWpyelKWw40AvuN6kRXEKxMBralPpCyli36E2chB6J s88weJP4HBppB3Pgcu/kVKlr6U1H/KE1Pd61WH9vdl5D1x7d1eKxuf9YvWfPD71afz35tdbnZ+Pt DYiEY/qD4Vef1aFip23YkY3CaZgt5lNGOchnIBjI1JzHbTXkmQJZlfL/guoHAAD//wMAUEsBAi0A FAAGAAgAAAAhALaDOJL+AAAA4QEAABMAAAAAAAAAAAAAAAAAAAAAAFtDb250ZW50X1R5cGVzXS54 bWxQSwECLQAUAAYACAAAACEAOP0h/9YAAACUAQAACwAAAAAAAAAAAAAAAAAvAQAAX3JlbHMvLnJl bHNQSwECLQAUAAYACAAAACEAV4WmBM8CAACeBQAADgAAAAAAAAAAAAAAAAAuAgAAZHJzL2Uyb0Rv Yy54bWxQSwECLQAUAAYACAAAACEAYqkI3eAAAAAJAQAADwAAAAAAAAAAAAAAAAApBQAAZHJzL2Rv d25yZXYueG1sUEsFBgAAAAAEAAQA8wAAADYGAAAAAA== " fillcolor="#f9f9f9" strokecolor="black [3213]" strokeweight=".25pt">

Начало

Введите строку

J:=1

I:=1 to length(str) do

0..9

A[j]:=str[i] j:=j+1

I:=1 to j do

Вывод колличества цифр

Конец

Да

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

Текстпрограммы

programstroki;

usescrt;

varstr:string;

i,j:integer;

a:array [1..100] ofchar;

begin

write('Введитестроку ');

writeln;

read(str);

j:=1;

for i:=1 to length(str) do

case str[i] of

'0'..'9':

begin

a[j]:=str[i];

j:=j+1;

end;

for i:=1 to j do

write(a[i],' ' );

writeln;

writeln('Колличество чисел равно ',j-1);

readln;

end.

Тестирование

Вводим любую строку желательно содержащую цифры, после чего программа посчитает их колличество

Тут нету ничего 1993 даже цифр

1 9 9 3

Количество чисел равно 4

Задача 2

Даны две строки. Если они начинаются с одинаковых символов, то напечатать «ДА», в противном случае — «НЕТ».

Работа программы

Вводятся 2 строки, после чего программа смотрит если строки начинаются с одинаковых букв то пишет (ДА), если нет то пишет (НЕТ).

Назначение переменных

Назначение переменных, используемых в задаче, приведено в таблице 1

Таблица 1 – Назначение переменных

Переменная	Тип	Назначение
Str1, Str2	String	Cтроки, вводимые с клавиатуры

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

Начало

Введите строку 1

Введите строку 2

str1[1]=str2[1]

Да

Нет

Да строки начинаются с одинаковых букв

Нет строки называются с разных букв

Конец

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

Текстпрограммы

programstroki2;

usescrt;

varstr1,str2:string;

begin

writeln('Введитестроку 1 ');

read(str1);

writeln('Введитестроку 2 ');

read(str2);

if str1[1]=str2[1] then

writeln('Да строки начинается с одной и той же буквы') else writeln('Нет строки начинаются с разных букв');

readln;

end.

Тестирование

Введите строку 1

Тут?

Введите строку 2

Тут я тут!)

Да строки начинаются с одной и той же буквы

Задача 3

1. Вводится строка произвольного текста, в котором есть буквы и цифры. Удалить все цифры.

2. Определить, есть ли в заданном тексте слова, заканчивающиеся на букву "к" (слова разделены пробелами). Программа должна вывести на экран либо "да" либо "нет".

3. Удалить слова, заканчивающиеся на букву «к», если они есть.

Работа программы

1. Вводится строка произвольного текста, в котором есть буквы и цифры. Удалить все цифры.

3. Удалить слова, заканчивающиеся на букву «к», если они есть.

Назначение переменных

Назначение переменных, используемых в задаче, приведено в таблице 1

Таблица 1 – Назначение переменных

Переменная	Тип	Назначение
Str, Str1	String	Cтроки, вводимые с клавиатуры
I,J,P,A,N	Integer	Целочисленные переменные используемые в теле программы

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

Начало

Введите строку

str1:=str

I:=1 to length(str1) do

0..9

Delete (str1,i-p,1) p:p+1

Вывод строки

Да

Нет

I:=1 to length(str) do

Str[i]=”_” and str[i-1]=k or str[length(str)]=k

Нет

A<>0

Да

A:=a+1

Да

Нет

Да

Нет

N:=1

I:=1 to length(str) do

Str[i]=”_” and str[i-1]=k

J:=i downto n do

Да

Нет

Str[i]=”_”

Да

Нет

Delete(str,j,1)

N:=i

I:=length(str)

Str[length(str)]=k

Str[i]<>”_” do

Да

Нет

Delete(str,I,1) i:=i-1

Вывод строки

Конец

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

Текстпрограммы

program stroki;

uses crt;

var str,str1:string;

i,j,p,a,n:integer;

begin

writeln('Введите строку в которой есть и цифры и буквы ');

readln(str);

str1:=str;

for i:=1 to length(str1) do

case str1[i-p] of

'0'..'9': begin

delete(str1,i-p,1);

p:=p+1;

end;

writeln(str1);

for i:=1 to length(str) do

if ((str[i]=' ') and (str[i-1]='k') or (str[length(str)]='k')) then

a:=a+1;

if a<>0 then

writeln('Äà')

else

writeln('Íåò');

n:=1;

for i:=1 to length(str) do

begin

if ((str[i]=' ') and (str[i-1]='k')) then

for j:=i downto n do

delete(str,j,1)

else

if str[i]=' ' then n:=i;

end;

i:=length(str);

if str[length(str)]='k' then

while str[i]<>' ' do

begin

delete(str,i,1);

i:=i-1;

end;

writeln(str);

end.

Тестирование

1. Вводится строка произвольного текста, в котором есть буквы и цифры. Удалить все цифры.

3. Удалить слова, заканчивающиеся на букву «к», если они есть.

Дата добавления: 2018-05-12; просмотров: 179; Мы поможем в написании вашей работы!

Поделиться с друзьями:

Мы поможем в написании ваших работ!