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();
};
Другие языки программирования и технологии
1.Составьте блок-схему алгоритма и программу расположения четырех чисел в порядке возрастания.
Оно тебе надо?
С такими-то ногами?!
С такими-то ногами?!
Блок-схему рисовать долго.
А вот программу могу дать на С или паскале.
Вот пример на С (задание библиотек и прочего опущу ).
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("первая пара цифр равна последней");
}
Это только примерный текст.
Не программа еще (нету многих составляющих, тех же библиотек) но в принципе если кое-что добавить и изменить то можно использовать) (тут уж зависит от языка программирования, который требуется).
А вот программу могу дать на С или паскале.
Вот пример на С (задание библиотек и прочего опущу ).
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 в помощ
#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 в помощ
Похожие вопросы
- Нужна программа для рисования блок-схем алгоритмов
- Помогите составить блок схему. Данны целые числа n, k (n>=k>=0). Вычислить n(n-1)*(n-2)... (n-k-1)/k!
- Написать программу в паскале и составить блок схему
- СОЗДАНИЕ ПРОГРАММ С ЦИКЛИЧЕСКОЙ СТРУКТУРОЙ Составьте блок-схему и программу на языке VBA, которая проверяет: (СРОЧНО!)
- мне нужно начертить блок схему алгоритма Вижинера или хоть что-то про этот алгоритм узнать
- Составить блок-схему вычислительного процесса и написать программу на любом алгоритмическом языке высокого уровня.
- даны 3 разл целых числа a,b,c используя оператор GOTO составить программу для ввода чисел в порядке убывания
- Как сделать ряд чисел в порядке возрастания?
- Помогите составить блок-схему для Turbo Basic
- Помогите пожалуйста составить программу и блок-схему (какой-либо один из трех вариантов)