Реферат: 10 задач с решениями программированием на Паскале - текст реферата. Скачать бесплатно.
Банк рефератов, курсовых и дипломных работ. Много и бесплатно. # | Правила оформления работ | Добавить в избранное
 
 
   
Меню Меню Меню Меню Меню
   
Napishem.com Napishem.com Napishem.com

Реферат

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

Банк рефератов / Радиоэлектроника

Рубрики  Рубрики реферат банка

закрыть
Категория: Реферат
Язык реферата: Русский
Дата добавления:   
 
Скачать
Архив Zip, 14 kb, скачать бесплатно
Заказать
Узнать стоимость написания уникального реферата

Узнайте стоимость написания уникальной работы

Задача 1. Условие : Найти среднее арифметичес кое общей совокупности э лементов тех строк заданной матрицы , последний элемент кот орых равен 1. Программа : program S2_Z1; type m=array[1..100,1..100] of integer; var A:m; procedure vvod(m,n:integer;var x:m); var i,j: integer; begin writeln(' вве дите эл ементы массива '); for i:=1 to m do for j:=1 to n do read(x[i,j]); end; procedure arf(m,n:integer;var x:m); var i,j,s:integer;sr:real; begin for i:=1 to m do begin s:=0; sr:=0; if x[i,n]=1 then begin for j:=1 to n do s:=s+x[i,j]; sr:=s/n; writeln ('среднее арифметическое ' ,i,' строки равно ',sr:5:2); end; end; end; begin vvod(3,3,A); arf(3,3,A); end. Задача 2. Условие : Пол учить массив Х ( n ) по правилу : Х i =1, если в i -м столбце заданной матрицы есть хотя бы один элемент превышающий заданное значение С , иначе X i =0. Найти общее число элементов , больших С . Программа : program S 2_ Z 2; type m=array[1..100,1..100] of integer; mas=array[1..100] of integer; var A:m; procedure vvod(m,n:integer;var x:m); var i,j: integer; begin writeln (' введите элементы массива '); for i:=1 to m do for j:=1 to n do read(x[i,j]); end; procedure moped(m,n:integer;var y:m); var i,j,c,k:integer; X:mas; begin k :=0; writeln ('введите величину С ='); readln ( c ); for j:=1 to n do x[j]:=0; for j:=1 to n do for i:=1 to m do if y[i,j]>c then begin X[j]:=1; k:=k+1; end; writeln ('элементы массива Х :'); for j:=1 to n do write(X[j],' '); writeln ; writeln ('число элементов матрици превышающих число ', c ,' равно ', k ) end; begin vvod(2,5,A);moped(2,5,A);readln; end . Задача 3. Условие : Дан массив A (5,5). Изменить часть матрицы , находящуюся п од главной диагональю следующим образом : если элемент A [ i , j ] этой части матрицы больше элемента A [ j , i ], то задать элементу A [ i , j ] новое значение , равное полу сумме д вух этих элементов. П рограмма : program S2_Z3; type m=array[1..100,1..100] of real; var A:m; procedure vvod(m,n:integer;var x:m); var i,j: integer; begin writeln (' введите элементы массива '); for i:=1 to m do for j:=1 to n do read(x[i,j]); end; procedure mat(m,n:integer;var x:m); var i,j: integer; t:real; begin writeln ('изменё нный матрица A [ i , j ] будет выгляде ть так '); for i:=1 to m do for j:=1 to n do if i>j then if x[i,j] > x[j,i] then x[i,j]:=(x[i,j]+x[j,i])/2; for i:=1 to m do for j:=1 to n do write( A[i,j]:2:1,' '); end; begin vvod(5,5,A); mat(5,5,A); end . Задача 4. Условие : Определить самую длинную последовательность подряд идущих нулей в заданном одномерном массиве. Программа : program S2_Z4; type m=array [1..100] of integer; var A:m; procedure vvod(m:integer;var x:m); var i: integer; begin writeln (' введите элементы массива '); for i:=1 to m do read(x[i]); end; procedure moped(m:integer;var x:m); var i,k,n:integer; begin k:=0;n:=0; for i:=1 to m do if x[i]=0 then k:=k+1 else begin if x[i-1]=0 then if k>n then n:=k; k:=0;end; if k>n then writeln ('самая большая последо вательность нулей состовляет ', k ) else writeln ('самая большая последовательность нулей со стовл яет ', n ); end; begin vvod(20,A); moped(20,A); end . Задача 5. Написать программу , считывающую за данное количество одномерных массивов , определяющ ую минимальный элемент в каждом из них и подсчитывающую количество нулей среди эл ементов , расп оложенных за минимальным. Программа : program S2_Z5; type m=array[1..100] of integer; mas=array[1..10] of m; var A:mas; procedure vvod(kn:integer;x:mas); var y:m;i,t,k,min,k0:integer; begin for k:=1 to kn do begin k 0:=0; min :=1000; writeln ('введит е к ол-во эл-ов в ', k ,'-ом массиве '); read ( t ); writeln ('теперь введите элементы этого массива '); for i:=1 to t do read(y[i]); for i:=1 to t do if y[i]0 do begin k:=k+1;delete(st,pos('мама ',st),4); end; writeln ('кол-во слов мама в ', i ,'-ой строке ', k ); end ; end ; begin vvod(5,A); moped(5,A); end . Задача 7. Условие : Дан массив из 7 строк , в каждой из которых не более 50 элементов . Удалить из каждой строки все пробелы и записать количество удалённых пробелов в конец этой строки. Программа : program S2_Z7; type s=string[50]; ms=array[1..100] of s; var A:ms; procedure vvod(m:integer;var x:ms); var i:integer; begin for i:=1 to m do begin writeln('введите ',i,'-ю строку '); readln(A[i]);end; end; procedure prob(m:integer;var x:ms); var i,k:integer;st,p:s; begin for i:=1 to m do begin st:=x[i]; k:=0; while pos(' ',st)<>0 do begin delete(st,pos(' ',st),1);k:=k+1;end; str(k,p); insert(p,st,length(st)+1); writeln(i,'-ая строка :', st);end; end; begin vvod(7,A);prob(7,A); end . Задача 8. Условие : В текстовом файле отсортировать строки по возрастанию их дли н. Прграмма : program S2_Z8; 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); var i:integer; s:string; begin assign(f,'c:\1 .txt');rewrite (f); for i:=1 to n do begin writeln('введите ',i,'-ю строку ');readln(s); writeln(f,s); end; close(f); end; procedure w(var f:ft); var s : string ; begin writeln ('измененный ф аил будет выглядеть так :'); reset(f); while not eof(f) do begin readln(f,s); writeln(s) end; close(f); end ; begin writeln (' введите кол - во строк в файле '); readln ( k ); sozd(f1,k); reset(f1); while not eof(f1) do begin for i:=1 to k do begin readln(f1,s); A[i]:=s;end;end; for j:=1 to k do for i: =1 to k do if length(a[i])a[i-1] then begin s:=a[i];a[i]:=a[i-1];a[i-1]:=s;end; k:=0; for i:=1 to n do if a[i]=0 then begin s:=a[i];a[i]:=a[n-k];a[n- k]:=s;k:=k+1;end; for i:=1 to n do write(buf,a[i]); close(buf);close(f); erase(f); rename(buf,'c:\f.int'); end; procedure w(var f:fi); var a:integer; begin reset(f); while not eof(f) do begin read(f,a);write(a:4);end; end; begin writeln(' Задайте кол - во к омпонен тов фай ла ');readln(n); vvod(n,f1); sort(n,f1); w(f1); write; end. Блок схема : Задача 10. Условие : Записать в конец кажд ой строки текстового файла количество слов в этой строки. Программа : program S2_Z10; type ft=text; mas=array[1..100] of string; var f1:ft;k:integer; procedure sozd(var f:ft;n:integer); var i:integer; s:string; begin assign(f,'c:\f.txt');rewrite (f); for i:=1 to n do begin writeln('введите ',i,'-ю строку ');readln(s); writeln(f,s); end; clo se(f); end; procedure kslov(var f:ft); var s,pk,p:string;k:integer; buf:ft; begin reset(f); assign(buf,'c:\buf.txt'); rewrite(buf); while not eof(f) do begin k:=0;readln(f,s); p:=s; while pos(' ',p)>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; close(f); close(buf); erase(f); rename(buf,'c:\f.txt'); end; procedure w(var f:ft); var s : string ; begin writeln ('измененный ф аил будет выглядеть так :'); reset(f); while not eof(f) do begin readln(f,s ); writeln(s) end; close(f); end ; begin writeln (' введите кол - во строк в файле '); readln ( k ); sozd(f1,k); kslov(f1);w(f1); end. Блок схема :
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Юриспруденция
 
35Иностранные языки
36Информатика, информационные технологии
37Базы данных
38Компьютерные сети
39Программирование
40Искусство и культура
41Краеведение
42Культурология
43Музыка
44История
45Биографии
46Историческая личность
47Литература
 
48Маркетинг и реклама
49Математика
50Медицина и здоровье
51Менеджмент
52Антикризисное управление
53Делопроизводство и документооборот
54Логистика
 
55Педагогика
56Политология
57Правоохранительные органы
58Криминалистика и криминология
59Прочее
60Психология
61Юридическая психология
 
62Радиоэлектроника
63Религия
 
64Сельское хозяйство и землепользование
65Социология
66Страхование
 
67Технологии
68Материаловедение
69Машиностроение
70Металлургия
71Транспорт
72Туризм
 
73Физика
74Физкультура и спорт
75Философия
 
76Химия
 
77Экология, охрана природы
78Экономика и финансы
79Анализ хозяйственной деятельности
80Банковское дело и кредитование
81Биржевое дело
82Бухгалтерский учет и аудит
83История экономических учений
84Международные отношения
85Предпринимательство, бизнес, микроэкономика
86Финансы
87Ценные бумаги и фондовый рынок
88Экономика предприятия
89Экономико-математическое моделирование
90Экономическая теория

 Анекдоты - это почти как рефераты, только короткие и смешные Следующий
Виталий Кличко в твиттере: На днях был в Нидерландах. Люди там замечательные. Приглашали и в Голландию, но я, по понятным причинам, отказался туда ехать.
Anekdot.ru

Узнайте стоимость курсовой, диплома, реферата на заказ.

Обратите внимание, реферат по радиоэлектронике "10 задач с решениями программированием на Паскале", также как и все другие рефераты, курсовые, дипломные и другие работы вы можете скачать бесплатно.

Смотрите также:


Банк рефератов - РефератБанк.ру
© РефератБанк, 2002 - 2016
Рейтинг@Mail.ru