osobennosti-vozdeystviya-zagryazneniya-pitevoy-vody-na-zdorove-naseleniya-v-kurskoy-oblasti (Особенности воздействия загрязнения питьевой воды на здоровье населения в Курской области)

Министерство Образования Российской Федерации

Московский Государственный Технический Университет

имени Н. Э. Баумана

Задачи

по дисциплине:

Информатика

Работу выполнил:

студент группы Э1-13

Андрианов А. О.

Москва

20.11.2016

Условие

Задача 2

Дана строка:

1. Посчитать количество гласных букв

2. Удалить из строки цифры

3. Найти первое вхождение ‘*’ в строку

Задача 10

Дана строка:

1. Найти первое вхождение символа ‘.’ в строку

2. Вставить в строку последнее слово ‘сессия’

3. Удалить из строки все цифры

Задача 2

program Project1; 

{$APPTYPE CONSOLE} 

uses 
SysUtils; 
type TMAS = array [1..20] of ShortString; 
procedure vvod(var A:TMAS; var n:Byte); 
var i:Byte; 
begin 
Writeln('Vvedite chislo strok v massive:'); 
Readln(n); 
for i:=1 to n do 
begin 
Writeln('Vvedite ', i, ' stroku:'); 
Readln(A[i]); 
Writeln; 
end; 
end; 
procedure vivod (A:TMAS; n:byte); 
var i:Byte; 
begin 
For i:=1 to n do 
Writeln(A[i]); 
end; 
procedure udal (var A:TMAS; n:byte); 
var 
i:Byte; 
begin 
for i:=1 to n do 
begin 
A[i]:=StringReplace(A[i],'1','',[rfReplaceAll]); 
A[i]:=StringReplace(A[i],'2','',[rfReplaceAll]); 
A[i]:=StringReplace(A[i],'3','',[rfReplaceAll]); 
A[i]:=StringReplace(A[i],'4','',[rfReplaceAll]); 
A[i]:=StringReplace(A[i],'5','',[rfReplaceAll]); 
A[i]:=StringReplace(A[i],'6','',[rfReplaceAll]); 
A[i]:=StringReplace(A[i],'7','',[rfReplaceAll]); 
A[i]:=StringReplace(A[i],'8','',[rfReplaceAll]); 
A[i]:=StringReplace(A[i],'9','',[rfReplaceAll]); 
A[i]:=StringReplace(A[i],'0','',[rfReplaceAll]); 
end; 
end; 
procedure kolich (A:TMAS; n:byte;var k:byte); 
var i,j:Byte; 
begin 
k:=0; 
for i:=1 to n do 
for j:=1 to length(A[i]) do 
If (A[i][j] = 'e') or (A[i][j] = 'y') or (A[i][j] = 'u') or 
(A[i][j] = 'i') or (A[i][j] = 'o') or (A[i][j] = 'a') then 
k:=k+1; 
end; 
procedure vhojd (A:TMAS; n:byte); 
var i,l:Byte; 
begin 
for i:=1 to n do 
begin 
l:=Pos('*',A[i]); 
if l = 0 then Writeln('Simbvola "*" net v ', i, ' stroke') 
else Writeln('"*" - ', l,' simvol v ', i, ' stroke'); 
end; 
end; 

var A:TMAS; 
n,k:Byte; 
begin 
vvod(A,n); Writeln; 
kolich(A,n,k); 
Writeln('V massive ', k, ' glasnih bykv'); 
udal(A,n); writeln; 
Writeln('Massiv posle udaleniya:'); 
vivod(A,n); Writeln; 
vhojd(A,n); 
Readln; 
end.

Задача 10

program Project2; 

{$APPTYPE CONSOLE} 

uses 
SysUtils; 
type TMAS = array [1..20] of ShortString; 
procedure vvod(var A:TMAS; var n:Byte); 
var i:Byte; 
begin 
Writeln('Vvedite chislo strok v massive:'); 
Readln(n); 
for i:=1 to n do 
begin 
Writeln('Vvedite ', i, ' stroku:'); 
Readln(A[i]); 
Writeln; 
end; 
end; 
procedure vivod (A:TMAS; n:byte); 
var i:Byte; 
begin 
For i:=1 to n do 
Writeln(A[i]); 
end; 
procedure udal (var A:TMAS; n:byte); 
var 
i:Byte; 
begin 
for i:=1 to n do 
begin 
A[i]:=StringReplace(A[i],'1','',[rfReplaceAll]); 
A[i]:=StringReplace(A[i],'2','',[rfReplaceAll]); 
A[i]:=StringReplace(A[i],'3','',[rfReplaceAll]); 
A[i]:=StringReplace(A[i],'4','',[rfReplaceAll]); 
A[i]:=StringReplace(A[i],'5','',[rfReplaceAll]); 
A[i]:=StringReplace(A[i],'6','',[rfReplaceAll]); 
A[i]:=StringReplace(A[i],'7','',[rfReplaceAll]); 
A[i]:=StringReplace(A[i],'8','',[rfReplaceAll]); 
A[i]:=StringReplace(A[i],'9','',[rfReplaceAll]); 
A[i]:=StringReplace(A[i],'0','',[rfReplaceAll]); 
end; 
end; 

procedure vhojd (A:TMAS; n:byte); 
var i,l:Byte; 
begin 
for i:=1 to n do 
begin 
l:=Pos('.',A[i]); 
if l = 0 then Writeln('Simbvola "." net v ', i, ' stroke') 
else Writeln('"." - ', l,' simvol v ', i, ' stroke'); 
end; 
end; 

procedure dobavka (var A:TMAS; n:Byte); 
begin 
A[n]:=A[n]+' sessiya'; 
end; 

var A:TMAS; 
n,k:Byte; 
begin 
vvod(A,n); Writeln; 
vhojd(A,n); 
udal(A,n); 
dobavka(A,n); 
Writeln('Massiv posle udaleniya cifr i dobavleniya slova:'); 
vivod(A,n); 
readln; 
end.

5