следующая тема »

[25 Апрель 2024, 05:28:14]

Новости, реклама:

[25 Апрель 2024, 05:28:14]

Новости, реклама:

[Cumkys]

2 задачи на Паскале... к ним нуны блок-схемы...
1)

var m,n:real;
    pa,pb,at,af,bt,bf,k,i,j,ai,bi,max:longint;
begin
ai:=0; bi:=0; max:=0;
write('M= kol-vo 4asov na tokarnom stanke ='); readln(m);
write('N= kol-vo na frezernom stanke = '); readln(n);
write('pa= pribil ot detalei A ='); readln(pa);
if (pa)<0 then halt(0);
write('pb= pribil ot detalei B ='); readln(pb);
if(pb)<0 then halt(0);
write('at= kol-vo 4asov na tokarnom stanke dlya A  ='); readln(at);
if(at)<0 then halt(0);
write('af= kol-vo 4asov na frezernom stanke dlya A  ='); readln(af);
if(af)or(bt)or(bf)<0 then halt(0);
write('bt= kol-vo 4asov na tokarnom stanke dlya B  ='); readln(bt);
if(bt)<0 then halt(0);
write('bf= kol-vo 4asov na frezernom stanke dlya B  ='); readln(bf);
if(bf)<0 then halt(0);
if trunc(m/at)<trunc(n/af) then k:=trunc(m/at) else k:=trunc(n/af);
for i:=0 to k do begin
if trunc((m-i*at)/bt)<trunc((n-i*af)/bf) then
j:=trunc((m-i*at)/bt) else j:=trunc((n-i*af)/bf);
if i*pa+j*pb>max then begin
max:=i*pa+j*pb;
ai:=i;
bi:=j; end;
end;
writeln('Nyzno vupyskat" ',ai,' detalej A');
writeln('Nyzno vupyskat" ',bi,' detalej B');
writeln('Maksimalnaja pribul" sostavit : ',max);
readln
end.

2) program deti;
 uses opcrt;
 const n=10;
 var a:array [1..n] of integer;
 i,k:integer;
 begin
 clrscr;
 k:=0;
 for i:=1 to n do
 begin
 writeln('vvedite cghislo rogdenia ',i,' uchenika');
 readln(a);
 if (a<=0) or (a>31) then begin  writeln('error data');delay(100);sound(100);readln;delay(100);nosound;halt(0);end;
 end;
 for i:=1 to n do
 write(a,',');writeln;
 i:=0;
 while k=0 do
 begin i:=i+1;
 if i>n-1 then begin writeln('net takich detey');delay(100);sound(100);readln;nosound;halt(0); end;
 if (a-a[i+1]=1) or (a-a[i+1]=-1) then begin writeln('pervaia para');
writeln(i);writeln(i+1);readln;
 nosound;halt(0); end;
 end;

 end.

[meermitka]

Cumka Тебе на когда это нужно?

[Lanser]

 Могу поделиться статьей по блок-схемам, пиши в личку.

[meermitka]

А если это условие i*pa+j*pb>max не выполняется то, что должно быть? Или это условие всегда выполняется?  

Эти задачи можно было бы по-другому написать.

[meermitka]

while k=0 do
 begin i:=i+1;
 if i>n-1 then begin writeln('net takich detey');delay(100);sound(100);readln;nosound;halt(0); end;
 if (a-a[i+1]=1) or (a-a[i+1]=-1) then begin writeln('pervaia para');
writeln(i);writeln(i+1);readln;
 nosound;halt(0); end;
 end;

k=0 будет всегда. k нигде в программе не изменяется.
В начале программы присваивается k=0. Зачем тогда писать цикл while?

[LORD-BY]

FCEditor - сама рисует, только введи код или укажи путь к файлу *.pas.
Найдешь кряк кликни в личку.      

[meermitka]

FCEditor - сама рисует, только введи код или укажи путь к файлу *.pas.
Найдешь кряк кликни в личку.      

Не очень хорошая прога. Мне не нравиться. Я лучше сама напишу схему. Да и ошибки могут быть.

[LORD-BY]

Если для начала, то вполне пойдет. А вообще зачем они нуны?  

[VooDoo]

нужны
придёшь к понятиям бизнес процессов, всяческих flow диаграмм, поймёшь зачем они нужны.
не в таком виде конечно, но общего много.

[maxposedon]

нужны
придёшь к понятиям бизнес процессов, всяческих flow диаграмм, поймёшь зачем они нужны.
не в таком виде конечно, но общего много.

маленькая поправочка, диаграммы(uml и тд и тп)
если и нужны то до начала программирования,
или чтобы объяснить соседу Васе, как ты собираешься это делать.
После - нафиг, нафиг.

[X-Penguin]

не уходите от темы

[Cumkys]

во-во! кто там может нарисовать??
быстренько берем карандаш и ручку с линейкой и чертим)))
а потом мне на почту высылаем))
заранее благодарен!

[Гонзих]

FCEditor - сама рисует, только введи код или укажи путь к файлу *.pas.
Найдешь кряк кликни в личку.      

Не очень хорошая прога. Мне не нравиться. Я лучше сама напишу схему. Да и ошибки могут быть.

Ошибка там только одна может быть: блоки read(ln) write(ln) он рисует как простой оператор, а надо как ввод/вывод, в осталньом идеально, я на курсовой (Тетрис) рисовал ету ахинею, всё супер.

З.Ы. Кто найдет кряк на FCEditor мне тож в личку сцылочку или инфу какую-нить киньте по теме)

[Гонзих]

Можно попробовать нарисовать блок-схему вот ЕТИМ case средством, программка гуд, но слегка кривоватая...  

[Гонзих]

Крякнутый Экзешник Fceditor

[meermitka]

Надо будет как-нить попробовать запрограммировать, чтобы по коду проги рисовала блок-схемы. Это посути не сложно. Только нужно время.

[LORD-BY]

Попробуй. Оценим.  

[Leibоnik]

Visustin в помощь