8 программ в оду.АБЦ

[min@y™]

Так понятнее?

Да.
Что не работает-то?

[dimka123]

Сообщение от min@y™

Я и не собирался ничо путать. И про АБЦ не говорил, хотя и на нём сбацать что-то такое можно.

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

разработать модуль пользователя, в котором должны содержаться в виде процедур и функций выполненные ранее работы 1-шт. . Разработанный модуль должен быть подключен в программу проверки, которая должна в интерактивном режиме вызывать на выполнение любую из запрашиваемых лабораторных работ, после выполнения каждой вызываемой программы необходимо обеспечить возврат в интерактив с возможностью генерального выхода из программы.

[dimka123]

Сообщение от Stilet

Первая программа

unit1
interface
 pro1;
implementaton
 pro1;

Так понятнее?

только застрял в "pro" после interface ожидался uses; а если вбить uses crt ,то pro1 уже будет являться константой?
или во всех случаях с pro , uses pro ,но это же будет другой ненайденный модуль,или что то неизвестное .... или это процедуры с функциями I noob ((

[min@y™]

unit unit1;

interface

procedure Laba1;

implementation

procedure Laba1;
begin
  { insert your shit-code here }
end;

end.

У вас там в вашем учебном заведении телесные наказания не применяются? Пора вводить розги и электрошок за незнание матчасти.

[dimka123]

МЕТОД закрытых глаз,или дуракам везет

Модуль  для двух программ

Unit VV;

Interface
был тут uses crt 
var T:array [1..50,1..50] of integer; //объявляем матрицу
    n,m:byte;
  procedure vvod(var m,n:byte);
  procedure Vyvod(var m,n:byte);
  procedure fu(r: integer; var f:integer);

Implementation

procedure fu(r: integer; var f:integer);	{заголовок процедуры fu}
var i: integer;
begin
f:=1;
for i:=1 to r do f:=f*i;
end; 

procedure vvod(var m,n:byte);
var i,j:integer;
Begin
write('m= ');
readln(m);
write('n= ');
readln(n);
For i:=1 to m do
 begin
   for j:=1 to n do
    begin
       T[i,j]:=random(20); //ввод автоматический
     end;
 end;
end;
//процедура вывода матрицы
procedure Vyvod(var m,n:byte);
var i,j:integer;
begin
for i:=1 to m do
  begin
    for j:=1 to n do
    write(T[i,j]:4);
    writeln;
  end;
end;
end.

Программа

uses crt,VV;

var 
 T:array [1..50,1..50] of integer; //объявляем матрицу
    n,m:byte;
r, fuctorial: integer;
k:integer;
begin;
writeln('1- вывод массива');
writeln('2-нахождение факториала ');
readln(k);

case k of

1:Begin {выводит на экран  массив}
clrscr;
randomize;
vvod(m,n);
vyvod(m,n);
readln;
end;

2: begin{ подчет факториала}                                                        
Write(' r=');
readln(r);
fu(r,fuctorial);                                        
write( r,'!=',fuctorial) 
end
else
writeln ('ERROR');
end;
writeln('рузультат',k);
end.

и тупо удалил uses crt из модуля,и прога работает)
XDD.jpg

[dimka123]

Сообщение от min@y™

[CODE]

У вас там в вашем учебном заведении телесные наказания не применяются? Пора вводить розги и электрошок за незнание матчасти.

в учебном заведении делалось все на "отвали" . поэтому разбираюсь сам,ну или через такие полезные форумы ,как этот

[min@y™]

поэтому разбираюсь сам

Покури лучше офсайт паскаль-абц, там вся матчасть разжёвана и 100500 примеров.