Новые сообщения · Правила  
Страница 17 из 38«1215161718193738»
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Решения задач на Паскале!Срочно нужно!
Да, так и должно быть, если не прописать:
перед "Var" - "uses crt;"
перед "end." - "readkey"

Что-бы увидеть ответ - нужно нажимать alt+F5

ctrl+F9 - Это запуск программы, т.е. можно будет вводить новые значения и получать новый ответ)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
321 | Автор: Berestovskiy | 2012-02-09, 09:04 | Изменено: Berestovskiy - Чт, 2012-02-09, 09:05   |  Репутация: [ + 211 ]
Оперативно. Пасибо за подсказку.

Добавлено (09.02.12, 10:25)
---------------------------------------------
всё работает. ура. респект вам и уважуха....

322 | Автор: GriF | 2012-02-09, 10:25   |  Репутация: [ + 0 ]
Обращайся ещё:)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
323 | Автор: Berestovskiy | 2012-02-09, 15:15   |  Репутация: [ + 211 ]
Помогите пожалуйста с задачей (pascal):
Создать для множества целых чисел дек деков. Заранее спасибо
324 | Автор: wwwgt | 2012-02-13, 10:47   |  Репутация: [ + 0 ]
Quote (wwwgt)
дек деков

Это что такое?)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
325 | Автор: Berestovskiy | 2012-02-13, 17:00   |  Репутация: [ + 211 ]
ПАМАГИТЕ. не могу понять препода вот прога:
program B1;
uses crt;
Var x,y: Real;
Begin
Write('Bвe Ёвe нaзeниe x: ');
Readln(x);
If x<=2 then y:=SQR(COS(x))+5 else y:=SQRT(x+1);
Writeln('ПpЁ x=',x:4:2,' y=',y:5:2);
readln
End

а вот вторая
f .fЁ .R l. ', * ^ ''
, r,y. ea ,
Begin
Write('Bвe Ёвe eвгю гpaнижг Ёнтepвa a a: ');
Readln(a);
Write('Bвe итe пpaвгю гpaнижг Ёнтepвa a b: ');
Readln(b);
Write('Bвe'Ёвe иaг h: ');
Readln(h);
k:=0;
fi:=a;
While fi<=b Do
Begin
fir:=fi*pi/180;
y:=Sin(fir);
Writeln('fi=',fi:6:2,' y=',y:5:2);
if y<0 then k:=k+1;
fi:=fi+h;
End;
write('Ko Ёзecввo oтpижaвe ьныx нaзeни = ',k);
readln
End
Препод пишет:
1. При выводе результата необходимо разделить значение аргумента и значение функции ХОТЯ БЫ ОДНИМ ПРОБЕЛОМ (см. примеры на стр. 15 методических указаний).
ГДЕ ПРОБЛЕМА.не пойму.ПОМОГИТЕ ПОЖАЛУЙСТА.а я плюсикоф наставлю;0)

Добавлено (14.02.12, 09:47)
---------------------------------------------
то что вверху тама кваказябры издержки переводчика.не обращ внимания.

326 | Автор: GriF | 2012-02-14, 09:47   |  Репутация: [ + 0 ]
Ну и слово "кваказябры" )))
Думаю проблема тут:
Quote (GriF)
Writeln('ПpЁ x=',x:4:2,' y=',y:5:2);

Попробуй:
writeln('ПpЁ x= ',x:4:2);
write('y= ',y:5:2);


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
327 | Автор: Berestovskiy | 2012-02-14, 10:04   |  Репутация: [ + 211 ]
Добрый день, помогите со следующим
Сформировать двумерный массив D размером N x 6 (N – количество строк, равное предпоследней цифре номера студенческого билета +2 6 – количество столбцов) с помощью генератора случайных чисел и вывести элементы массива на экран и в файл (см. п.3.4. и п.3.6.). В каждом столбце матрицы D найти максимальный элемент (оформить нахождение максимального элемента в виде функции). Среди найденных чисел найти минимальное и вывести на экран и в файл.
N - данном случая у меня 2
328 | Автор: amfetammin | 2012-02-14, 10:14 | Изменено: amfetammin - Вт, 2012-02-14, 10:15   |  Репутация: [ + 0 ]
328 | Автор: amfetammin | 2012-02-14, 10:14 | Изменено: amfetammin - Вт, 2012-02-14, 10:15   |  Репутация: [ + 0 ]
var
a:array[1..4,1..6]of integer;
i,j:integer;
begin
randomize;
for i:=1 to 4 do
for j:=1 to 6 do
a[i,j]:=random(100);
for i:=1 to 4 do begin
for j:=1 to 6 do
write(a[i,j],' ');
writeln;end;
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
329 | Автор: Berestovskiy | 2012-02-14, 10:26   |  Репутация: [ + 211 ]
Доброе утро!!!
Помоготе пожалуйста!!
Требуется написать программу, которая ввод данных в одномерный целочисленный массив, размерностью 12, осуществляет посредством цикла WHILE...DO, а вывод – REPEAT...UNTIL. Программа должна находить и заменять минимальный элемент массива на единицу.
330 | Автор: romanpolukarov | 2012-02-19, 10:36   |  Репутация: [ + 0 ]
var
a:array[1..12]of integer;
i,q,p:integer;
begin
p:=low(p);
i:=1;
while i<>13 do begin
read(a[i]);i:=i+1;end;
for i:=1 to 12 do
if a[i]>p then begin p:=a[i];q:=i;end;
a[q]:=1;
i:=1;
repeat
write(a[i],' ');
i:=i+1;
until i=13;
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
331 | Автор: Berestovskiy | 2012-02-20, 16:19   |  Репутация: [ + 211 ]
Добрый вечер!
Требуется написать программу, которая выводит столбец и строку двухмерного массива 5х4, на пересечении которых расположен минимальный элемент.

PROGRAM Minimum;
VAR i, j : Integer;
M : ARRAY [1..5, 1..4] OF Real;
min : Real;
BEGIN
FOR i:=1 TO 5 DO
FOR j:=1 TO 4 DO
BEGIN
WRITE('M[',i,',',j,']=');
READLN(M[i,j]);
END;
min:=M[1,1];
FOR i:=1 TO 5 DO
FOR j:=1 TO 4 DO
IF M[i,j]<min THEN min:=M[i,j];

Минимальный элемент я нашел, а дальше разобраться не могу!!!
332 | Автор: romanpolukarov | 2012-02-25, 16:34   |  Репутация: [ + 0 ]
Кто капсом учил писать?))
Код:

var
a:array[1..100,1..100]of integer;
i,j,q,w,p:integer;
begin
p:=high(p);
for i:=1 to 5 do
for j:=1 to 4 do begin
read(a[i,j]);
if a[i,j]<p then begin p:=a[i,j];q:=i;w:=j;end;end;
for i:=1 to 5 do
write(a[i,w],' ');
writeln;
for i:=1 to 4 do
write(a[q,i],' ');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
333 | Автор: Berestovskiy | 2012-02-25, 17:20   |  Репутация: [ + 211 ]
Помогите пожааалуйста с задачей или хотя бы с первой частью
Задана матрица (двумерный массив) A размером N x М , состоящая из действительных элементов. Получить новую матрицу путем умножения всех элементов данной матрицы на ее наибольший элемент. Сформировать вектор из элементов главной диагонали и отсортировать его по возрастанию.
334 | Автор: Tryam | 2012-02-26, 10:26   |  Репутация: [ + 0 ]
var
a:array[1..100,1..100]of integer;
b:array[1..100]of integer;
i,j,n,m,p:integer;
begin
read(n,m);
p:=low(p);
for i:=1 to n do
for j:=1 to m do begin
read(a[i,j]);
if a[i,j]>p then p:=a[i,j];end;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=a[i,j]*p;
write(a[i,j],' ');end;
writeln;end;
for i:=1 to n do
b[i]:=round(a[i,i]/p);
for i:=1 to n do
for j:=1 to n-1 do
if b[j]>b[j+1] then begin p:=b[j];b[j]:=b[j+1];b[j+1]:=p;end;
for i:=1 to n do
write(b[i],' ');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
335 | Автор: Berestovskiy | 2012-02-26, 11:19   |  Репутация: [ + 211 ]
Введите множество, состоящее из 20 целых чисел от 1 до 100.
Определите, сколько среди них простых чисел.
336 | Автор: M@RECS | 2012-02-26, 18:14   |  Репутация: [ + 0 ]
Спасибо большущее за решение!! Это конечно совсем уже наглость, но не подсобите ли с блок схемой? буду признательна, а если нет, то всё равно спасибо за задачку
337 | Автор: Tryam | 2012-02-26, 20:09   |  Репутация: [ + 0 ]
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
338 | Автор: Berestovskiy | 2012-02-26, 20:49   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
338 | Автор: Berestovskiy | 2012-02-26, 20:49   |  Репутация: [ + 211 ]
Вот задача: Создать модуль, в который включить несколько процедур и функций для работы с массивами, например, процедура поиска наименьших элементов нечетных столбцов, процедура поиска наи-больших элементов четных строк, функция нахождения суммы элементов побочной диагонали. В основной программе заполнить исходный массив, и затем вызвать имеющиеся процедуры и функ-ции. Обосновать выбор способов передачи параметров.
Помогите, пожалуйста, решить, очень прошу...

Добавлено (28.02.12, 20:43)
---------------------------------------------

Quote (Bozman)
Вот незадача...


Дзисай
339 | Автор: Bozman | 2012-02-28, 20:43   |  Репутация: [ + 0 ]


Дзисай
339 | Автор: Bozman | 2012-02-28, 20:43   |  Репутация: [ + 0 ]
Quote (M@RECS)
Введите множество, состоящее из 20 целых чисел от 1 до 100.
Определите, сколько среди них простых чисел.


Порыскай по форуму, недавно код на аналогичную задачу писал кому-то


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
340 | Автор: Berestovskiy | 2012-02-29, 00:19   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Страница 17 из 38«1215161718193738»
Поиск: