блох схемы на две программы

[for_tuna]

1.program b;

uses crt;
var sred:real;
a,n,s:byte;
begin
ClrScr;
Textcolor(7);
a:=1;
sred:=0;
n:=0;
Writeln('vvedite kolichestvo posetitelei za kazdii den ');
Writeln('okoncanie vvoda - 0');

while a<>0 do
begin
n:=n+1;
Write(n:2,'den------');
Readln(a);
sred:=sred+a;
end;
Writeln('vsego posetilo ', sred:0:0 , ' chelovek za ',n-1,' dnei');
sred:=sred/(n-1);
Write('srednee kolichestvo posetitelei = ',sred:0:0);
Readln;
end.

2.

program strokovie_peremennie;
var
s:string;
i:integer;
temp:char;

begin
Write('vvedite stroku   ');
Readln(s);
for  i:=1 to length(s)-1 do
if odd(i) then
begin
temp:=s[i];
s[i]:=s[i+1];
s[i+1]:=temp;
end;
Writeln(s);
for  i:=1 to length(s)+1 do
if odd(i) then
begin

temp:=s[i];
s[i]:=s[i+1];
s[i+1]:=temp;

end;
Writeln(s);
Readln;
end.

[Базиля]

Интересно как ты не зная как написать блок схему, написал текст программы, ну да ладно я понял=)
И что ты предлагаешь, нарисовать мне блок схему тебе на листочке, сфоткать и кинуть? Попытайся сам, если что не знаешь, спрашивай

[for_tuna]

Сообщение от Базиля

Интересно как ты не зная как написать блок схему, написал текст программы, ну да ладно я понял=)
И что ты предлагаешь, нарисовать мне блок схему тебе на листочке, сфоткать и кинуть? Попытайся сам, если что не знаешь, спрашивай

ну во-первых,я -девушка,во вторых,можешь обяъснить что в каких ромбиках писать?)))

[Базиля]

ну во-первых,я -девушка,

прости, не знал
ты есть в скайпе? Или аська? Объяснил бы, было бы проще

[for_tuna]

неа((( нету....

[Базиля]

for_tuna
Ну зарегестрируйся, там же быстро В аське лучше
Просто тут запарно писать=(
А там бы все написал бы и объяснил

[for_tuna]

Сообщение от Базиля

for_tuna
Ну зарегестрируйся, там же быстро В аське лучше
Просто тут запарно писать=(
А там бы все написал бы и объяснил

вот....368164336

[Татьяна_Mystery]

помогите пожалуста!
Вычислить сумму и разность двух заданных одномерных массивов А и В
размером 5. Результат напечатать в виде двух параллельных столбцов.
вычислить сумму и разность мне удалось наверное.... а записать эти столбцы не могу ! помогите плиз!

[Татьяна_Mystery]

вот листинг этой программы
Program simple;
uses CRT;
const n=5;
var a,b,c,d:array[1..5]of real;
i:integer;
begin
writeln('ishodny massiv');
for i:=1 to n do
for i:=1 to n do
c[i]:=a[i]+b[i];
for i:=1 to n do
write(c[i],'');
end.
begin
for i:=1 to n do
for i:=1 to n do
for i:=1 to n do
d[i]:=a[i]-b[i];
for i:=1 to n do
writeln(d[i],'');
end;
readln
end.

[Stilet]

Так:
1. Для личной переписки есть личные сообщения.
2. Татьяна, одна тема- один автор.

Закрыто.