Задания по Паскалю

@manoichi · Регистрация: 17.12.2010

Студворк — интернет-сервис помощи студентам

Люди помогите кто чем может.Нужна помочь решить задачи по паскалю иначе друга выгонят.Я ему уже решаю он рядом сидит тоже пишит.Но все нам не осилить.
Вот задачи(Заранее спасибо):
4.ввести час суток и соответственно ему вывести «доброе утро», «добрый день», «добрый вечер», «доброй ночи».
8.Вычислить сумму cos (1)+cos(2)+…+cos(n) для n введенного с клавиатуры.
11.подсчитать произведение элементов массива A[1..10,1..10], элементы которого равны A[I,J]=(3+I)/(J*5), где I,J-индексы массива.
4.Разработать алгоритм методом пошаговой детализации и программу решения задачи, в которой заменить нулями все элементы, расположенные на побочной диагонали и выше ее матрицы размером 4х4, состоящей из элементов целого типа. Основные функции программы оформить в виде процедур и функций. Основные подзадачи описать в комментариях перед программой.
6.Разработать алгоритмы и программы решения задач, в которых необходимо при помощи пользовательской функции пользователя протабулировать функцию y=cos(7+x/3) в диапазоне параметра от 0.01 до 0.9 с шагом 0.01.
12.Разработать алгоритм и программу решения задачи с использованием модуля пользователя, в которой заменить нулями все элементы, расположенные на побочной диагонали и выше ее матрицы размером 6х6, состоящей из элементов целого типа.
4.В заданном тексте подсчитать количество слов до первой запятой.
17.Дан массив на 10 чисел. Рассортировать его по возрастанию после чего найти минимальные и минимальный элементы.
28.Разработать алгоритм и программу решения задачи, в которой необходимо сформировать на экране горизонтальное меню при помощи процедур и функций модулей CRT и DOS. Меню должно содержать следующие пункты: «Файл», «Правка», «Вид», «Вставка», «Формат», «Дата», «Выход». Для пункта меню «Дата» должен быть вывод текущей даты на экран. Для пункта меню «Выход» должен быть реализован обработчик выхода из программы.
25.Разработать алгоритм и программу решения задач: необходимо при помощи процедур и функций модуля Graph нарисовать кружку.
31.найти сумму и произведение всех отрицательных элементов двумерного динамического массива A[N,N], состоящего из элементов целого типа.

@patricksmirnov · 17.12.2010, 22:42

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
//11.ïîäñ÷èòàòü ïðîèçâåäåíèå ýëåìåíòîâ ìàññèâà A[1..10,1..10],
//ýëåìåíòû êîòîðîãî ðàâíû A[I,J]=(3+I)/(J*5), ãäå I,J-èíäåêñû ìàññèâà.
program za11;
uses crt;
const n=10;
      m=10;
type massiv=array[1..n,1..m] of integer;
var a:massiv;
i,j,pr,k:integer;
Begin
Randomize;
pr:=1;
k:=0;
for i:=1 to n do
begin
     for j:=1 to m do
     begin
     a[i,j]:=random(10)+1;
     write(a[i,j]:3);
     end;
    writeln;
end;
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]=(3+I)/(J*5) then
   begin
        writeln('a[',i,',',j,']=',a[i,j]);
        pr:=pr*a[i,j];
        inc(k);
   end;
end;
 if k>0 then  writeln('proizvedenie= ',pr);
End.

@SuPeR XaKer · 17.12.2010, 22:45

A[I,J]=(3+I)/(J*5)

Я думаю это элементы массива так образуются

@patricksmirnov · 17.12.2010, 23:15

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//8.Âû÷èñëèòü ñóììó cos (1)+cos(2)+…+cos(n) äëÿ n ââåäåííîãî ñ êëàâèàòóðû.
program sd;
uses crt;
var i,n:integer;
sum:real;
Begin
write('n= ');readln(n);
for i:=1 to n do
begin
if i=n then write('cos(',i,')=')
else
write('cos(',i,')+');
sum:=sum+cos(i);
end;
write(sum);
End.

Добавлено через 17 минут
SuPeR XaKer,тогда так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
//11.ïîäñ÷èòàòü ïðîèçâåäåíèå ýëåìåíòîâ ìàññèâà A[1..10,1..10],
//ýëåìåíòû êîòîðîãî ðàâíû A[I,J]=(3+I)/(J*5), ãäå I,J-èíäåêñû ìàññèâà.
program za11;
uses crt;
const n=10;
      m=10;
type massiv=array[1..n,1..m] of real;
var a:massiv;
i,j,k:integer;
pr:real;
Begin
pr:=1;
for i:=1 to n do
begin
     for j:=1 to m do
     begin
     a[i,j]:=(3+I)/(J*5);
     write(a[i,j]:1:1,' ');
     end;
    writeln;
end;
 
for i:=1 to n do
for j:=1 to m do  pr:=pr*a[i,j];
 
writeln('proizvedenie= ',pr:5);
End.

Добавлено через 10 минут

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//6.Ðàçðàáîòàòü àëãîðèòìû è ïðîãðàììû ðåøåíèÿ çàäà÷,
//â êîòîðûõ íåîáõîäèìî ïðè ïîìîùè ïîëüçîâàòåëüñêîé ôóíêöèè ïîëüçîâàòåëÿ
//ïðîòàáóëèðîâàòü ôóíêöèþ y=cos(7+x/3)
//â äèàïàçîíå ïàðàìåòðà îò 0.01 äî 0.9 ñ øàãîì 0.01.
Если правильно понял,то вот:
program zadacha6;
uses crt;
var i:integer;
function protab(a:integer):real;
begin
     protab:=cos(7+a*0.01/3);
end;
 
Begin
for i:=1 to 90 do
begin
delay(200);
writeln('y(',i*0.01,')=cos(7+',i*0.01,'/',3,')=',protab(i));
end;
 
End.

@manoichi · 18.12.2010, 09:33 **[ТС]**

Ещё кто-то может чем-то помочь?

@Dekio · 18.12.2010, 10:55

Сообщение от manoichi

1.найти сумму и произведение всех отрицательных элементов двумерного динамического массива A[N,N], состоящего из элементов целого типа.

Pascal
1
2
3
4
5
6
7
for i:=1 to n do
for j:=1 to m do
if arr[i,j]<0 then
begin
inc(s,arr[i,j]);
p:=p*arr[i,j];
end;

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@manoichi 2 / 2 / 0 Регистрация: 17.12.2010 Сообщений: 12

	Задания по Паскалю 17.12.2010, 22:28. Показов 4373. Ответов 5 Метки нет (Все метки) Люди помогите кто чем может.Нужна помочь решить задачи по паскалю иначе друга выгонят.Я ему уже решаю он рядом сидит тоже пишит.Но все нам не осилить. Вот задачи(Заранее спасибо): 4.ввести час суток и соответственно ему вывести «доброе утро», «добрый день», «добрый вечер», «доброй ночи». 8.Вычислить сумму cos (1)+cos(2)+…+cos(n) для n введенного с клавиатуры. 11.подсчитать произведение элементов массива A[1..10,1..10], элементы которого равны A[I,J]=(3+I)/(J*5), где I,J-индексы массива. 4.Разработать алгоритм методом пошаговой детализации и программу решения задачи, в которой заменить нулями все элементы, расположенные на побочной диагонали и выше ее матрицы размером 4х4, состоящей из элементов целого типа. Основные функции программы оформить в виде процедур и функций. Основные подзадачи описать в комментариях перед программой. 6.Разработать алгоритмы и программы решения задач, в которых необходимо при помощи пользовательской функции пользователя протабулировать функцию y=cos(7+x/3) в диапазоне параметра от 0.01 до 0.9 с шагом 0.01. 12.Разработать алгоритм и программу решения задачи с использованием модуля пользователя, в которой заменить нулями все элементы, расположенные на побочной диагонали и выше ее матрицы размером 6х6, состоящей из элементов целого типа. 4.В заданном тексте подсчитать количество слов до первой запятой. 17.Дан массив на 10 чисел. Рассортировать его по возрастанию после чего найти минимальные и минимальный элементы. 28.Разработать алгоритм и программу решения задачи, в которой необходимо сформировать на экране горизонтальное меню при помощи процедур и функций модулей CRT и DOS. Меню должно содержать следующие пункты: «Файл», «Правка», «Вид», «Вставка», «Формат», «Дата», «Выход». Для пункта меню «Дата» должен быть вывод текущей даты на экран. Для пункта меню «Выход» должен быть реализован обработчик выхода из программы. 25.Разработать алгоритм и программу решения задач: необходимо при помощи процедур и функций модуля Graph нарисовать кружку. 31.найти сумму и произведение всех отрицательных элементов двумерного динамического массива A[N,N], состоящего из элементов целого типа. 0

@manoichi 2 / 2 / 0 Регистрация: 17.12.2010 Сообщений: 12
	18.12.2010, 09:33 [ТС]
	Ещё кто-то может чем-то помочь? 0