Здравствуйте! Форумчане, не за себя прошу, за девушку хорошую. Помогите пожалуйста с задачами по паскалю.
Первая задача на первой картинке. Там требуется составить еще блок-схему.
Вторая задача:
program logarifm;
uses crt;
function log( a,b,c,x:real):real;
begin
log:=a*ln(b*x)+c;
end;
var
a,b,c,x:real;
i:real;
begin
clrcsr;
write('a='); readln(a);
write('b='); readln(b);
write('c=');readln(c);
x:=9;
while x<=11 do
begin
i:=log(a,b,c,x);
writeln(i:5:6);
x:=x+0.5
end;
Readln
end.
Здесь тоже требуется составить блок-схему.
Третья задача:
program lab5;
usescrt;
var x: array[1..7] of string[8];
s:string[8];
dl, n, i,j,l:byte;
begin
writeln('vvedite 7 sloviz 5-8 bukv:');
for i:=1 to 7 do
readln(x[i]);
writeln('dlina l=');
readln(l);
clrscr;
for i:=1 to 7 do
writeln(x[i]);
for i:=1 to 7 do
begin
if length(x[i])<l then
begin
s:=x[i];
for j:=1 to length(s) do
begin
n:=pos('a',s);
if n>0 then s[n]:='d';
end;
x[i]:=s;
end;
end;
for i:=1 to 7 do
write(x[i],' ');
readln;
end.
И здесь также требуется составить блок-схему.
И последнее задание в Документе. Я обрезал его, оставил только задание, если кому-понадобится, второй файл полный.
Заранее благодарю.