Новые сообщения · Правила  
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Решения задач на Паскале!Срочно нужно!
Вместо смайлика - лучше повышение репутации))

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
521 | Автор: Berestovskiy | 2012-05-22, 17:08   |  Репутация: [ + 211 ]
помогите

Описать рекурсивную логическую функцию sym(s,i,j),
проверяющую, является ли симметричной часть строки s,
начинающаяся i-ым и кончающаяся j-ым ее элементами.

Опишите рекурсивную функцию sum без параметров для
нахождения суммы элементов файла f.
522 | Автор: M@RECS | 2012-05-23, 08:42   |  Репутация: [ + 0 ]
Ранее на форуме писал, ищи

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
523 | Автор: Berestovskiy | 2012-05-23, 10:08   |  Репутация: [ + 211 ]
Quote (GriF)
Люди человеки,помогите пожалуйста с задачкой нуна вот чё Составить прогу используя оператор цикла с предусловием. Вычислить количество отрицательных значений Sin(Fi) на интервале {а.в} с заданным шагом.Я вам стока плюсов натыкаю;0))

Добавлено (08.02.12, 11:42)
---------------------------------------------
uses crt;
var a,b,f,h,y:real;
k:integer;
begin
clrscr;
repeat
writeln('Введите диапазон вычислений a<b');
readln(a,b);
until a<b ;
repeat
write('Шаг вычислений h<',b-a:0:1,' h=');
readln(h);
until h<b-a;
k:=0;
f:=a;
while f<=b+h/2 do
begin
y:=sin(f);
writeln('f=',f:4:1,' sin(f)=',y:5:2);
if y<0 then k:=k+1;
f:=f+h;
end;
write('Количество отрицательных=',k);
readln
end.
ВОТ ТАКУ НАПИСАЛ НО СИНУС СЧИТАЕТ НЕПРАВИЛЬНО В ЧЁМ ОШИБКА.ПОМОГИТЕ ЛЮДИ ДОБРЫЕ.


подскажите пожалуйста как составить программу аналогичной этой только чтобы там вычислялась сумма отрицательных значений cos(fi) на интервале [a,b] с заданным шагом.
524 | Автор: stalewar | 2012-05-24, 11:09   |  Репутация: [ + 0 ]
Что именно не выходит?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
525 | Автор: Berestovskiy | 2012-05-24, 18:07   |  Репутация: [ + 211 ]
Помогите народ плиз, такое задание:
Ввести с клавиатуры целочисленную квадратную матрицу размера 4 х 4. Найти строки с минимальной суммой элементов.
Нашел здесь только похожее решение,для максимума, можете помоч?

var
a:array[1..4,1..4]of integer;
i,j,stroka,summa,max:integer;
begin
stroka:=0;summa:=0;max:=low(max);
for i:=1 to 4 do begin
for j:=1 to 4 do begin
read(a[i,j]);
summa:=summa+a[i,j];end;
if summa>max then begin max:=summa;stroka:=i;end;
summa:=0;
end;
writeln(stroka);
writeln(max);
end.
526 | Автор: tvx | 2012-05-25, 11:32   |  Репутация: [ + 0 ]
max:=high(max);

if summa<max then begin max:=summa;stroka:=i;end;

И будет работать)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
527 | Автор: Berestovskiy | 2012-05-25, 18:16   |  Репутация: [ + 211 ]
помогите пожалуйста составить программу решения задач на языке Pascal и создать блок-схемы решения.:Отрезок на плоскости задается двумя не совпадающими концевыми точками X(x1,x2) и Y(y1,y2). Из точки Z(z1,z2) к прямой, содержащей отрезок [X,Y], проводится перпендикуляр P.
Определить, попадает ли перпендикуляр P на отрезок [X,Y] или на его продолжение.
528 | Автор: yami | 2012-05-26, 17:31   |  Репутация: [ + 0 ]
Помогите решить задачи по тему STRING
1. Введите строку. Удалить все пробелы между первым и вторым вопросительным знаком.
2. Введите строку. Вывести самое короткое слово,заканчивающейся на букву "я". Найти их кол-во.
Помогите,ребят!плиииииз!
529 | Автор: voznushka | 2012-05-26, 20:16   |  Репутация: [ + 0 ]
529 | Автор: voznushka | 2012-05-26, 20:16   |  Репутация: [ + 0 ]
Помогите...
Ввести с клавиатуры целочисленную квадратную матрицу размера 4 х 4. Найти строки с минимальной суммой элементов.
530 | Автор: tvx | 2012-05-27, 17:19   |  Репутация: [ + 0 ]
здравствуйте!!
помогите с задачкой:)
задача:Дан вектор А из вещественных чисел преобразовать этот вектор так, чтобы сначала были расположены все отрицательные, а затем все положительные компоненты в порядке их следования.
531 | Автор: leisanka | 2012-05-27, 20:47 | Изменено: leisanka - Вс, 2012-05-27, 21:04   |  Репутация: [ + 0 ]
Решите пожалуйста((
1)Заданную строку А перепишите в обратном порядке в строку В.
и
2)Найдите самое длинное и самое короткое слово в заданном предложении
532 | Автор: norka | 2012-05-27, 21:38   |  Репутация: [ + 0 ]
помоги тебе пожалуйста,очень срочно нужно....(по теме файлы)

Задание1. Запишите в файл исходных данных числовой двумерный массив.
Задание 2. Напишите программу, изменяющую в файле исходных данных из задания 1 элементы, соответствующие вашему варианту (файл в оперативную память не читать):
2. третий столбец;
Задание 3. Прочитать из полученного файла элементы, соответствующие вашему варианту (весь файл в оперативную память не читать):
2. элементы (1;3) и (3;3);
Задание 4. Создать текстовый файл (3-4 строки). Дописать в конец файла 2 строки. Вывести на монитор исходный и полученный файлы.
533 | Автор: babenok_kseniya | 2012-05-28, 15:19   |  Репутация: [ + 0 ]
Есть специальный раздел работы с файлами в ТП, найти можешь на сайте, там есть примеры такие-же

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
534 | Автор: Berestovskiy | 2012-05-29, 11:55   |  Репутация: [ + 211 ]
Уважаемые знатоки)) нужна ваша помощь есть программа
Quote
Program ABC;
var
A:array[1..50,1..50]of integer;
B:array[1..50,1..50]of integer;
C:array[1..50]of integer;
max,d,n,m,s,i,j:integer;
begin
writeln('Введите n,m');
readln(n,m);
writeln(‘Как будем вводить1 – с клавиатуры,2 – генератором случайных чисел');
readln(d);
if d=1 then
begin
for i:=1 to n do
begin
for j:=1 to m do
read(A[i,j]);
readln
end;
end
else
begin
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
A[i,j]:=10-random(20);
end;
writeln;
end;
end;
max:=A[i,j];
for i:=1 to n do
for j:=1 to m do
if(A[i,j]>max)then
max:=A[i,j];
for i:=1 to n do
for j:=1 to m do
B[i,j]:=A[i,j]*max;
for i:=1 to n do
for j:=1 to m do
if i=j then (C[i]=B[i,j])
for i:=1 to n do
for j:=1 to m do
if(C[j]>C[j+1]) then
begin
s:=C[j+1];
C[j]:=s;
end;
writeln('Полученная матрица:');
for i:=1 to n do
begin
for j:=1 to m do
write(B[i,j],' ');
writeln;
end;
writeln('Полученный вектор:');
for i:=1 to n do
write(C[i],' ');
end.

была введена в паскаль, раза два я вводила значения она работала, теперь когда ввожу матрицуне работает пишет ошибка проверки диапазона вот в этом месте A[i,j]:=10-random(20);, может кто знает что с ней не так? могу скинуть файл паскаль
535 | Автор: Tryam | 2012-05-29, 17:52   |  Репутация: [ + 0 ]
а ты бы не мог,пожалуйста,написать ссылку на этот раздел именно,а то здесь много информации по поводу файлов....зарание спасибо
536 | Автор: babenok_kseniya | 2012-05-29, 21:24   |  Репутация: [ + 0 ]
536 | Автор: babenok_kseniya | 2012-05-29, 21:24   |  Репутация: [ + 0 ]
Привет всем :)
Помогите решить задачу.
Написать модуль программы в delphi.
Вот сама задача.
Дан числовой ряд от A до B, нужно все числа которые делются
на 4 вывести на экран.
537 | Автор: darkle | 2012-05-30, 08:51   |  Репутация: [ + 0 ]
Quote (babenok_kseniya)
а ты бы не мог,пожалуйста,написать ссылку на этот раздел именно,а то здесь много информации по поводу файлов....зарание спасибо


Где самостоятельность?)
Это тебе нужно - ты и ищи)
Если бы нужно было бы мне - то я нашёл бы, тем-более зная, что вся инфа тут есть)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
538 | Автор: Berestovskiy | 2012-05-30, 14:50   |  Репутация: [ + 211 ]
Quote (darkle)
Привет всем :) Помогите решить задачу. Написать модуль программы в delphi. Вот сама задача. Дан числовой ряд от A до B, нужно все числа которые делются на 4 вывести на экран.


Это в раздел Делфи нужно написать


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
539 | Автор: Berestovskiy | 2012-05-30, 14:53   |  Репутация: [ + 211 ]
Даны координаты трех вершин треугольника, Найти его площадь и периметр.

( по всей вероятности координаты этих вершин нужно получать рандомно, или черт его знает)
Если есть такая возможность то сделать так, чтоб координаты этим точкам можно было задавать самостоятельно в уже готовой задаче.

Заранее спасибо, если кто-то поможет...
540 | Автор: Oki | 2012-06-02, 22:50   |  Репутация: [ + 0 ]
540 | Автор: Oki | 2012-06-02, 22:50   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Поиск: