лаба. 3 задания, написать для каждого задания отдельную прогу.

@Utyf · Регистрация: 07.10.2010

Студворк — интернет-сервис помощи студентам

5*. Известно, что с геометрической точки зрения углы, различающиеся в 2pi n раз, где n целое число, не различимы. Написать программу, находящую для любого угла, соответствующий ему угол из диапазона [0, 2pi).

6. Найти сумму двух случайных а) целых чисел из диапазона 50 до 100; б) вещественных чисел из диапазона [3.5, 8). Для решения этой задачи понадобится функция, генерирующая псевдослучайные числа. Это стандартная функция random. Разобраться с функцией random по встроенной в систему справке! В этой справке будет непонятное слово «word» и непонятная функция «randomize». С ними тоже разобраться по справке.
Процедура Randomize инициализирует генератор случайных чисел текущим временем. Её нужно вызвать 1 раз в начале программы (Randomize

. В результате при следующем запуске программы числа будут разные, а если эту процедуру не использовать, то одни и те же.

2. Дано четырёхзначное целое число (записано в одной переменной). Найти число, полученное перестановкой цифр. Исходный порядок цифр «abcd». Новый порядок цифр по вариантам:
1) bcda, 2) badc, 3) dbca, 4) cdab, 5) acbd, 6) dcab.

если есть возможность то для каждого варианта распишите во 2-ом задании

@D@rkD@iver · 10.10.2010, 18:26

ну давай нарботки или ты хочешь чтоб тебе бесплатно все сделали ?

@Шутка · 10.10.2010, 18:38

Pascal

var
y,x:integer;
begin
randomize;
x:=random(100-51)+50;
y:=random(100-51)+50;
writeln(x+y);
end.

под б сможете сделать по аналогии?

Добавлено через 9 минут

Pascal

uses crt;
var
s:string;
i,k:integer;
x,y,z,q:char;
begin
repeat
readln(s);
k:=0;
for i:=1 to length(s) do begin
k:=k+1;
end;
until k=4;
x:=s[1];
y:=s[2];
z:=s[3];
q:=s[4];
s[1]:=s[2];
s[2]:=s[3];
s[3]:=s[4];
s[4]:=x;
writeln(s);
end.

Остальные так же, по аналогии.

@Utyf · 10.10.2010, 18:39 **[ТС]**

Сообщение от Шутка

Pascal

var
y,x:integer;
b,a:integer;
begin
randomize;
x:=random(100-51)+50;
y:=random(100-51)+50;
writeln(x+y);
end.

под б сможете сделать по аналогии?

да попробую,

@Шутка · 10.10.2010, 18:41

Сообщение от Utyf

да попробую,

Если будут вопросы - спрашивайте. Помогу =)

@ZiGSuN · 10.10.2010, 18:42

Pascal

var
 n:integer;
 i,:integer;
 s:string;
 d:string;
function var1(x:string):integer;
  var 
   g:integer; 
 begin
    d:=X[1];
    X[1]:=X[2];
    X[2]:=X[3];
    X[3]:=X[4];
    X[4]:=d;
    var1:=val(x,i,g);
   end; 
function var2(x:stirng):integer;
 var 
  g:integer;
 begin
    d:=X[1];
    X[1]:=X[2]
    X[2]:=d;
    d:=X[3];
    X[3]:=X[4];
    X[4]:=d;
    var1:=val(x,i,g);
   end; 
begin
 Write('Введите 4х-значное число : ');readln(n);
  Str(n,s);
  write(var1(s));
  write(var2(s));
end.

вот для первых двух вариантов второй задачи ! если разберешься то функции var1 И var2 можно сможешь пределать под var3,4,5,6!
Не тестил!

@Utyf 1 / 1 / 0 Регистрация: 07.10.2010 Сообщений: 37
		1
	лаба. 3 задания, написать для каждого задания отдельную прогу. 10.10.2010, 18:14. Показов 2566. Ответов 5 Метки нет (Все метки) *5.** Известно, что с геометрической точки зрения углы, различающиеся в 2pi n раз, где n целое число, не различимы. Написать программу, находящую для любого угла, соответствующий ему угол из диапазона [0, 2pi). 6. Найти сумму двух случайных а) целых чисел из диапазона 50 до 100; б) вещественных чисел из диапазона [3.5, 8). Для решения этой задачи понадобится функция, генерирующая псевдослучайные числа. Это стандартная функция random. Разобраться с функцией random по встроенной в систему справке! В этой справке будет непонятное слово «word» и непонятная функция «randomize». С ними тоже разобраться по справке. Процедура Randomize инициализирует генератор случайных чисел текущим временем. Её нужно вызвать 1 раз в начале программы (Randomize. В результате при следующем запуске программы числа будут разные, а если эту процедуру не использовать, то одни и те же. 2. Дано четырёхзначное целое число (записано в одной переменной). Найти число, полученное перестановкой цифр. Исходный порядок цифр «abcd». Новый порядок цифр по вариантам: 1) bcda, 2) badc, 3) dbca, 4) cdab, 5) acbd, 6) dcab. если есть возможность то для каждого варианта распишите во 2-ом задании 0

@D@rkD@iver 113 / 113 / 13 Регистрация: 01.10.2008 Сообщений: 876
	10.10.2010, 18:26	2
	ну давай нарботки или ты хочешь чтоб тебе бесплатно все сделали ? 0

@Шутка code code 128 / 123 / 77 Регистрация: 11.10.2009 Сообщений: 375
	10.10.2010, 18:41	5
	Сообщение от Utyf да попробую, Если будут вопросы - спрашивайте. Помогу =) 0

Опции темы