Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
Utyf
1 / 1 / 0
Регистрация: 07.10.2010
Сообщений: 37
1

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

10.10.2010, 18:14. Просмотров 1563. Ответов 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.10.2010, 18:14
Ответы с готовыми решениями:

Написать программу решения задания используя оператор цикла
Написать программу решения задания используя оператор цикла. Значения элементов массива ввести с...

Четыре школьных задания, буду очень благодарен( задания прикреплены)
Первое задание решить при помощи двумерной таблицы. Буду очень благодарен.

Написать программу из задачника среды PascalABC.NET для задания integer8:
Написать программу из задачника среды PascalABC.NET для задания integer8: Потрудитесь выложить...

Объединить программы для задания 1 и задания 2 в одну
Нужно выполнить программу на паскале, объединив программы для задания 1 и задания 2 в одну....

Нужно написать индивидуальные задания по Pascal ABC
Помогите написать несколько работ по инфе,просто раньше никак не находил времени сделать их,если...

5
D@rkD@iver
112 / 112 / 13
Регистрация: 01.10.2008
Сообщений: 876
10.10.2010, 18:26 2
ну давай нарботки или ты хочешь чтоб тебе бесплатно все сделали ?
0
Шутка
code code
123 / 120 / 75
Регистрация: 11.10.2009
Сообщений: 371
10.10.2010, 18:38 3
Pascal
1
2
3
4
5
6
7
8
var
y,x:integer;
begin
randomize;
x:=random(100-51)+50;
y:=random(100-51)+50;
writeln(x+y);
end.
под б сможете сделать по аналогии?

Добавлено через 9 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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.
Остальные так же, по аналогии.
0
Utyf
1 / 1 / 0
Регистрация: 07.10.2010
Сообщений: 37
10.10.2010, 18:39  [ТС] 4
Цитата Сообщение от Шутка Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
var
y,x:integer;
b,a:integer;
begin
randomize;
x:=random(100-51)+50;
y:=random(100-51)+50;
writeln(x+y);
end.
под б сможете сделать по аналогии?
да попробую,
0
Шутка
code code
123 / 120 / 75
Регистрация: 11.10.2009
Сообщений: 371
10.10.2010, 18:41 5
Цитата Сообщение от Utyf Посмотреть сообщение
да попробую,
Если будут вопросы - спрашивайте. Помогу =)
0
ZiGSuN
27 / 27 / 7
Регистрация: 02.12.2009
Сообщений: 66
10.10.2010, 18:42 6
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
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!
Не тестил!
0
10.10.2010, 18:42
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.10.2010, 18:42

По блок-схеме написать программу и условие задания
по блок схеме написать программу и условие задачи

Написать программу, которая будет содержать подпрограммы первого и второго задания
1)Вычислить произведение и количество четных элементов массива A. 2)Определить первый нечетный...

Создание Кругов Для каждого задания
Привет всем! Нужно чтоб создавались круги при создании заданий которые будут Тех цветов к какому...


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

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

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