Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
If(vid inK[i]) then
|
|
Begin
randomize;
for i:=1 to n do
begin for j:=1 to m do
Begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
Begin
max:=a[1,1];
end;
for i:=1 to n do
Begin
if not a[i,1] mod 2=0 then
nech:=a[i,1];
end;
for i:=1 to n do
Begin
Ifnech>max then
max:=nech;
end;
for i:=1 to n do
writeln ('max=',max);
end.
Лабораторная работа №3.
var n,k:integer;
begin write('vvedite n'); readln(n);
k:=n div 4;
Casen mod4 of
0: writeln(n,'=4*', k);
1: writeln(n,'=4*',k,'+1');
2: writeln(n,'=4*',k,'+2');
3: writeln(n,'=4*',k,'+3');
end;
end.
Лабораторная работа №11.
uses crt;
var S:string;
k,j,i:integer; mn: set of char;
Begin
clrscr;
writeln ('vvediye stroky');
read (s); k:=0; i:=1;
while i<=length(s) do
Begin
j:=1;
while j<=length(s) do
Begin
if (s[i]=s[j]) and (i<>j) then
delete (s,j,1) else
j:=j+1;
end;
i:=i+1;
end;
writeln ('kol=',length(s));
end.
Лабораторная работа №14.
Uses crt;
Var
a: array [1..100] of string;
n,i,j:integer;
odn: array [1..100] of integer;
Begin
clrscr;
write('Vvedite kolvo uchenikov '); readln(n);
for i:=1 to n do
Begin
write('Vvedite familiyu i initiali uchenika #',i,' ');
readln(a[i]);
end;
for i:=1 to n do
Begin
odn[i]:=0;
for j:=1 to n do
Begin
Ifi<>j then
Begin
if copy(a[i],1,length(a[i])-5)=copy(a[j],1,length(a[j])-5) then
odn[i]:=odn[i]+1;
end;
end;
end;
writeln;
for i:=1 to n do
Begin
write('Familiya: ',a[i]);
write(' odnofamilci:',odn[i]);
writeln;
end;
readln
end.
Лабораторная работа №16.
Program m1w;
uses crt;
Type
Cars=(Ford, Audi, Mars, Opel, Volk, BMW);
CarsSet= set of cars;
Const
CarsStr: array [Ford..BMW] of string[12]=
('Форд', 'Ауди', 'Мерседес', 'Опель', 'Вольксваген', 'БМВ');
Var
i,t,N: integer;
K: array [1..3] of CarsSet;
m1, m2, m3: CarsSet;
vid:cars;
procedure zapoln (var K: CarsSet);
Var
vid: Cars;
Begin
K:=[];
for vid:=Ford to BMW do
Ifrandom(2)>0 then
K:=K+[vid]
end;
procedure Vivod (K: CarsSet);
Var
vid: Cars;
Begin
for vid:=Ford to BMW do
If(vid inK) then
write(carsStr[vid], ' ');
writeln;
end;
Begin
clrscr;
randomize;
writeln;
zapoln(K[1]);
zapoln(K[2]);
zapoln(K[3]);
m1:=K[1];
m2:=K[2]-K[1];
m3:=[];
for vid:=Ford to BMW do
Begin
t:=0;
for i:=1 to 3 do
if(vid inK[i]) then
inc(t);
if t=2 then
m3:=[vid]-K[1]-K[2]-K[3];
end;
writeln('Марки машин, доставленные во все страны');
Vivod(m1);
writeln('Марки машин доставленные в некоторые из стран');
Vivod(m2);
writeln('Марки машин недоставленные ни в одну страну');
Vivod(m3);
readln;
End.
Лабораторная работа №13.
Function Kod(s:string):string;
Var i,d:integer;
Begin
result:=s;
d:=length(result);
For i:=1 to d do begin
if (result[i]>='р') and (result[i]<='я') then result[i]:=chr(ord(s[i])-16)
else if (result[i]>='А') and (result[i]<='п') then result[i]:=chr(ord(s[i])-64)
end;
end;
Type Mas= array [1..10] of array [1..10] of char;
Procedure Vvod(out a:mas);
Var i,j:integer; n,m:integer;
Begin
writeln ('vvedite dlinu proizvolbnoi stroki');
readln (n,m);
For i:=1 to n do
for j:= 1 to m do
Begin
write ('bykva '); readln(A[i,j])
end;
end;
procedure Proverka(var a: mas; s: string);
var i, j,n,m: integer;
h: integer;
sAllLetters: string;
Mozno: boolean;
Begin
sAllLetters:= '';
for i:= 1 to n do
for j:= 1 to m do
sAllLetters:= sAllLetters + a[i,j];
Mozno:= true;
for h:= 1 to length(s) do
Begin
if Pos(s[h], sAllLetters)>0 then Delete(sAllLetters, Pos(s[h], sAllLetters), 1)
Date: 2015-12-12; view: 281; Нарушение авторских прав