Другие языки программирования и технологии

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

1) на Pascal:
var
t,i,j:integer;
a:array[1..4]of integer;
begin
for i:=1 to 4 do
begin
write('Vvedite ',i,'-i 4islo: ');
readln(a);
end;
for i:=2 to 4 do
for j:=4 downto i do
if a[j-1]>a[j] then
begin
t:=a[j-1];
a[j-1]:=a[j];
a[j]:=t;
end;
writeln('Raspolagaem 4isla v poryadke vozrastaniya:');
for i:=1 to 4 do
writeln(a);
readln;
end.

2) на С:
#include <stdio.h>
#include <conio.h>
void main(void){
int n,a,b,c,d;
printf("\nVvedite 4x-znachnoe chislo n: ");
scanf("%i", &n);
a=n/1000;
b=(n-a*1000)/100;
c=(n-a*1000-b*100)/10;
d=n-a*1000-b*100-c*10;
if (a+b==c+d) printf("true");
else printf("false");
getch();
};
Павел Чудоранс
Павел Чудоранс
4 307
Лучший ответ
Оно тебе надо?
С такими-то ногами?!
ответ на 1й вопрос

тут пример для 3 чисел, добавить 4ое - очень легко и понятно.
Блок-схему рисовать долго.
А вот программу могу дать на С или паскале.
Вот пример на С (задание библиотек и прочего опущу ).
1 прога:
{
int i,t,A[4]={a,b,c,d};
for (i=0;i<4;i++)
if (A>A[i+1])
{
t=A;
A=A[i+1];
A=t;
}
}
Вот примерно вторая прога:
{
int a=xxxx; *//ну это само число//*
if ((div(a,100)/100)==mod(a,div(a,100))
printf("первая пара цифр равна последней");
}
Это только примерный текст.
Не программа еще (нету многих составляющих, тех же библиотек) но в принципе если кое-что добавить и изменить то можно использовать) (тут уж зависит от языка программирования, который требуется).
2 -- на С ++ а вообще алгол такой же будет =)
#include<iostream>
using namespace std;
int main()
{
int n;
cin>>n;
for(int i=0;i<4;i++)
{
A=n;n/=10;

}
if((A[0]+A[1])==(A[2]+A[3]))
cout<<"yes"<<endl;}>>A[j]) {int tmp=A;A=A[j];A[j]=tmp;}
}
}

ВСЁ!!!))
А перввый-это пузырьковая сортировка-google в помощ