Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.01.2011, 03:30   #1
Damirel
Новичок
Джуниор
 
Регистрация: 12.01.2011
Сообщений: 1
По умолчанию Блок схемы!

Есть несколько прог нужно к ним сделатьб блок схемы хэлп плииз!
Надеюсь то что коментарии на латышском не сильно помешают (((

var
f, g: text;
a: string;
c: char;
b, i, x, y, z, err: integer;
begin
writeln('programma saskaita ciparu summu faila.');
assign(f,'C:\New\teksts.txt');
reset(f);
assign(g,'C:\New\cits.txt');
rewrite(g);
x:=0;
y:=0;
while (eof(f)=false) do begin
x:=0;
readln(f,a);
b:=length(a);
for i:=1 to b do begin
c:=a[i];
val(c,z,err);
if (err=0) then begin
x:=x+z;
end;
end;
y:=y+x;
write(g,x,' ');
write(x,' ');
end;
writeln(g,' ');
writeln(g,'kopa ciparu summa ir ',y);
writeln('');
writeln('kopa ciparu summa ir ',y);
close(f);
close(g);
readln;
end.




2.
{ Laboratijas darbs #4 }
const
num = 10; {masiva izmers}
var
i, j, s, k: integer; {darba imdeksi}
wrk: integer;
ms: array[1..num, 1..num] of integer; {divdimensiju masivs}
begin
writeln('Programma ciklu operatoru un masivu apgusanai');
writeln;

{sakotneja aizpildisana}
for i:=1 to num do
for j:=1 to num do
ms[i,j]:=0;

{masiva aizpildisana atbilstosi uzdevumam}
{si programmas dala ir jamodifice atbilstosi savam uzdevumam}
wrk:=1;
for i := 3 to 8 do begin {cikls pa rindam}
for j := 3 to 8 do begin {cikls pa kolonam}
if not (((i > 4) and (i < 7)) and ((j > 4) and (j < 7))) then begin
ms[i,j] := wrk;
wrk := wrk + 1;
end;
end;
end;

{masiva vertibu izvadisana (nemodificet)}
for i := 1 to num do begin
writeln;
for j := 1 to num do
write(ms[i,j]:5)
end;

writeln;
writeln;
writeln('Nospied Enter');
readln;
end.
Damirel вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
блок-схемы Lenka455 Помощь студентам 2 23.12.2010 18:03
блок-схемы( Ankas Помощь студентам 1 10.05.2010 17:08
блок схемы Defender42 Помощь студентам 4 24.12.2009 13:34
блок схемы. Artimbulidor Помощь студентам 0 10.06.2009 19:03