экзамен через 10 дней помогите решить, 3 задачи |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
экзамен через 10 дней помогите решить, 3 задачи |
trew |
Сообщение
#1
|
Пионер в программировании Группа: Пользователи Сообщений: 66 Пол: Мужской Репутация: 0 |
1)Вычислить значения функции и распечатать в виде таблицы x, y: y=(2x+0,7)^16 для пяти равно отстоящих значениях x; x1=0,4 h=0,1
2) даны два целочисленных вектора А(6) и В(5) распечатать все элементы которые входят в оба вектора. 3) дана матрица вещественно численных А(10, 10) найти число 10 10 S=∑ мах А(i, j) распечатать 1<=i<=10 1 |
mind abuse |
Сообщение
#2
|
Студент Группа: Пользователи Сообщений: 35 Пол: Мужской Реальное имя: Владимир Репутация: 3 |
Код Program t1; uses crt; var a:array[1..100,1..100] of real; i,j,n,m:integer; begin clrscr; writeln('input number of columns and strings of the matrix'); write('n='); readln(n); writeln('inputing elements'); for i:=1 to n do for j:=1 to n do begin a[i,j]:=random(11); end; for i:=1 to n do begin writeln; for j:=1 to n do write(a[i,j]:1); end; for i:=1 to n do for j:=1 to n do if a[i,j]=10 then writeln('a[',i,',',j,']=10'); readln; end. С случайным заполнением матрицы числами до 11. А вот номер три - найти сумму максимальных элементов по строкам элементов? для матрицы с 10 строками и задаваемым с клавиатуры числом столбцов? Сообщение отредактировано: mind abuse - -------------------- ...Чего-то хотелось: не то конституции, не то севрюжины с хреном, не то кого-нибудь ободрать.
(М. Е. Салтыков-Щедрин) |
Текстовая версия | 5.05.2024 4:10 |