type
Mas=array [1..8] of integer;
var
L,M,N:mas;
i,j:integer;
s,s1,z:integer;
begin
for i:=1 to 8 do begin
write('Введите L[',i,']: ');
read(L[i]);
s:=s+l[i]*l[i];
end;
for j:=1 to 5 do begin
write('введите M[',j,'] И N[',j,]: ');
read(m[j[],n[j]);
s1:=s1+n[j]+m[j];
end;
z:=s/s1;
end.
А вот это слабо? На Паскале
1.Напишите программу нахождения всех связных компонент неориентированного графа.
2.Напишите программу реализации очередей с двусторонним доступом посредством курсоров. Очередь с двусторонним доступом – это список, в котором добавлять и удалять элементы можно с обоих концов.
Я серьезно! надо до конца семестра сделать!
С каких это пор нортон стал языком программирования???
Мне всетки кажется, что ему нужен не паскаль, а фортран, тк фортран запускается через нортон или волков коммандеры.
да те надо на ассемблере, вот код
что то вроде этого
.model tiny
.code
org 100h
start:
mov cx,266 ; вывести 256 символов.
mov dl,32 ; первый символ — с кодом 32.
mov ah,2
cloop: int 21h
inc dl
test dl,0Fh
jnz continue_loop
push dx
mov dl,0Dh
int 21h
mov dl,0Ah
int 21h
pop dx
continue_loop:
loop cloop
ret
end start
компилирвать так
tasm filename.asm
tlink /x/t filename.obj
вроде сом файл пулучиться но на ехе там не долго менять
mb na pascale ?
![SPo1LeR[oldschool]: Наши бронзовые герои 2008](/images/users/gallery/526/176041_s.jpg)
