Реферат: 10 задач с решениями программированием на Паскале

⚡ 👉🏻👉🏻👉🏻 ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻

Условие: Найти среднее арифметическое общей совокупности элементов тех строк заданной матрицы, последний элемент которых равен 1.
type m=array[1..100,1..100] of integer;
procedure vvod(m,n:integer;var x:m);
begin writeln('введите элементы массива');
procedure arf(m,n:integer;var x:m);
for i:=1 to m do begin s:=0; sr:=0;
writeln ('среднее арифметическое ',i,' строки равно ',sr:5:2); end; end;
Условие: Получить массив Х(n) по правилу: Х i
=1, если в i-м столбце заданной матрицы есть хотя бы один элемент превышающий заданное значение С, иначе X i
=0. Найти общее число элементов, больших С.
type m=array[1..100,1..100] of integer; mas=array[1..100] of integer;
procedure vvod(m,n:integer;var x:m);
begin writeln('введите элементы массива');
procedure moped(m,n:integer;var y:m);
begin k:=0; writeln('введите величину С='); readln(c);
if y[i,j]>c then begin X[j]:=1; k:=k+1; end;
writeln('число элементов матрици превышающих число ',c,' равно ',k)
Условие: Дан массив A(5,5). Изменить часть матрицы, находящуюся под главной диагональю следующим образом: если элемент A[i,j] этой части матрицы больше элемента A[j,i], то задать элементу A[i,j] новое значение, равное полу сумме двух этих элементов.
type m=array[1..100,1..100] of real;
procedure vvod(m,n:integer;var x:m);
writeln('введите элементы массива');
procedure mat(m,n:integer;var x:m);
writeln('изменённый матрица A[i,j] будет выглядеть так');
if i>j then if x[i,j] > x[j,i] then x[i,j]:=(x[i,j]+x[j,i])/2;
Условие: Определить самую длинную последовательность подряд идущих нулей в заданном одномерном массиве.
begin writeln('введите элементы массива');
procedure moped(m:integer;var x:m);
writeln('самая большая последовательность нулей состовляет ',k)
writeln('самая большая последовательность нулей состовляет ',n);
Написать программу, считывающую заданное количество одномерных массивов, определяющую минимальный элемент в каждом из них и подсчитывающую количество нулей среди элементов, расположенных за минимальным.
type m=array[1..100] of integer; mas=array[1..10] of m;
writeln('введите кол-во эл-ов в ',k,'-ом массиве');read (t);
writeln('теперь введите элементы этого массива');
writeln('минимальный элемент этого массива равен ',min);
writeln('количество нулей массива после минимального значения равно ',k0);
Условие: Написать программу подсчитывающую в каждой из заданных строк количество слов `мама`.
type str=string[100]; ms=array[1..100] of str;
procedure vvod(m:integer;var x:ms);
for i:=1 to m do begin writeln('введите ',i,'-ю строку');
procedure moped(m:integer;var x:ms);
while pos('мама',st)<>0 do begin k:=k+1;delete(st,pos('мама',st),4); end;
writeln('кол-во слов мама в ',i,'-ой строке ',k);end;end;
Условие: Дан массив из 7 строк, в каждой из которых не более 50 элементов. Удалить из каждой строки все пробелы и записать количество удалённых пробелов в конец этой строки.
type s=string[50]; ms=array[1..100] of s;
procedure vvod(m:integer;var x:ms);
for i:=1 to m do begin writeln('введите ',i,'-ю строку');
procedure prob(m:integer;var x:ms);
while pos(' ',st)<>0 do begin delete(st,pos(' ',st),1);k:=k+1;end;
insert(p,st,length(st)+1); writeln(i,'-ая строка:', st);end;
Условие: В текстовом файле отсортировать строки по возрастанию их длин.
type ft=text; mas=array[1..100] of string;
var f1:ft;k,i,j:integer;s:string;A:mas;
procedure sozd(var f:ft;n:integer);
begin assign(f,'c:\1.txt');rewrite (f);
begin writeln('введите ',i,'-ю строку');readln(s);
begin writeln('измененный фаил будет выглядеть так:');
while not eof(f) do begin readln(f,s); writeln(s)
begin writeln('введите кол-во строк в файле'); readln(k);
begin for i:=1 to k do begin readln(f1,s); A[i]:=s;end;end;
if length(a[i])1 do begin k:=k+1; delete(p,1,pos(' ',p));end;
str(k,pk);insert(pk,s,length(s)+1); writeln(buf,s);end;
begin writeln('измененный фаил будет выглядеть так:');
while not eof(f) do begin readln(f,s); writeln(s)
writeln('введите кол-во строк в файле'); readln(k);

Название: 10 задач с решениями программированием на Паскале
Раздел: Рефераты по информатике, программированию
Тип: реферат
Добавлен 19:02:02 25 сентября 2005 Похожие работы
Просмотров: 636
Комментариев: 21
Оценило: 8 человек
Средний балл: 4
Оценка: 4   Скачать

Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Если Вам нужна помощь с учебными работами, ну или будет нужна в будущем (курсовая, дипломная, отчет по практике, контрольная, РГР, решение задач, онлайн-помощь на экзамене или "любая другая" учебная работа...) - обращайтесь: https://clck.ru/P8YFs - (просто скопируйте этот адрес и вставьте в браузер) Сделаем все качественно и в самые короткие сроки + бесплатные доработки до самой сдачи/защиты! Предоставим все необходимые гарантии.
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.

Реферат: 10 задач с решениями программированием на Паскале
Курсовая работа по теме Понятие и основные элементы процесса управления
Отчет по практике по теме Аналіз діяльності товариства з обмеженою відповідальністю 'Керамбуд'
Сплав Жс32 Ви Реферат
Курсовая Работа Молоко
Реферат по теме Деятельность мозга
Реферат Рубка Металла
Дипломная работа: Особенности методики обучения прыжкам через скакалку детей старшего дошкольного возраста средствами художественной гимнастики
Эссе Дружба Народов Испытанная Веками
Курсовая работа по теме Эффективный менеджер
Композиционные Части Эссе
Реферат: Культура одежды делового человека. Скачать бесплатно и без регистрации
Реферат: Дизбактеріоз у дітей
Реферат: Исследования и информация в туризме
Реферат по теме Становление античной цивилизации как морской и торговой
Курсовая работа по теме Вычисление термодинамических функций
Статья: Системы обработки и хранения корпоративной электронной почты
Контрольная работа по теме Роль религии в формировании правовых институтов древнего Рима
Контрольная работа по теме Лабораторний стенд 'Мікропроцесорні регулятори'
Контрольная Работа Периодический Закон И Система
"Характеристика политического лидера" Петр Аркадьевич Столыпин
Доклад: Христианские церкви в Макао
Реферат: Автоматизированные обучающие системы
Доклад: Вывод израильских войск с территории Южного Ливана. Май 2000.;