Вопрос № 121753: Помогите осуществить это:
На Pascal'е реализовать процедуры работы со стеком на последовательном распределении памяти:
- Создание пустого стека
- Добавление элемента на вершину стека
- Удаление элемента с вершины стека
Процед...Вопрос № 121811: Здравствуйте, как мне решить такую задачу:
По данной формуле Y=sin(x+2)+10 высчитать все значения Y, если X принадлежит интервалу [-11;11] и меняется на один шаг(т.е. x:=x+1). Результат вывести на экран, а текст записать в файл.
Заранее спаси...Вопрос № 121819: Здравствуйте! Мне необходимо помощь в написании программы. Дано задание: каждое второе слово данного текстового фаила переписать задом наперед и сохранить в другом фаиле.
...Вопрос № 121875: Здравствуйте. У меня дана такая задача:
Дана матрица целых чисел А[7x8] Элементы матрицы получают при помощи генерированных чисел(Random) в диапозоне от -5 до 5. В каждой строчке сортировать элементы в возрастном порядке. Обе матрицы записать в ф...
Вопрос № 121.753
Помогите осуществить это:
На Pascal'е реализовать процедуры работы со стеком на последовательном распределении памяти:
- Создание пустого стека
- Добавление элемента на вершину стека
- Удаление элемента с вершины стека
Процедуры, реализующие операции добавления и удаления элемента должны разумным образом обрабатывать ситуации переполнения и нехватки (схемы (2а), (3а)). Стек реализовать, используя одномерный массив и переменную типа integer (указатель на вершину стека).
Схемы (2а), (3а) находятся в приложении...
Приложение:
Отправлен: 05.02.2008, 13:28
Вопрос задал: NOTCLEAR (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Nazar__D
Здравствуйте, NOTCLEAR!
Вот текст юнита, в котором описан стек, реализований на одномерном массиве.
Чтобы использовать функции этого юнита в какой-то программе, не забудьте подключить его
в эту программу (uses A_Stack), предварительно откомпилировав.
Как бы, всё. Если чё - пишите. Помог, чем мог :)
Приложение:
--------- Я - українець!
Ответ отправил: Nazar__D (статус: 3-ий класс)
Ответ отправлен: 05.02.2008, 14:43
Вопрос № 121.811
Здравствуйте, как мне решить такую задачу:
По данной формуле Y=sin(x+2)+10 высчитать все значения Y, если X принадлежит интервалу [-11;11] и меняется на один шаг(т.е. x:=x+1). Результат вывести на экран, а текст записать в файл.
Заранее спасибо.
Отправлен: 05.02.2008, 18:49
Вопрос задал: bellick (статус: Посетитель)
Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 3)
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, bellick!
Программа в приложении.
Данные выводятся в файл output.txt.
Отвечает: Nazar__D
Здравствуйте, Петр Петров Иванович!
Вот решение Вашей проблеммы. Помог чем мог:-)
Если чё непонятно - пишите!
Приложение:
--------- Я - українець!
Ответ отправил: Nazar__D (статус: 3-ий класс)
Ответ отправлен: 05.02.2008, 19:14 Оценка за ответ: 5
Отвечает: Евчик Сергей Александрович
Здравствуйте, Петр Петров Иванович! Думаю можно поступить так:
var x:integer;
y:real;
f:file;
begin
assign(f,'<путь к файлу>');
for x:=-11 to 11 do
begin
append(f);
y:=sin(x+2)+10;
Writeln(f,y);
close(f);
end;
Учтите что файл должен быть уже создан иначе будет ошибка.
Здравствуйте! Мне необходимо помощь в написании программы. Дано задание: каждое второе слово данного текстового фаила переписать задом наперед и сохранить в другом фаиле.
Здравствуйте. У меня дана такая задача:
Дана матрица целых чисел А[7x8] Элементы матрицы получают при помощи генерированных чисел(Random) в диапозоне от -5 до 5. В каждой строчке сортировать элементы в возрастном порядке. Обе матрицы записать в файл.
Отправлен: 06.02.2008, 00:39
Вопрос задал: bellick (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 14)
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, bellick! Программа в приложении.
