Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 20.04.2012
Сообщений: 9
1

блок схемы

26.04.2012, 14:45. Просмотров 344. Ответов 0
Метки нет (Все метки)

кто нибудь сделайте плиз блок схемы
№2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program trapeziy;
var h,ug,a,b,x,s,p:real;
begin
write('Ввидете а ');readln(a);
write('Введите b ');readln(b);
write('Введите угол ');readln (ug);
x:=(a-b)/2;
h:=x*sin(ug)/cos(ug);
s:=(a+b)*(a-b)/4*sin(ug)/cos(ug);
p:=a+b+a+b;
writeln('Площадь s=',s:0:3);
writeln('Периметр p=',p:0:3);
readln;
end.
№5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Uses crt;
Var
x: Array[1..5] of Integer;
i,s,s1,p,l: Integer;
BEGIN
Clrscr;
Writeln('Введите 5 чисел: ');
For i:=1 to 5 do
begin
  Readln(x[i]);
  If x[i] mod 2=0 Then
  begin
   Inc(p);
   s:=s+x[i];
  end;
  If x[i] mod 2<>0 Then
  begin
   Inc(l);
   s1:=s1+x[i];
  end;
end;
Writeln('Кол-во четных: ',p);
Writeln('Сумма четных: ',s);
Writeln('Кол-во нечетных: ',l);
Writeln('Сумма нечетных: ',s1);
Readln
END.
№6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var
k: Byte;
BEGIN
Writeln('Введите оценку:'); Readln(k);
Case k of
1: Writeln('Плохо');
2: Writeln('Неудовлетворительно');
3: Writeln('Удовлетворительно');
4: Writeln('Хорошо');
5: Writeln('Отлично');
Else
Writeln('Ошибка');
end;
Readln
END.
№8
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Program Summa_zifr;
Var a,b,i,n,s1,s2,j:integer;
Function Summa(n:integer):integer;
Var s:integer;
Begin
    s:=0;j:=0;
    While n<>0 do
    Begin
    s:=s+(n mod 10);
    n:=(n div 10);
    End;
    Summa:=s;
End;
Begin
     write('Введите число N= ');readln(N);
     write('Введитен отрезок [A,B] ');readln(A,B);
     s1:=Summa(N);
     For i:=A to B do
     Begin
     s2:=Summa(i);
     if s1=s2 then Begin write(i:4);inc(j); end;
     s2:=0;
     End;
     writeln;
     if j<>0 then writeln('Всего таких чисел ',j)
     else writeln('На данном отрезке нет таких чесел');
     readln;
End.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.04.2012, 14:45
Ответы с готовыми решениями:

Составить блок схемы
spasite

Две блок схемы
Ребят составьте пожалуйста блок схемы на следующие задачи, не успеваю просто.. uses crt; var...

Составление блок-схемы
uses crt; var a:integer; (*Переменные*) BEGIN (*Начало*) ClrScr;(*Очистка экрана*) ...

Построение блок-схемы
Просьба составить блок-схему по вот этому коду (программы типа FCEditor`a не очень корректно делают...

__________________
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.04.2012, 14:45

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Нарисовать блок схемы
Завтра пойду в универ,нужно успеть нарисовать блок схемы к задачам! Буду очень сильно благодарен...

Сделайте 2 Блок схемы
№1 program kyrsov1; const m=6; n=6; label z1,z2; var x1:array of integer; x2:array of...

Блок-схемы паскаль
помогите пожалуйста составить к эти программам блок-схемы program YAMA; var x,y:real; begin...

блок схемы задичи=))
Помогите составить алгоритм блок схемы задачи(сортировка массива с использованием метода пузырька)


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.