Новые сообщения · Правила  
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Решения задач на Паскале!Срочно нужно!
не компилируется!
501 | Автор: mila | 2012-05-03, 14:46   |  Репутация: [ + 0 ]
Помогите пожалуйста кто чем может....
тема "Файлы и Модули"

Задание 1. Запишите в файл исходных данных числовой двумерный
массив размерности 6х5.

Задание 2. Напишите программу, изменяющую в файле исходных
данных из задания 1 элементы, элементы (3;2),(1;4) и (5;4); (файл в
оперативную память не читать):
502 | Автор: Elena04 | 2012-05-05, 22:08   |  Репутация: [ + 0 ]
502 | Автор: Elena04 | 2012-05-05, 22:08   |  Репутация: [ + 0 ]
Quote (mila)
не компилируется!


какую ошибку выдаёт и на какой строчке?


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
503 | Автор: Berestovskiy | 2012-05-05, 22:11   |  Репутация: [ + 211 ]
Quote (Elena04)
Помогите пожалуйста кто чем может.... тема "Файлы и Модули" Задание 1. Запишите в файл исходных данных числовой двумерный массив размерности 6х5. Задание 2. Напишите программу, изменяющую в файле исходных данных из задания 1 элементы, элементы (3;2),(1;4) и (5;4); (файл в оперативную память не читать):


По аналогии сделай:
http://primat.org/publ/5-1-0-30


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
504 | Автор: Berestovskiy | 2012-05-05, 22:30   |  Репутация: [ + 211 ]
уважаемый 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.

спасибо заранее
505 | Автор: Ggate | 2012-05-06, 17:16   |  Репутация: [ + 1 ]
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
506 | Автор: Berestovskiy | 2012-05-06, 17:30   |  Репутация: [ + 211 ]
Люди, решите пожалуйста задачи, заранее спасибо большое.

1)Найти наибольшее и наименьшее значение функции у=(sinx/3x)+5 при изменении X от 0,1 до А с шагом H.

2)дана матрица (15,15), сформированная случайным образом из чисел диапазона [-5,5]. Найти и вывести на печать среднее геометрическое элементов, вокруг которых (слева, справа, сверху и снизу) стоят нули.

3) Дана строка символов, состоящая из прописных и строчных латинских букв и пробелов. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Удалить из строки слова, состоящие только из прописных букв. Вывести на печать полученную строку и количество удаленных слов.
507 | Автор: PascalNoob | 2012-05-07, 16:12   |  Репутация: [ + 0 ]
люди, пожалуйста помогите решить задачу со строками, срочно нужно:

Дана строка символов, состоящая из цифр от 0 до 9 и пробелов. Группы цифр, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Рассматривая эти слова как числа, определить и напечатать сумму чисел, оканчивающихся на цифры 3 или 4.
508 | Автор: 0892241897 | 2012-05-07, 16:42   |  Репутация: [ + 0 ]
помогите пожалуйста решить задачи на тему строки.....спасибо

1.Определить количество слов, которые начинаются и оканчиваются одним и тем же символом

2.Получить новую строку, взяв из данной все символы, находящиеся между первой открывающейся скобкой и последней закрывающейся (если какие-либо скобки отсутствуют, то вывести соответствующее сообщение).
509 | Автор: babenok_kseniya | 2012-05-07, 17:00   |  Репутация: [ + 0 ]
509 | Автор: babenok_kseniya | 2012-05-07, 17:00   |  Репутация: [ + 0 ]
1.Задано слово – последовательность произвольных символов. Составьте программу для решения следующей задачи: Найти сумму цифр, встречающихся в данной последовательности символов.
2.Составьте программу с использованием процедуры –функции. Выполните ее тестирование и отладку: Найти наименьшую сторону треугольника, заданного координатами своих вершин.
510 | Автор: 375298973678 | 2012-05-07, 19:42   |  Репутация: [ + 0 ]
Помогите, плиз, очень срочно
№1. Дан массив D(M,K) целых чисел. Подсчитать в нем количество троек di,j; di,j+1; di,j+2, в каждой из которых элементы равны.
№2. Дана строка символов, состоящая из прописных и строчных латинских букв и пробелов. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Вывести на печать слова, состоящие из равного количества строчных и прописных букв (например, fBcD, eaPO и т.п.) и самое длинное из таких слов.
511 | Автор: Garik | 2012-05-07, 20:05   |  Репутация: [ + 0 ]
Отвечал уже

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
512 | Автор: Berestovskiy | 2012-05-08, 15:22   |  Репутация: [ + 211 ]
Разработать программу, позволяющую проводить факторный анализ для ряда выборок.
Входные данные: успеваемость 10 студентов по пяти предметам.
Выходные данные: корреляционная матрица для успеваемости студентов, факторные нагрузки, собственные значения и веса факторов до и после вращения.
513 | Автор: mej | 2012-05-10, 15:29   |  Репутация: [ + 0 ]
Помогите срочно народ

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
515 | Автор: Berestovskiy | 2012-05-10, 17:30   |  Репутация: [ + 211 ]
помогите пожалуйста!!!
1.Написать программу, находящую сумму на отрезке (X; Y), где каждое слагаемое представляет собой произведение чисел отрезка в порядке их следования. Первое слагаемое содержит один элемент – x, второе – произведение двух следующих, третье – трех следующих и т.д. Последнее слагаемое является произведением всех оставшихся чисел до у включительно. Нахождение слагаемого оформить функцией.
2.Разработать процедуру, определяющую уравнение перпендикуляра от центра окружности до прямой. Написать программу, подсчитывающую количество окружностей, которые пересекаются с данной прямой.
516 | Автор: McGredy | 2012-05-13, 11:09   |  Репутация: [ + 0 ]
Помогите пожалуйста, срочно нужна помощь:((
Написать программу, осуществляющую ввод структурированных данных в
файл и вывод данных из этого файла на экран (сделать хранилище данных в
файле). (Вариант задания: Фонотека)
517 | Автор: vampik | 2012-05-13, 18:32   |  Репутация: [ + 0 ]
Пожалуйста)))
Заполнить двумерный массив, случайными числами.. найти мах элемент в массиве.


Sweet
518 | Автор: Sweet__life | 2012-05-21, 16:45   |  Репутация: [ + 0 ]
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
519 | Автор: Berestovskiy | 2012-05-21, 17:07   |  Репутация: [ + 211 ]
)))

Sweet
520 | Автор: Sweet__life | 2012-05-22, 12:37 | Изменено: Sweet__life - Вт, 2012-05-22, 12:39   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Поиск: