Cherreшенка

Почему-то вообще не получается.Никак не могу вникнуть....помогите,если не сложно.Для Вас же это нетрудно и быстро должно быть...пожалуйста,очень нужно...

1.
Program Factorial;
uses Crt;
var
a,b,c:real;
N:Integer;
i:integer;
X:integer;
begin
clrscr;
Write('Aaaaeoa cia?aiea X:');
Readln(x);
Write('Aaaaeoa cia?aiea N:');
Readln(n);
a:=1;
For i:=1 to N do
a:=a*x;
Writeln('?acoeuoao:',a);
b:=1;
For i:=1 to N do
b:=b*i;
Writeln('?acoeuoao:',b);
c:=a/b;
writeln('?acoeuoao:',c);
end.


2.
program summa;
const
N =3;
Type
matrix = Array[1..n,1..n] of Integer;
var
A,B,C : matrix;
i,j: Integer;

procedure Fill(var M:Matrix);
var i,j:integer;
begin
for i:=1 to N do
for j:=1 to N do
M[i,j]:=random(50);
end;

procedure vivod(M:matrix);
var
i,j:Integer;
begin
writeln;
for i:=1 to n do
begin
for j:=1 to N do
write(M[i,j]:4);
writeln;
end;
end;

begin
randomize;
Fill(A);vivod(a);
Fill(B);vivod(b);
for i:=1 to N do
for j:=1 to N do
C[i,j]:= A[i,j]+B[i,j];
vivod(c);
end.

3.
Program func;
Const
Sp=' ';
VAR
S:String;
i:Byte;
BEGIN
WriteLn('Enter the string containing Tabs:');
ReadLn(S);
i:=0;
Repeat
Inc(i);
If Ord(S[i])=9 then
begin
Delete(S,i,1);
Insert(Sp,S,i);
Inc(i,2);
end;
Until i>=Length(S);
WriteLn(S);
ReadLn;
END.

4.
while (i<=Length(s)) and (s[i] in delim) do inc(i);
i1:=i;
i2:=i;
while (i<=Length(s)) and (not(s[i] in delim)) do
begin
inc(i);
inc(i2);
end;
If i2>i1 then
begin
str:=Copy(stmp,i1,i2-i1);
Delete(stmp,i1,i2-i1);
for j:=1 to Length(str) do
for k:=1 to Length(str)-j do
if Ord(str[k])>Ord(str[k+1]) then
begin
min:=str[k+1];
str[k+1]:=str[k];
str[k]:=min;
end;
Insert(str,stmp,i1);
end;
end;

writeln('Result:');
writeln(stmp);
readln;
end.

AlexZir

Подсказка вам:
типы переменных real=вещ, integer=цел
циклические конструкции:
for <> to <> do
нц для <> от <> до <> шаг <>
серия
кц
массив=таблица, например, вещ таб а[10]
length()=длин()

read() = ввод ()
write()=вывод()

__________________
Убить всех человеков!

Cherreшенка

спасиииибо!!!!!
просто так трудно где-либо найти просто соотношение школьного языка и паскаля

Vladimir_S

Да... а мне, видать, пора на полное списание: про школьный язык впервые слышу. Совсем от жизни отстал...

Lotan

школьный язык= псевдокод) так что о псевдокоде ты не мог не слышать

Vladimir_S

Сам удивляюсь - а вот поди ж ты... не слышал.

Cherreшенка

дада.Псевдокод.

AlexZir

Что-то вы тут фигню-с сморозили

Псевдокод - представление алгоритма с использованием дискретных семантических конструкций на естественном (читай - разговорном) языке.

Школьный алгоритмический язык основывается на алголоподобном алгоритмическом языке с русскими операторами, разработанном в середине 80-х командой Ершова. Изначально среда программирования на ШАЯ называлась E-86, реализация была включена в комплекс Роботландия, также существовала версия KUMIR для УКНЦ, она поставлялась в составе КУВТ в школы, после проект был надолго заброшен. В настоящее время поддерживается НИИСИ и доступен по ссылкам КУМир (комплекс учебных миров) и http://lpm.org.ru/wordpress/?page_id=5. В настоящее время язык относится к free-soft и существуют версии под наиболее распространенные операционные системы, в том числе и под Linux. Современная реализация написана на языке C++ и QT и имеет встроенные средства для перевода листинга с алгоритмического языка на C++ и компиляции программы.

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

Кстати, скачайте систему КУМир и справочку почитайте, там много полезного и очень даже развернуто все команды и конструкции описаны

__________________
Убить всех человеков!