|
Решения задач на Паскале!Срочно нужно!
|
|
|
|
Помогите пожалуйста кто чем может....
тема "Файлы и Модули"
Задание 1. Запишите в файл исходных данных числовой двумерный
массив размерности 6х5.
Задание 2. Напишите программу, изменяющую в файле исходных
данных из задания 1 элементы, элементы (3;2),(1;4) и (5;4); (файл в
оперативную память не читать):
|
|
|
|
Quote (mila) не компилируется!
какую ошибку выдаёт и на какой строчке?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Elena04) Помогите пожалуйста кто чем может.... тема "Файлы и Модули" Задание 1. Запишите в файл исходных данных числовой двумерный массив размерности 6х5. Задание 2. Напишите программу, изменяющую в файле исходных данных из задания 1 элементы, элементы (3;2),(1;4) и (5;4); (файл в оперативную память не читать):
По аналогии сделай:
http://primat.org/publ/5-1-0-30
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
уважаемый berestovsliy!
в программе
var
massiv:array[1..45,1..30]of integer;
i,j,kolichestvo:integer;
begin
kolichestvo:=0;
randomize;
for i:=1 to 45 do
for j:=1 to 30 do
massiv[i,j]:=random(41);
for i:=1 to 45 do
for j:=1 to 30 do
if (massiv[i,j]>massiv[i,j-1])and(massiv[i,j]>massiv[i,j+1]) then kolichestvo:=kolichestvo+1;
writeln(kolichestvo);
end.
не компилирует, проверяю F8 и останавливается на строке massiv[i,j]:=random(41); не выдавая ошибки. в чем может быть дело.
2. и в программе что надо переделать чтобы выдавал в итоге не наименьший,а наибольший элемент (не пойму вроде правильно)
var
i,n,chislo,max,nomer:integer;
begin
read(n);
max:=low(max);
for i:=1 to n do begin
read(chislo);
if (chislo>max)and(chislo mod 3=0) then begin max:=chislo;nomer:=i;end;end;
writeln(max,' ',nomer);
end.
спасибо заранее
|
|
|
|
Quote (Ggate) не компилирует, проверяю F8 и останавливается на строке massiv[i,j]:=random(41); не выдавая ошибки. в чем может быть дело.
Странно, я себе в компилятор запилил только что этот код и всё заработало, попробуй ещё раз:
var
massiv:array[1..45,1..30]of integer;
i,j,kolichestvo:integer;
begin
kolichestvo:=0;
randomize;
for i:=1 to 45 do
for j:=1 to 30 do
massiv[i,j]:=random(41);
for i:=1 to 45 do
for j:=1 to 30 do
if (massiv[i,j]>massiv[i,j-1])and(massiv[i,j]>massiv[i,j+1]) then
kolichestvo:=kolichestvo+1;
writeln(kolichestvo);
end.
Quote (Ggate) 2. и в программе что надо переделать чтобы выдавал в итоге не наименьший,а наибольший элемент (не пойму вроде правильно)
попробуй перезаписать только используй массив
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Люди, решите пожалуйста задачи, заранее спасибо большое.
1)Найти наибольшее и наименьшее значение функции у=(sinx/3x)+5 при изменении X от 0,1 до А с шагом H.
2)дана матрица (15,15), сформированная случайным образом из чисел диапазона [-5,5]. Найти и вывести на печать среднее геометрическое элементов, вокруг которых (слева, справа, сверху и снизу) стоят нули.
3) Дана строка символов, состоящая из прописных и строчных латинских букв и пробелов. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Удалить из строки слова, состоящие только из прописных букв. Вывести на печать полученную строку и количество удаленных слов.
|
|
|
|
люди, пожалуйста помогите решить задачу со строками, срочно нужно:
Дана строка символов, состоящая из цифр от 0 до 9 и пробелов. Группы цифр, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Рассматривая эти слова как числа, определить и напечатать сумму чисел, оканчивающихся на цифры 3 или 4.
|
|
|
|
помогите пожалуйста решить задачи на тему строки.....спасибо
1.Определить количество слов, которые начинаются и оканчиваются одним и тем же символом
2.Получить новую строку, взяв из данной все символы, находящиеся между первой открывающейся скобкой и последней закрывающейся (если какие-либо скобки отсутствуют, то вывести соответствующее сообщение).
|
|
|
|
1.Задано слово – последовательность произвольных символов. Составьте программу для решения следующей задачи: Найти сумму цифр, встречающихся в данной последовательности символов.
2.Составьте программу с использованием процедуры –функции. Выполните ее тестирование и отладку: Найти наименьшую сторону треугольника, заданного координатами своих вершин.
|
|
|
|
Помогите, плиз, очень срочно
№1. Дан массив D(M,K) целых чисел. Подсчитать в нем количество троек di,j; di,j+1; di,j+2, в каждой из которых элементы равны.
№2. Дана строка символов, состоящая из прописных и строчных латинских букв и пробелов. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Вывести на печать слова, состоящие из равного количества строчных и прописных букв (например, fBcD, eaPO и т.п.) и самое длинное из таких слов.
|
|
|
|
Отвечал уже
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Разработать программу, позволяющую проводить факторный анализ для ряда выборок.
Входные данные: успеваемость 10 студентов по пяти предметам.
Выходные данные: корреляционная матрица для успеваемости студентов, факторные нагрузки, собственные значения и веса факторов до и после вращения.
|
|
|
|
Помогите срочно народ
1.Введите множество, состоящее из 20 целых чисел от 1 до100.
Определите, сколько среди них простых чисел.
2.Начиная с центра обойти по спирали все элементы
матрицы размером 9x9 (распечатывая их в порядке обхода).
3.Дана матрица A из целых чисел размером MxN.
Переставить строки матрицы так, чтобы строки стали расположены
по убыванию в лексикографическом порядке.
4.По заданным 4-ем элементным целым массивам a, b, c
написать процедуры, которые вычисляют:
1) max(a[i]), max(b[i]), max(c[i])
2) min(a[i]), min(b[i]), min(c[i])
3) max(a[i]+b[i]), max(a[i]+c[i]), max(b[i]+c[i])
4) min(a[i]-b[i]), min(a[i]-c[i]), min(b[i]-c[i])
5) max(a[i]*b[i]), max(a[i]*c[i]), max(b[i]*c[i])
5.Написать функцию, которая возвращает максимальное из
двух целых чисел, полученных в качестве аргумента.
6.type seria = file of integer;
var s:seria;
Описать функцию max(s), вычисляющую значение
максимального элемента файла s. Программа: введите файл s
(последний элемент равен 0) и напечатайте значение функции
max(s).
7.Построить астроиду-кривую, заданную параметрическим
уравнением x = b cos^3(t),
y = b sin^3(t) t принадлежит интервалу [0,2pi]
8.Написать программу, которая из общего массива сведений
об учащихся школы создаст массивы учащихся по каждой
параллели и выдаст их на печать. В массиве сведений об учащихся
школы расположены фамилии, год рождения, класс (1 по 11).
№ 514 | Автор: M@RECS |
2012-05-10, 17:14 | Изменено: M@RECS - Чт, 2012-05-10, 20:33
|
Репутация: [ + 0 ]
|
|
|
|
Quote (M@RECS) 1.Введите множество, состоящее из 20 целых чисел от 1 до100. Определите, сколько среди них простых чисел.
begin
writeln('25');
end.
Будет время - остальные напишу:))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
помогите пожалуйста!!!
1.Написать программу, находящую сумму на отрезке (X; Y), где каждое слагаемое представляет собой произведение чисел отрезка в порядке их следования. Первое слагаемое содержит один элемент – x, второе – произведение двух следующих, третье – трех следующих и т.д. Последнее слагаемое является произведением всех оставшихся чисел до у включительно. Нахождение слагаемого оформить функцией.
2.Разработать процедуру, определяющую уравнение перпендикуляра от центра окружности до прямой. Написать программу, подсчитывающую количество окружностей, которые пересекаются с данной прямой.
|
|
|
|
Помогите пожалуйста, срочно нужна помощь:((
Написать программу, осуществляющую ввод структурированных данных в
файл и вывод данных из этого файла на экран (сделать хранилище данных в
файле). (Вариант задания: Фонотека)
|
|
|
|
Пожалуйста)))
Заполнить двумерный массив, случайными числами.. найти мах элемент в массиве.
Sweet
|
|
|
|
var
a:array[1..100,1..100]of integer;
i,j,m,n:integer;
begin
read(n);
m:=low(m);
randomize;
for i:=1 to n do
for j:=1 to n do begin
a[i,j]:=random[100];
if m<a[i,j] then m:=a[i,j];end;
writeln(m);
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
)))
Sweet
№ 520 | Автор: Sweet__life |
2012-05-22, 12:37 | Изменено: Sweet__life - Вт, 2012-05-22, 12:39
|
Репутация: [ + 0 ]
|
|
|
|
