osobennosti-vozdeystviya-zagryazneniya-pitevoy-vody-na-zdorove-naseleniya-v-kurskoy-oblasti (773572)

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

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

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

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

Задачи

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

Информатика

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

студент группы Э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

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов реферата