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

Code
var
x: array [1..500] of longint;
min,b:longint;
i,s,n:integer;
begin
writeln('Vvedite N');
readln(n);
writeln('Vvedite elementi massiva');
for i:=1 to n do
read(x[i]);

min:= 2147483647;

                  for i:=1 to n do
                  if x[i]<min then
                   begin
                   min:=x[i];
                   s:=i;
                   end;

if min<0 then
begin
b:=x[n];
x[n]:=min;
x[s]:=b;
end
      else
begin
b:=x[1];
x[1]:=min;
x[s]:=b;
end;

for i:=1 to n do
write(x[i], ' ');

readln;

end.
261 | Автор: bfbg | 2011-12-09, 02:29   |  Репутация: [ + 5 ]
261 | Автор: bfbg | 2011-12-09, 02:29   |  Репутация: [ + 5 ]
Помогите пожалуйста с заданием.

2. Разработать программу на языке Паскаль с использованием хотя бы одной подпрограммы-процедуры, позволяющую строить таблицу T сложения по модулю
m: T_ij = (I + j) mod m; I,j ∑{ 0,1, … ,m-1}.

И ещё одну

4. Разработать программу на языке Паскаль с использованием хотя бы одного типа «запись», которая позволяла бы находить решение в множестве комплексных чисел «квадратного уравнения» с коэффициентами из множества вещественных чисел.
262 | Автор: d2niKk | 2011-12-09, 19:43   |  Репутация: [ + 0 ]
2d2niKk

№2
Code
var
i,k,m,res:integer;
procedure proc( ii,jj:integer; var  res:integer);
begin
res:=(ii+jj) mod m;
end;

begin
writeln(1 mod 3);
writeln('Vvedite m');
readln(m);
res:=0;

for i:=0 to m-1 do
begin writeln;
for k:=0 to m-1 do begin
proc(i,k,res);
write(res, '    ');
end;
end;
end.
263 | Автор: bfbg | 2011-12-10, 03:17   |  Репутация: [ + 5 ]
bfbg

Большое спасибо, а с первой не подскажите как быть?)
264 | Автор: d2niKk | 2011-12-10, 12:30   |  Репутация: [ + 0 ]
Quote (d2niKk)
bfbg

Большое спасибо, а с первой не подскажите как быть?)


Это и была первая задача


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
265 | Автор: Berestovskiy | 2011-12-10, 14:03   |  Репутация: [ + 211 ]
Quote (Berestovskiy)
Это и была первая задача


Ой, опечатался... С четвёртой хотел написать)
266 | Автор: d2niKk | 2011-12-10, 15:31   |  Репутация: [ + 0 ]
266 | Автор: d2niKk | 2011-12-10, 15:31   |  Репутация: [ + 0 ]
Quote (d2niKk)
Большое спасибо, а с четвёртой не подскажите как быть?)


Вот, пожалуйста :)

№4

Code
type Tkor = record
r,i,x1,x2:real;
end;

type Tkof = record
a,b,c:real;
end;

var
d:real;
kor: Tkor;
kof: Tkof;

begin
writeln('ax^2+bx+c=0');
writeln('Vvedite a,b,c');
readln(kof.a,kof.b,kof.c);
d:=sqr(kof.b)-4*kof.a*kof.c;
if d<0 then begin
kor.r:= (-kof.b)/(2*kof.a);
kor.i:= (sqrt(abs(d)))/(2*kof.a);
end else begin
kor.x1:= (-kof.b-sqrt(d))/(2*kof.a);
kor.x2:= (-kof.b+sqrt(d))/(2*kof.a);
end;
writeln('Otvet (do 2h znakov posle (,))');
if d<0 then begin
writeln(round(kor.r*100)/100:2:2,' + ',round(kor.i*100)/100:2:2,'i');
writeln(round(kor.r*100)/100:2:2,' - ',round(kor.i*100)/100:2:2,'i');
end else
if d=0 then
writeln(round(kor.x1*100)/100:2:2) else
begin
writeln(round(kor.x1*100)/100:2:2);
writeln(round(kor.x2*100)/100:2:2);
end;
readln;
end.
267 | Автор: bfbg | 2011-12-10, 18:49 | Изменено: bfbg - Сб, 2011-12-10, 18:50   |  Репутация: [ + 5 ]
Не знаю уж как и благодарить, кроме плюсиков)

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

9. Разработать программу на языке Паскаль с использованием хотя бы одного типа «множество», которая позволяла бы по описанию продуктов в магазинах находить множество продуктов, которые есть во всех магазинах
268 | Автор: d2niKk | 2011-12-10, 18:53   |  Репутация: [ + 0 ]
№9

Code
var
cvet:set of char;
st:string;
i:integer;
begin
i:=1;
cvet:=['j','k','b','s'];
Writeln('Vvedite cvet produkta (joltuy (j), krasniy (k), beliy (b), siniy (s))');
readln(st);
while i<length(st) do begin
if not (st[i] in cvet) then begin
delete(st,i,1);
i:=0;
end;
i:=i+1;
end;
if st[1] in cvet then
case st[1] of
'j':writeln('hleb, pechenie');
'k':writeln('miaso');
'b':writeln('torti, zefir');
's':writeln('slivi');
end
       else
       writeln('Produktov netu');
readln;
end.


Если возникнут вопросы по поводу кода, пишите.
269 | Автор: bfbg | 2011-12-10, 20:34 | Изменено: bfbg - Сб, 2011-12-10, 21:25   |  Репутация: [ + 5 ]
bfbg

Спасибо, вопрос написал вам в лс)
270 | Автор: d2niKk | 2011-12-11, 01:34 | Изменено: d2niKk - Вс, 2011-12-11, 01:35   |  Репутация: [ + 0 ]
№9 Update

Думаю этот вариант будет более точным.
Мы ищем пересечение критерия с магазином1 в результате чего получим множество продуктов которые
подпадают под наш критерий в магазине 1. Аналогично с магазином 2. И в итоге ищем продукты которые есть в обеих магазинах.

Code
{
h - hleb
k - kartoska
b - banan
m - miaso
i - iabloko
p - pomidor
v - kivi
}
var
st:char;
magazin1,magazin2,sladkoe,solonoe,slad,sol: set of char;

begin
magazin1 := ['h','k','b','m','i'];
magazin2 := ['p','i','v','h','b','k'];
sladkoe:= ['b','i','v'];
solonoe:= ['h','m','p','k'];

writeln('Sladkoe? (y/n)');
readln(st);
slad:= (sladkoe*magazin1)*(sladkoe*magazin2);
sol:= (solonoe*magazin1)*(solonoe*magazin2);
if st='y' then  begin
if 'b' in slad then write('banan ');
if 'i' in slad then write('iabloko ');
if 'v' in slad then write('kivi ');
end else if st='n' then begin
if 'k' in sol then write('kartoshka ');
if 'm' in sol then write('miaso ');
if 'p' in sol then write('pomidor ');
if 'h' in sol then write('hleb ');
end;

readln;
end.
271 | Автор: bfbg | 2011-12-11, 04:26 | Изменено: bfbg - Вс, 2011-12-11, 04:32   |  Репутация: [ + 5 ]
помогите плиз с решением задачи в паскале)

Дано произвольное значение r и два произвольных массива W, D размера n, m соответственно. Найти сумму элементов массива W, больших заданного r, а также сумму элементов массива D, больших заданного r. Исходные данные взять самостоятельно.
272 | Автор: bend | 2011-12-12, 09:34   |  Репутация: [ + 0 ]
var
i,j,n,m,r,sw,sd:integer;
w,d:array[1..100]of intreger;
begin
readln®;
read(n,m);
for i:=1 to n do
for j:=1 to m do begin
read(w[i,j]);
read(d[i,j]);end;
for i:=1 to n do
for j:=1 to m do begin
if w[i,j]>r then sw:=sw+w[i,j];
if d[i,j]>r then sd:=sd+d[i,j];end;
writeln(sw);
write(sd);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
273 | Автор: Berestovskiy | 2011-12-12, 11:04   |  Репутация: [ + 211 ]
Помогите пожалуйста решить задачу.Что то не получается с ней:
Определить количество слов в строке , начинающихся с той же буквы,с которой закончилось предыдущее слово.
274 | Автор: Band | 2011-12-13, 16:36 | Изменено: Band - Вт, 2011-12-13, 19:45   |  Репутация: [ + 0 ]
Помогите решить 2 задачи:
1) Нарисовать на экране две точки, что движутся по концентрических кругах с одинаковыми угловыми скоростями в разных направлениях.
2) Нарисовать самолёт, что летит вдоль экрана и бросает бомбы. Бомб может быть на экране несколько одновременно.
Оплата гарантирована. Вопрос только в цене.
275 | Автор: Crysis33 | 2011-12-13, 21:51 | Изменено: Crysis33 - Вт, 2011-12-13, 22:02   |  Репутация: [ + 0 ]
Пожалуйста помогите написать на Паскале (Free или Тurbo) программу, очень нужно. Сама уже две недели в выходные пробовала программу написать, но ничего не получается, а скоро сдавать нужно. Помогите, хотя бы Задание 1!
Задание 1 (программирование циклических алгоритмов):
Требуется осуществить перевод данного целого (дробного) числа: из троичной системы в десятичную. Чтобы программа работала как для дробного, так и для целого!
Задание 2 (программирование циклических алгоритмов
(с параметром)):
Требуется определить план выпуска продукции, обеспечивающий наибольшую суммарную прибыль:На предприятии организуется побочный цех для использования отходов производства. Цех может освоить выпуск продукции двух видов: столов и книжных шкафов. На производство одного стола и шкафа затрачивается соответственно рабочего времени – С1 человеко-часов и С2 человеко-часов, древесины – D1 м3 и D2 м3, а на производство одного шкафа, кроме того -2 м стекла. Ресурсы ос¬новных материалов в месяц составляют: С человеко-часов рабочего времени, V м3 древесины и S м2 стекла. Прибыль от реализации стола составляет P1 руб., шкафа – P2 руб.
276 | Автор: 11Angelav | 2011-12-17, 13:59 | Изменено: 11Angelav - Сб, 2011-12-17, 14:00   |  Репутация: [ + 0 ]
Помогите пожалуйста решить несколько задач.

1. Составить программу, определяющую результат гадания на ромашке - "любит - не любит", взяв за исходное данное количество лепестков n.

2. Составить программу для проверки утверждния :"Результатами вычислений по формуле x^2+x+41 при 0<=x<=40 является простым числом"Все результаты вывести на экран.

3. Даны целые числа a1,a2...an. Вывести напечать только те числа, для которых ai>=i
277 | Автор: mastero | 2011-12-19, 14:20   |  Репутация: [ + 0 ]
277 | Автор: mastero | 2011-12-19, 14:20   |  Репутация: [ + 0 ]
1.var
n:integer;
begin
if n mod 2=0 then writeln('Ne lubit') else writeln('Lubit');
end.
2.var
i,x:integer;
begin
for x:=0 to 40 do
write(x*x+x+41,' ');
end.

3.
var
a:array[1..100]of integer;
i,n:integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]>=i then write(a[i],' ');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
278 | Автор: Berestovskiy | 2011-12-19, 15:50   |  Репутация: [ + 211 ]
Помогите плиззз решить задачи, хоть немного:
1. Даны переменные А, В и С. Изменить их значения переместив содержимое А в С, С в В и В в А. И вывести новые значения переменных.
2. Дан массив размера N, найти номер его последнего локального максимума
3. Дан двумерный массив размера M*N (M-четное число). Поменять местами верхнюю и нижнюю половины матрицы
4. Дана строка символов до точки. Группы символов в ней между группами проблов считаются словами. Определить длинну самого длинного и амого короткого слова.
5. Описать функцию DegToRad(D) вещественного типа, находящую величину угла в радианах, еслидана его величина D в градусах (D вещественное число, 0 < D < 360). Воспользоваться следующим соотношением: 180=Пи радианов. В качестве значения Пи использовать 3.14. С помощью фунции DegToRad перевести в радианы пять углов.
279 | Автор: MeryD | 2011-12-19, 21:15   |  Репутация: [ + 0 ]
Выручайте братцы

Задание для лабораторной работы 3.
Циклические алгоритмы.
Вариант 1
Пользователь вводит целое положительное число m. Найти наименьшее натуральное число k, при котором 3k > m. Вывести на экран таблицу степеней числа 3 (от нулевой до 15-й).
Задание для лабораторной работы 3.
Циклические алгоритмы.
Вариант 2
Пользователь вводит целое положительное число m. Найти наибольшее натуральное число k, при котором 3k < m. Вывести на экран таблицу степеней числа 3 (от нулевой до 15-й).
Задание для лабораторной работы 3.
Циклические алгоритмы.
Вариант 3
Пользователь вводит целое положительное число m. Найти наименьшее натуральное число k, при котором 5k > m. Вывести на экран таблицу степеней числа 5 (от нулевой до 12-й).
Задание для лабораторной работы 3.
Циклические алгоритмы.

___________________

Циклические алгоритмы.
Вариант 1
Числа Фибоначчи определяются так: первое и второе числа равны 1, каждое следующее равно сумме двух предыдущих. Составить программу, которая находит первые k чисел Фибоначчи (k – задается пользователем).
Определить номер последнего числа Фибоначчи, которое входит в диапазон типа integer (longint). Вывести в виде таблицы данное число Фибоначчи и три предыдущих с их номерами.
Задание для самостоятельной работы 3.
Циклические алгоритмы.
Вариант 2
Числа Фибоначчи определяются так: первое и второе числа равны 1, каждое следующее равно сумме двух предыдущих. Составить программу, которая находит сумму первых k чисел Фибоначчи (k – задается пользователем).
Определить количество первых чисел Фибоначчи, таких, что значение их суммы не превышает диапазона типа integer (longint). Вывести в виде таблицы данное значение суммы и три предыдущих значения суммы (с соответствующими количествами чисел Фибоначчи).
Задание для самостоятельной работы 3.
Циклические алгоритмы.
Вариант 3
Числа Люка определяются так: первое число равно 1, второе равно 3, каждое следующее равно сумме двух предыдущих. Составить программу, которая находит первые k чисел Люка (k – задается пользователем).
Определить номер последнего числа Люка, которое входит в диапазон типа integer (longint). Вывести в виде таблицы данное число Люка и три предыдущих с их номерами.
280 | Автор: PavelPavel | 2011-12-19, 21:59 | Изменено: PavelPavel - Пн, 2011-12-19, 22:01   |  Репутация: [ + 0 ]
280 | Автор: PavelPavel | 2011-12-19, 21:59 | Изменено: PavelPavel - Пн, 2011-12-19, 22:01   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Поиск: