Инф олимпиада doc


Массив элементтерін ендіру, шығару процедурасын құру мысалдары



бет27/66
Дата08.02.2022
өлшемі91,93 Kb.
#123795
1   ...   23   24   25   26   27   28   29   30   ...   66
Байланысты:
1544775476 (1)

12. Массив элементтерін ендіру, шығару процедурасын құру мысалдары.
а) массив элементтерінің қосындысы мен көбейтіндісін табу:
Program massiv1;
const n=5;
type mas=array[1..n] of integer;
var a,b:mas; s,p,k:integer;
Procedure inp(n:integer; var x:mas);
begin for k:=1 to n do raed(x[k]); end;
Procedure out(n:integer; var x:mas; var s,p:integer);
begin s:=0; p:=1;
for kk:=1 to n do begin s:=s+x[k];
p:=p*x[k] end end;
begin inp(n,a); out(n,a,s,p); {негізгі программа}
writeln(‘қосынды=’,s); writeln(‘көбейтінді=’,p);
inp(n,b); out(n,b,s,p); writeln(‘қосынды=’,s);
writeln(‘көбейтінді=’,p);
readln end.
13.
Program bikvur;
var
a,b,c:real; {глобальныепеременные}
y1,y2:real;
flag:boolean;
Procedure kvur(var y1,y2:real;
var flag:boolean);
var
d:real; {дискриминант – локальная переменная}
begin
d:=sqr(b)-4*a*c; {глобальные переменные а, б и с известные процедуре}
if d>=0 then
begin
flag:=true;
y1:=(-d+sqrt(d))/2/a;
y2:=(-d-sqrt(d))/2/a;
end
else flag:=false;
end; {kvur}
begin
write(‘введите значения коэффициентов а,b,c:’);
readln(a,b,c);
kvur(y1,y2, flag);
if flag then
begin
if y1>=0 then writeln(‘x1=’,sqrt(y1):10:5,’x2=’,-sqrt(y1):10:5)
else writeln (‘вещественных корней x1 и х2 нет’);
if y2 >=0 then writeln(‘x3=’,sqrt(y2):10:5,’x4=’,-sqrt(y2):10:5)
else writeln (‘вещественных корней х3 и х4 нет’)
end
else writeln (‘вещесственных корней х3 и х4 нет’)
end
else writeln(‘вешественных корней нет’);
end.
14.
Program time conversion;
var
choice:integer;
Procedure menu;
begin
writeln(‘1. преобразовать часы минуты и секунды в секунды’);
writeln(‘2. преобразовать секунды в часы, минуты и сикунды’);
writeln(‘3. завершить работу’);
writeln;
writeln(‘введите номер (1-3)’);
end;
Procedure seconds to time;
var
total seconds: longint;
hours, minutes, seconds: longint;
temp: longint;
begin
writeln(‘введите суммарное количество секунд:');
readln (total seconds);
writeln;
temp:=total seconds div 60;
seconds:=total seconds mod 60;
hours:=temp div 60;
minutes:=temp mod 60;
writeln;
writeln(total seconds,’секунд-это’);
writeln
writeln(hours,’часов,’,minutes,’минут,’,seconds,’секунд’);
writeln;
writeln(‘для продолжения работы нажмите ’);
readln;
end;
Procedure time to seconds;
var
total seconds:longint;
begin
writeln(‘введите минуты:’);
readln(minutes);
writeln;
writeln(‘введите секунды:’);
raedln(seconds);
writeln;
total seconds:=hours*3600+minutes*60+seconds;
writeln;
writeln(hours,’часов,’,minutes,’минут,’,seconds,’секунд это’,
total seconds,’секунд’);
writeln;
writeln(‘для продолжения работы нажмите ’);
readln;
end;
begin
choice:=0;
wrile choice<>3 do
begin
menu;
readln(choice);
case choice of
1:=time to seconds;
2:seconds to time;
end;
end;
end.
15.
Program strings to chars demo;
uses crt;
const
nstrings=100;
nchars=80;
type
array of strings=
array [0..nstrings] of string;
array of chars =
array[0..nchars*nstrings] of char;
var
ArSt:array of strings;
ArSt:array of chars;
i:word;
Procedure Strings to chars
(var strings: array of strings;
var chars: array of chars);
var
I, j:byte;
begin
for i:=1 to nstrings do
begin
for j:= 1 to nchars do
begin
chars [ncars*(i-1)+j]:=
strings[i][j];
end;
end;
end;
begin
ClrScr;
Randomize;
ArSt[1]:= ‘imagine there’’s no heaven’;
ArSt[2]:= ‘it’’s easy if you try’;
ArSt[3]:= ‘no hell below us’;
ArSt[4]:= ‘above us only sky’;
ArSt[5]:= ‘imagine all the people’;
ArSt[6]:= ‘living for today’;
ArSt[7]:= ‘imagine there’’s no countries’;
ArSt[8]:= ‘it isn’’t hard to do’;
ArSt[9]:= ‘nothing to kill or die for’;
ArSt[10]:= ‘and no religion too’;
ArSt[11]:= ‘imagine all the people’;
ArSt[12]:= ‘living life in peace.’;
Strings to chars (ArSt, ArCh);
i:=1;
repeat
textcolor(random (15)+1);
write(ArCh[i]);
inc(i);
until ArCh[i]=’.’;
readln;
wrile not keypressed do
begin
delay (300);
ClrScr;
i:=1;
repeat
textcolor(random (15)+1);
gotoxy (random (40), random(20));
write(ArCh[i]);
inc(i);
until ArCh[i]=’.’;
end;
readln;
ClScr;
i:=1;
repeat
textColor (random (15)+1);
write (ArCh[i]);
inc (i);
until ArCh [i]=’.’;
writeln;
writeln (‘для завершения нажмите :’);
readln;
end.


Достарыңызбен бөлісу:
1   ...   23   24   25   26   27   28   29   30   ...   66




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет