Уменя в программе делфи сохраненный проект не открывается. выходит лишь окно the requested file does not exist. you may create one of the following file types instead: create a new form; create a new unit; create a new textfile.

  по умолчанию delphi сохраняет новые проекты в папке c: \program files\borland\delphi7\projects, то если мы не будем выделять под него место сами, все файлы данного и всех будущих проектов будут свалены в кучу. поэтому сразу в начале работы над новым проектом командой меню file -» save all (или соответствующей кнопкой на главном окне) сохраним проект в специально для него созданную папку. создать её можно прямо в открывшемся окошке. проект в целом сохраняется в файле с именем project1. форма функционирует вместе с программой, описывающей её работу, так называемым модулем. если модулей в проекте несколько, для каждого из них delphi создаст отдельный файл, и предложит его сохранить под именем unit1, unit2 и т.д. и для файла проекта, и файлов модулей можно дать и своё, более осмысленное название.       теперь выполните команду file -» close all. попробуйте открыть файл модуля командой модуль откроется вместе с нашей формой, мы сможем нормально работать, но кнопка запуска программы окажется неактивной. поэтому сначала нужно открывать файл проекта. для этого, кстати, есть специальная команда меню file -» open   ctrl f11, и соответствующая кнопка, прямо над кнопкой запуска. теперь в окне выбора будет только один файл, файл проекта. при его открытии будет открыт и первый модуль и первая форма проекта. для нашего проекта этого достаточно. если в проекте несколько форм, их модули и формы открываем командой можно открывать модули других проектов, например, для копирования кода и т д.

1) тут в смысле надо тебе интеграл если да, то

       

program pr2; uses crt; procedure arifm(a,b: integer; var s: real); begin s: =(a+b)/2; end; procedure proiz(var a,b,c: integer); var i,m1,m2: integer; begin m1: =1; m2: =1; for i: =1 to a do m1: =m1*i; for i: =1 to b do m2: =m2*i; if m1> m2 then c: =m1 else c: =m2; end; var a,b,c: integer; s: real; beginclrscr; readln(a,b); arifm(a,b,s); writeln(s); proiz(a,b,c); writeln(c); end.

 

 

2)

program pr1; uses crt; procedure arifm(var a,b: integer; s: real); begin s: =(a+b)/2; writeln(s: 8: 3); end; var a,b: integer; s: real; beginclrscr; readln(a,b); arifm(a,b,s); end.

 

 

 

паскаль

 

 

 

1)program abc; uses crt;

var s: integer; a: array [1..10,1..10];

begin 

for i: =1 to 10 do

for j: =1 to 10 do

read(a[i,j]);

writeln;  

begin

s: =0;

for i: =1 to 10 do

for j: =1 to 10 do

if i=j then s: =s+a[i,j];

write('сумма равна',s)

end.

 

 

2) 

program abc; uses crt;

var min: integer;   a: array [1..10,1..10];  

begin 

for i: =1 to 10 do

for j: =1 to 10 do

read(a[i,j]);

writeln;  

 

  min: =a[1,1];

for i: =1 to 10 do

for j: =1 to 10 do

if a[i,j]< min then min: =a[i,j];

writeln('минимальный элемент   равен',min);

end.