1 / 1 / 0
Регистрация: 04.02.2011
Сообщений: 49
1

Необходимо 5 решенных задач на основные алгоритмы

13.11.2012, 21:15. Показов 1674. Ответов 1
Метки нет (Все метки)

ребят есть ли у кого по 5 решенных задач по алгоритмам: линейные,разветвляющиеся и циклы (желательно с блок схемами)

можно в архиве можно прямо так


Заранее благодарен
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.11.2012, 21:15
Ответы с готовыми решениями:

Сборник решенных задач
Здравствуйте! Вот тут меня посетила идея.Наверно не впервые я её озвучу, но всё же.Почему бы нам не...

Несколько решённых задач
В общем, скажу что я не супер-пупер программистка) я не могу сразу все решить, до меня туго...

Примеры решенных задач
Вот решил выложить программы с лабораторных работ: 1) Сгенерировать одномерный массив и вывести...

Большая коллекция решенных задач
Обработка строк 1. Вывести в алфавитном порядке все буквы, которые входят в текст по одному разу...

1
Дзæуджыхъæу
232 / 204 / 148
Регистрация: 20.09.2012
Сообщений: 421
Записей в блоге: 1
13.11.2012, 21:37 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

а на просторах интернета найти не?
линейный:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var x, y, b: integer;
begin
    write ('Input first number: ');
    readln (x);
    write ('Input second number: ');
    readln (y);
 
    writeln ('x = ', x, ', y = ', y);
    writeln ('Changing values... changing values...');
 
    b := x;
    x := y;
    y := b;
 
    writeln ('x = ', x, ', y = ', y);
 
readln
end.
цикл
1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var x,a: real;
function func(a,x:real): real;
begin
if x>1 then  x:=sin(cos(a*x)) else
if x=1 then X:= 2*a*x-(x*x) else
x:=2*a*x+4;
func:=x;
end;
procedure as(a:real);
begin  x:=0;
while x<=2 do  begin
writeln('Ответ при х равном ',x:5:2,' a равном',a:2:0,' = ',func(a,x):10:3);
x:=x+0.25;
end;
readln;
end;
begin
as(4);
as(-3);
as(5);
end.
2.
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
type
    mat = array [-10..25,-10..25] of integer;{Переменная массив}
    str = array [-5..5] of integer;
Var a4 : real; {Переменные вешественного типа}
    m: mat;
    l: str;
{Создание матрицы в ручную}
procedure Mx(var m : mat) ;
 Var    i,j,n : integer;
begin
writeln ('Введите количество строк (столбцев) в матрице')  ;
readln  (n);
writeln ('Введите числа');
for i:=1 to n do
begin               {Перебирание строк столбцев}
for j:=1 to n do
begin
write ('M[',i,j,']= ');
readln  (m[i,j]);     {Вводим числа в матрицу с клавиатуры}
end;
end;
writeln;
end;
 
{Случайное создание матрицы}
procedure MxR (var m : mat);
 Var    i,j,n : integer;
begin
randomize;
writeln ('Введите количество строк (столбцев) в матрице')  ;
readln  (n);
for i:=1 to n do
begin                        {Перебирание строк столбцев}
for j:=1 to n do
m[i,j]:=random(20)-10; {В матрицу присваиваются случайные числа}
end;
writeln;
end;
 
{Вывод матрицы на экран}
procedure Mx2 (var m : mat);
 Var    i,j,n : integer;
begin
for i:=1 to n do
begin                     {Перебирание строк столбцев}
for j:=1 to n do
write (m[i,j]:3);        {Вывод на экран матрицу}
writeln;
end;
writeln('_________________________________________________');
end;
 
 
{Создание строки}
procedure stroka ( var l: str);
 Var    i,n : integer;
begin
Randomize;
for i:=1 to n do   {Перебирание строки}
l[i]:=random(20)-10;{В строку присваиваются случайные числа}
writeln;
end;
{Вывод строки}
procedure print ( var l: str);
  Var    i,n : integer;
begin
for i := 1 to n do write(l[i]:3);{Перебирание строки и вывод её на экран}
writeln;
writeln('_________________________________________________');
end;
 
{Сравнение}
function srav (  l: str; m : mat): integer;
  Var    i,j,n,k : integer;
begin
for i := 1 to n do
    if l[i]>0 then        {Цикл на проверку чисел в строке больши ли они 0}
       for j := 1 to n do
           if m[i,j]< 0 {Перебирание стобца, и сравнение строки и стобца меньши ли он 0}
              then  inc(k);
srav:=k;
end;
{Начало основной программы}
begin
writeln ('Выберите тип создания матрицы:');
writeln ('Введите 1 чтобы создать матрицу в ручную');
writeln ('Введите 2 чтобы создать матрицу случайно');
write('->');
Readln (a4);  {Ввод данных на тип создания матрицы}
writeln('_________________________________________________');
if a4=1 then
Mx(m);
if a4=2 then                              {Условие на выбор способа создания матрицы}
MxR (m);
if (a4>2) or (a4<1) then   {Условие на проверку если введённые данные с клавиатуры }
Writeln ('Ошибка')           {больше 2 или меньше 1 тогда выводим ошибку}
else
begin
mx2(m);     {Вызов процедуры "mx2"}
stroka(l);    {Вызов процедуры " stroka"}
print(l);     {Вызов процедуры " print"}
 writeln('Число отрицательных элементов матрицы ');
  write('Расположенных в отмеченных строках равно  ',srav(l,m));
 
 
end
END.
развет
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Var
  x, y : integer;
  Koren, Modul : real;
Begin
  write ('Введите значения переменных х и у через пробел ');
  read (x, y);
  if x>=y
    then
      begin
        Koren:=Sqr(x-y);
        Modul:=Abs(x-y);
        write ('Значение квадратного корня из выражения (х-у) равно ', Koren);
        write ('Значение модуля выражения (х-у) равно ', Modul);
      end
    else
      write ('Введены недопустимые значения переменных');
  readln;
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.11.2012, 21:37
Помогаю со студенческими работами здесь

Определить количество решенных задач одним человеком на турнире
Перед турниром Вася провел подготовку. Он решил А задач на циклы, В задач на массивы и C задач на...

Определить оценку в зависимости от количества правильно решенных задач
Определить оценку абитуриента по математике на вступительных ЭКЗА -нах , если она определяется в...

Структура: Записать в файл название команды, количество решенных задач, время, потраченное на решение.
Помогите, пожалуйста. Срочно нужно. В файле 1 хранятся данные о соревнованиях по решению задач. Он...

Основные алгоритмы
знающие люди посоветуйте какие основные алгоритмы должен знать любой программист


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru