0 / 0 / 0
Регистрация: 10.04.2016
Сообщений: 18
1

Напишите пожалуйста программы с фото

14.04.2019, 15:55. Показов 354. Ответов 2
Метки нет (Все метки)

Буду благодарен за решение задач с фото
Вложения, ожидающие проверки
Тип файла: jpg IMG_20190414_155147.jpg
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.04.2019, 15:55
Ответы с готовыми решениями:

Напишите пожалуйста программы
433. Даны действительные числа s, t, a0,..., a12. Получить 2 3 p(1)-p(t)+p (s-t)-p (1),...

НАПИШИТЕ ПОЖАЛУЙСТА ПРОГРАММЫ НА ПАСКАЛЕ .ЧЕРЕЗ ФУНКЦИЮ ИЛИ ПРОЦЕДУРУ!
РЕШИТЕ ПОЖАЛУЙСТА !!!!!!!!!! ЗАВТРА КОНТРОЛЬНАЯ ПО ЭТИМ ЗАДАЧАМ!!!!!!!! ПРОШУ СИЛЬНО!!!!!!! ХОТЯ...

Напишите программу. Условия на фото

Напишите пожалуйста коды
Изображения во вложении

2
109 / 68 / 46
Регистрация: 13.01.2019
Сообщений: 288
14.04.2019, 16:54 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Uses Crt;
const
n=10;
var
a:array [1..n] of integer;
k,i:integer;
begin
writeln('massiv:');
k:=0;
for i:=1 to n do begin
a[i]:=random(201);
write(a[i]:4);
if a[i] div 100>0 then
k:=k+1;
end;
writeln;
if k=0 then begin
writeln('v massive net 3-hznach elementov');
end else
writeln('kol-vo 3-hznach elemenyov=',k);
end.
Добавлено через 12 секунд
Это задание 4

Добавлено через 11 минут
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
Uses Crt;
const
m=10;
var 
a: array [1..m, 1..m] of real;
n,i,j:integer;
s:real;
begin
writeln('razmeri mtrx');
read(n);
for i:=1 to n do 
for j:=1 to n do 
a[i,j]:=random(-10,10);
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
s:=0;
for i:=2 to n do begin
for j:=1 to i-1 do
if a[i,j]>=0 then begin
s:=s+a[i,j];
end;end;
writeln('summ el pod glav diag=',s);
end.
Это задание 6

Добавлено через 7 минут
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
Uses Crt;
const
m=10;
var 
a: array [1..m, 1..m] of real;
n,i,j:integer;
s:real;
begin
writeln('razmeri mtrx');
read(n);
writeln('sama mtrx');
for i:=1 to n do 
for j:=1 to n do 
read(a[i,j]);
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
s:=0;
for i:=2 to n do begin
for j:=1 to i-1 do
if a[i,j]>=0 then begin
s:=s+a[i,j];
end;end;
writeln('summ el pod glav diag=',s);
end.
Добавлено через 2 минуты
Точнее вот это 6, и да как у прямоугольных матриц нет диагоналей, поэтому во благо условия я сделал квадратную матрицу, надеюсь учитель не докопается до этого))
1
Эксперт Pascal/Delphi
6799 / 4560 / 4815
Регистрация: 05.06.2014
Сообщений: 22,438
14.04.2019, 18:21 3
16.Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
18.Запрещено размещать задания и решения в виде картинок и других файлов с их текстом.
https://www.cyberforum.ru/announcement.php?a=3
 Комментарий модератора 
Тема закрыта.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.04.2019, 18:21
Помогаю со студенческими работами здесь

напишите программу пожалуйста
Заполните файл последовательного доступа f целыми числами,полученными с помощью генератора...

Напишите,пожалуйста, программу на паскале
Найти min и max

Напишите, пожалуйста, программу, вычисляющую 2^n
Напишите,пожалуйста, программу, вычисляющую 2^n. Вводится целое неотрицательное число N, которое...

Напишите пожалуйста программу на паскале
Подсчитать количество различных (значащих) цифр в десятичной записи натурального числа n и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Закрытая тема Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru