за сотку руб

[Милашка:)]

надо описать строчки в 4 программах и составить блок схемы....
программы сделаны

Че много предлагаю?!
мне кажется за блок схему с готовой программы 25р достаточно

[Mad_Cat]

Че много предлагаю?!

а язык указать?
программы выложи!

[Милашка:)]

BP7.
1-
uses crt;
var a:array[1..100,1..100] of integer;
m,i,j,s:integer;

begin

clrscr;
writeln('vvedite rasmernost matricy');
readln(m);
randomize;

for i:=1 to m do
for j:=1 to m do
begin
a[i,j]:=random(10)-4;
write(a[i,j]:3);
if j mod 2=0 then s:=s+a[i,j];
end;
writeln;
writeln;
writeln('summa elementov chetnih stolbcov',s);

if s>0 then begin
for i:=1 to m do
for j:=1 to m do
if i mod 2 <>0 then begin
a[i,j]:=sqr(a[i,j]);
write(a[i,j]:3);
end
end
else if s<0 then begin
for i:=1 to m do
for j:=1 to m do
if j=m+1-i then begin
a[i,j]:=2+(a[i,j]);
write(a[i,j]:3);
end
end;
readln;
end.
2-
Program a;
uses crt;
var
S:string;
begin
clrscr;
writeln('vvedite text');
readln(S);
if pos(':',S)=0 then
begin
writeln('":"not find');
writeln(S);
readkey;
exit;
end;
S:=copy(S,pos(':',S)+1,length(S));
if pos(':',S)<>0 then
S:=copy(S,1,pos(':',S)-1);
writeln(S);
readkey;
end.
3-
Var maxs,s,s2:string;f:file of char;c:char;w:boolean; maxe,e,i:integer;
Begin
Assign(f,'qwerty.txt');reset(f);
w:=false;maxs:=' '; maxe:=0;s2:=' ';
while not eof(f) do begin
read(f,c);
while(not eof(f)) and(c<>' ') do begin s:=s+c;read(f,c);end;
for i:=1 to length(S) do
if pos(s[i],'eyuoia')<>0 then inc(e);
if e>maxe then begin maxe:=e;s2:=s;end;
if length(maxs)<length(s) then maxs:=s;s:='';
while(not eof(f))and(c='')do begin read(f,c);end;
end;
close(f);
writeln('samoe dlinoe slovo=',maxs);
writeln('slogov v slove=',s2);
readln;
end.
4-
Program m1;
var n,k:longint;
begin
writeln('vvod chisla');
readln(n);
while(n<>0)do
begin
if (n mod 10<>0) and (n mod 10<>5) then
k:=k*10+n mod 10;
n:=n div 10;
end;
while (k<>0) do
begin
n:=n*10+k mod 10;
k:=k div 10;
end;
writeln('chislo=',n);
readln;
end.

[Smitt&Wesson]

Здравствуйте НОВОЯВЛЕННЫЙ.
Интересно, Для кого создан поиск и журнал нашего форума?
Лень мозгами работать?
Если нужна помощь, хотя-бы правила читайте, прежде чем регериться и создавать темы.
Эти фразы звучат в этом разделе красной линией:

"КОД В СТУДИЮ"!
Если нет своего:
"ВО ФРИЛАНС"!

Есть ещё раздел:
"В помощь начинающим".

Был бы я модером, тему закрыл-бы.

Писал не рассчитывая на быстрый ответ, но молодца! Быстро среагировал. Глянем.

[Mad_Cat]

сюда зарплату
1)

uses crt;
var a:array[1..100,1..100] of integer;
m,i,j,s:integer;
begin
clrscr;       //очистка экрана
writeln('vvedite rasmernost matricy');
readln(m);
randomize;  // активация случайных чисел
for i:=1 to m do begin
for j:=1 to m do
begin
a[i,j]:=random(10)-4;  // заполняем матрицу случайными числами
write(a[i,j]:3);     // выводим ее
if j mod 2=0 then s:=s+a[i,j]; //если столбец четный прибавляем значение элементов к сумме
end;
writeln;
end;
writeln;
writeln('summa elementov chetnih stolbcov',s); // выводим сумму столбцов
if s>0 then begin      // если сумма >0
for i:=1 to m do begin
for j:=1 to m do
if i mod 2 <>0 then begin  // элементы нечетных строк
a[i,j]:=sqr(a[i,j]);     // заменяем их квадратами
write(a[i,j]:3);        // выводим
end;
writeln;end;
end
else if s<0 then begin //если сумма <0
for i:=1 to m do begin
for j:=1 to m do begin
if j=m+1-i then        // к элементам побочной диагонали
a[i,j]:=2+(a[i,j]);    // прибавляем 2
write(a[i,j]:3);       // выводим
end;
writeln;
end;
end;
readln;
end.

2)

Program a;
uses crt;
var
S:string;
begin
clrscr;
writeln('vvedite text');
readln(S);  // ввод тексТа
if pos(':',S)=0 then  // если в строке нет ":"
begin
writeln('":"not find'); //выводим сообщение
writeln(S);             // выводим строку
readkey;
exit;
end;
S:=copy(S,pos(':',S)+1,length(S)); // если есть  то копируем в s все символы от : до конца строки
if pos(':',S)<>0 then            // если в оставшейся строке есть ":"
S:=copy(S,1,pos(':',S)-1);    // копируем в s все символы от начала строки до ":" до
writeln(S);   // выводим строку
readkey;     // ждем нажатия клавиши любой
end.

4)

Program m1;
var n,k:longint;
begin
writeln('vvod chisla');
readln(n);  // вводим число
while(n<>0)do // пока это число <>0
begin
if (n mod 10<>0) and (n mod 10<>5) then  //если последняя цифра не 0 и не 5
k:=k*10+n mod 10; // к умножаем на 10 и прибавляем последнюю цифру от n
n:=n div 10;      //n делим нацело на 10
end;
while (k<>0) do   // пока k <>0
begin
n:=n*10+k mod 10; //n умножаем на 10 и прибавляем последнюю цифру от k
k:=k div 10;      //k делим нацело на 10
end;
writeln('chislo=',n);  // выводим получившееся число
readln;
end.

[VadikV]

Сделаю блок-схемы за 10 минут