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

@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;

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

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

	Задания по Паскалю 17.12.2010, 22:28. Показов 4377. Ответов 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