var a :integer; b, c :real; begi nwriteln('Введите число А >= 1'); readln(a); while ac the nbegi nwriteln('Sin(A) > 1/A. Sin(A) = ', b); end else writeln('1/A>Sin(A). 1/A = ', c); end.
Помогите кто может составить из одномерного массива возрастающую последовательность например был массив 8 9 6 7 4 5 а стал после выполнения программы 4 5 6 7 8 9 код нужен на паскале
Hellboyses666, делов то куча - луркони пузырьковую сортировку, алгоритм то прост до безобразия!
как то так:
var a: array[0..99] of real; i,j : integer; tmp : real; begin //тут типа забей цифирь в масив - могешь с клавы, с файла, рандомно for i:= 0 to 99 do for j:= 0 to 98 do if a[j] > a[j+1] then begin tmp:=a[j+1]; a[j+1]:=a[j]; a[j]:=tmp; end; end.
Алсо реквестирую тег code на дрим.
1чел. читают эту тему (гостей: 1)
Пользователей: 0