Uses crt;
Var X,y,a,b:real;
begin
writeln('input x');
readln(x);
writeln('input a');
readln(a);
writeln('input b');
readln(b);
if(x<1) then begin
y:=ln(x)+2*x*x;
writeln('y=', y);
end;
if(x=1) then begin
y:=2*a*cos(x)+3*a;
writeln('y=', y);
end;
if(x>1) then begin
y:=(a*x+b)/(x*x-1);
writeln('y=', y);
end;
readln;
end.
Звіт №4
Тема:Опис та реалізація найпростіших циклічних програм.
Мета:Навчитись реалізовувати найпростіші циклічні програми.
Хід роботи
Uses crt;
Var I,f,n,s:integer;
y:real;
begin
writeln('input n');
readln(n);
if(n=4) then
writeln('delenie na zero');
if(n=4) then
else
if(n<0) then
writelen('vidome chislo)
else
begin
s:=1;
for i:=1 to n do
s"=s*1;
x:=s*1;
y:=s/(sqrt(n)-2);
writelen('y=,'y);
end;
readln;
end.
Знайти факторіал числа.
uses crt;
Var n,s,I,f:integer;
begin
writeln('input n');
readln(n);
if(n=0) then
writeln('o!=1')
else
if(n<0) then
writeln('Vidome chislo')
else
begin
s:=1;
for i:=1 to n do
s:=s*i;
writeln('n!=',s);
end;
readln;
end.
Звіт №5
Тема:Складання та реалізація програм опрацювання з використанням рядкових величин(string).
Мета:Навчитися складати та реалізовувати програми з використанням процедур та функцій опрацювання рядкових величин.
Хід роботи
1. Написати программу,яка замінює в реченні «Мова програмування на Turbo Pascal» словосполучення «мова програмуваня» на «Програмування мовою»
uses crt;
var s,s1,s2:string;
n:integer;
begin
writelv('Vvedite stroky:');
readln(s);
writeln('Vvedite zaminaemy chast:');
readln(s1);
writeln('Vvedite zaminaucheu chast:');
readln(s2);
n:=Pos(s1,s);
while n>0 do
begin
Delete(s,n,Length(s1));
Insert(s2,s,n);
n:=Pos(s1,s);
end;
writeln(s);
readln;
end.
2. Ввести довільний текст.У даному тексті знайти і надрукувати всі символи,які записані після першого символу.
uses crt;
var s,s1,s2:string;
i,k:integer;
c:char;
begin
clrscr;
write('Input original string: ');readln(s);
write('Input necessary symbol,which you want to change: ');readln(c);
write('Input suquence: ');readln(s1);
for i:=1 to length(s)+1 do begin
if copy(s,i,1)=c then
begin
delete(s,i,1);
insert(s1,s,i);
end;
end;
write('Modified string: ',s);
readln;
end.
Звіт №6
Тема: Одновимірні та багато вимірні масиви.
Мета:Навчитися та закріпити знання про написання програм з масивами.
Хід роботи
1. Скласти програму для роздрукував елементів матриці 3/4. В кожному рядку друкувати елементи,які належать до даного рядка таблиці.Якщо в рядку немає додатніх елементів,то він повинен бути порожнім.
uses crt;
Var a:array[1..3,1..4] of real;
I,j:integer;
begin
writeln('input matrikc');
readln;
for i:=1 to 3 do
begin
for j:=1 to 4 do
read(A[i,j]);
readln;
end;
writeln('vid');
readln;
for i:=1 to 3 do
begin
for j:=1 to 4 do
write(A[i,j]:5);
readln;
end;
writeln('vca tabliza:');
for i:=1 to 3 do
begin
for j:=1 to 4 do
if A[i,j]>0 then write(A[i,j]:5)
else
write(' ');
readln;
end;
end.
2. Програма,яка буде рахувати суму одномірних масивів.
uses crt;
var x,y,y1,a,b:real;
begin
clrscr;
writeln('input x');
readln(x);
writeln('input a');
readln(a);
writeln('input b');
readln(b);
if(x>1) then begin
y1:=ln(x);
y:=y1+2*x*x;
writeln('y=',y);
end;
readln;
end.
Звіт №7
Тема: Метод перестановки, «бульбашки» та шукання мінімального значення.
Мета:Отримати навики про методи перестановки «бульбашки» та шукання мінімального значення..