На языке программирования Pascal написать программы в соответствии с вашим вариантом. Задачи должны быть решены алгоритмически и на языке программирования Pascal.
1. В заданном тексте подсчитать наибольшее количество подряд идущих пробелов.
var text: string;
max,dl,schet,i: worol;
begin
writeln(‘введитетекст’,’’);
dl:=length(text);
max:=a; m:=0;
for i:=1 to dl do
if i=’’ then Jnc(m) else
begin
if m>max then max:=m;
m:=0;
end;
writeln(‘максимальное кол-во:’,max);
readln;
|
 |
2. Из заданного текста удалить те его части, которые заключены в кавычки (вместе с кавычками).
var text: string;
i,kol,met1,met2,dl:worol;
begin
writeln(‘вводитетекст:’);
readln(text);
dl:=length(text);
kol:=0; met1:=0; met2:=0;
for i:=1 to dl do
begin
if (kol=1) and (text[i]=’ ’) then
begin
kol:=2;
met2:=i-met1+1;
end;
if kol=2 then
begin
delete(text,met1,met2);
met1:=0;
met2:=0; kol:=0;
end;
if (text[i]=’ ’) and (kol=0) then
begin
kol:=0;
met1:=i;
end;
end;
writeln(text);
readln;
end.
 |
3. Осуществить циклический сдвиг компонент заданного вектора A(N) вправо на две позиции, то есть получить векторA= (an-1, an,a1,a2,…,an-2)
const L=20; sd=2;
type VEKT=array[1..L] of integer;
var b,a:VEKT;
i:integer;
begin
write(‘введите вектор,’ ’);
for i:=1 to L do
read(a[i]);
for i:=1 to L do
|
|
|
|
|
if i<=sd then b[ i]:=a[L-sd+i]
else b[i]:=a[i-sd];
write(b[i]);
end;
readln;
end.
 |
4. В заданном массиве A(N) определить число соседств:
А) двух положительных чисел;
Б) двух чисел разного знака;
В) двух чисел одного знака.
|
type chsod=array[1..L] of integer;
var a: chsod;
|
i,kpd,kraz,kod:word;
begin
kpd:=0; kraz:=0; kod:=0;
|
write (’a[’,i’,]=’);
readln(a[i]);
end;
for i:=1 to L-1 do
begin
if (a[i]>0) and (a[i+1]>0) then
|
kpol:=kpol+1;
if a[i]*a[i+1]<0 then kraz:=kraz+1;
if a[i]*a[i+1]>0 then kod:=kod+1;
end;
|
write(‘положительных:’,kpol);
|
write(‘разных знаков:’,kraz);
write(‘одинаковых знаков:’,kod);
|
end.
 | |||
 |
5. Используя сведения о ежемесячных выплатах зарплаты сотрудникам фирмы, выяснить, не оказалась ли годовая зарплата кого-либо из сотрудников ниже годового минимума, оговоренного в его контракте.
Const chel=20
Type people=array[1..chel] of string;
price=array[1..12] of word;
Var k,i,j:byte;
s,min:word;
spis,pera:people;
plata:price;
begin
writeln(’введите размер минимальной зарплаты’);
readln(min);
s:=0;
k:=0;
for i:=1 to chel do
begin
write(’имя сотрудника:’);
readln(pers[i]);
write(‘егозарплата’);
for j:=1 to 12 do
begin
writeln(j,-ймесяц:’);
readln(plata[j]);
s:=s+plata[j];
end;
if s<min then
begin
k:=k+1;
spis[k]:=pers[i];
end;
s:=0;
end;
writeln(‘список работников с платой минимальной’);
for i:=1 to k do
writeln(spis[i]);
readln;
end.
 |
6. Элементы заданного массива x = (x1,x2,x3,…,xn) переупорядочить следующим образом: x= (xn, xn-1,…x1)
const L=20;
type massiv=[1..L] of integer;
var i:integer;
x,b:massiv;
begin
for i:=1 to L do
begin
writeln(‘x[‘,i,’]=’);
readln(x[i]);
end;
for i:=1 to L do
begin
b[i]:=x[L-i+1]
write(b[i]);
end;
|
|
|
|
|
readln;
end.
7. Вычислить сумму квадратов всех элементов заданного массива X(N), за исключением элементов, кратных пяти.
const L=20;
type massiv=[1..L] of integer;
var s,i:integer;
|
|
begin
writeln(‘>n’);
readln(n);
for i=1 to n do
writeln(‘a[‘,I,’]=’);
readln(a[i]);
s:=0;
for i:=1 to n do
if a[i] mod 5<>0 then
s:=s+a[i]*a[i];
|
readln;
|
|
|
|
end.
8. В заданном массиве a(n), все элементы которого попарно различны найти:
А) наибольший элемент из отрицательных;
Б) наименьший из положительных;
В) второй по величине элемент.
const L=20
type massiv=array[1..L] of integer;
var a:massiv;
k,n,i,max,max2,maxo,minp,j:integer;
begin
writeln(‘>n’); readln(n);
for i:=1 to n do
begin
writeln(‘a[‘,i,’]=’);
readln(a[i]);
end;
for i:=1 to n-1 do
if a[i]=a[i+1] then
begin
writeln(‘есть одинаковые элементы!’);
break;
end;
maxo:=a[1]; minp:=a[1]; max:=a[1]; max2:=0;
k:=0
for i:=1 to n do
begin
if a[i]>0 then
if a[i]<minp then minp:=a[i]
else
if a[i]>maxo then maxo:=a[i];
if a[i]>max then max:=a[i];
end;
i:=1; j:=1
while maxo2=0 do
begin
for i:=1 to n do
begin
if a[i]=max-j then
max2:=a[i];
k:=i;
end;
Jnc(j);
end;
ifminp<=0 thenwriteln (‘наименьшего положительного элемента нет!)
else writeln(minp);
ifmaxo<=0 thenwriteln(‘наибольшего отрицательного элемента нет!’)
else writeln(maxo);
ifmax2=maxthenwriteln(‘второго по величине элемента нет!’)
else writeln(max2);
readln; end.
9. Выяснить, есть ли в заданном предложении буква «ы».
var pr: string;
i,k:integer;
begin
writeln(‘введите предложение’);
readln(pr);
k:=0
for i:=1 to length(pr) do
if pr[i]=’ы’ then k:=1;
if k=1 then writeln(‘есть’)
|
else wrieln(‘нет’);
readln;
|
|
|
|
|
end.
10. Выяснить, верно ли то, что в предложении имеется заданное слово S?
var pr,s:string;
a,dl,I,j,k,l:integer;
begin
writeln(‘введите предложение:’);
readln(pr);
writeln(‘введитесловоS:’);
|
|
|
|
|
l:=0; j:=0;
|
|
|
|
|
|
|
a:=length(pr)-dl+1;
|
begin
if pr[i]=S[1] then
for k:=i to (i+dl) do
if pr[k]=s[j] then
begin
l:=l+1;
j:=j+1;
end;
if l<dl then l:=0;
end;
if l>=dl then writeln(‘есть’)
else writeln(‘нету’);
|
readln;
|
11. Вычеркнуть из заданного слова все буквы «а».
var sl:string;
i:integer;
begin
writeln(‘введитеслово’);
readln(sl);
for i:=1 to length(sl) do
if sl[i]=’a’ then Delete(sl,i,1);
writeln(‘результат:’,sl);
readln;
|
|
|
|
|
end;
12. Выяснить, верно ли, что в заданном предложении есть два одинаковых соседствующих символа.
Var pr:string;
k,i,dl:integer;
begin
writeln(‘введитепредложение’);
readln(pr);
dl:=length(pr);
k:=0;
for i:=1 to dl-1 do
if pr[i]=pr[i+1] then
k:=1;
if k=1 then writeln(‘верно’)
else writeln(‘неверно’);
readln;
|
|
|
|
|
|
|
|
end.Рекомендуемая литература:
1. Баврин, И.И. Высшая математика [Текст] /И.И. Баврин; учебник [гриф МО].-7-е изд.,- М.:Академия,2008.-616 с. - (Высш. проф. образование).
2. Безручко, В.Т. Компьютерный практикум по курсу "Информатика" [Текст]:учеб. пособие для студентов вузов/В.Т. Безручко.-3-е изд., перераб. и доп.-М.: Форум: ИНФРА-М,2009.-368 с.: ил.
3. Информатика. Общий курс [Текст]:учеб. пособие для вузов/А.Н. Гуда, М.А. Бутакова, Н.М. Нечитайло, А.В. Чернов; под ред.В.И. Колесникова; [гриф УМО].-3-е изд.-М.; Ростов н/Д: Дашков и К; Наука-Спектр,2009.-400 с.
4. Калабухова, Г.В. Компьютерный практикум по информатике. Офисные технологии [Текст]: учеб. пособие для вузов/Г.В. Калабухова, В.М. Титов; [гриф УМО].-М.: Форум: Инфра-М,2008.-336 с.: ил.
5. Канцедал, С.А. Алгоритмизация и программирование [Текст]: учеб. пособие для сред.проф. образования/С.А. Канцедал; [гриф УМО].-М.: Форум: Инфра-М, 2008.-352 с.: ил.
6.Могилев, А.В. Практикум по информатике [Текст]/А.В. Могилев, Н.И. Пак, Е.К. Хеннер; под ред. Е.К. Хеннера.-4-е изд., стереотип.- М.:Академия,2008.- 608 с.
7. Павловская, Т.А. Паскаль. Программирование на языке высокого уровня [Текст]: практикум: учеб. пособие для вузов/Т.А. Павловская; [гриф МО].-М.; СПб.: Питер, 2007.-317 с.: ил.
8.Павловская, Т.А. Паскаль. Программирование на языке высокого уровня [Текст]: учеб. пособие для вузов/Т.А. Павловская; [гриф УМО].-М.; СПб.[и др.]:Питер, 2009.-393 с.: ил.
9. Степанов, А.Н. Информатика [Текст]:учеб. пособие для студентов вузов/А.Н. Степанов; [гриф МО].-5-е изд.- М; СПб.[и др.]: Питер,2008.-765 с.: ил.