Задачи на языке Pascal

Программа Сварочные Процессы

Ghost — Sun, 14 Apr 2013 21:23:05 GMT

Теория сварочных процессов
Теоретические основы сварки металлов и сплавов
Холодные трещины при сварке — это локальное хрупкое межкристаллитное разрушение Ме сварных соединений возникающее как правило после сварки в интервале температур ниже 2000С. Горячая трещина имеет окислённый вид, холодная трещина блестящая. об этом и многом другом на этом сайте

программа подсчитывает сумму всех элементов одномерного массива

Ghost — Mon, 11 Feb 2013 19:21:24 GMT

Условие задачи:
Написать программу которая подсчитывает сумму всех элементов одномерного массива.

Код программы:

Код

var mas:array[1..10] of integer;
  summ:longint;
  i:integer;
begin
  writeln('vvedite 10 elementov massiva');
  summ:=0;
  for i:=1 to 10 do begin
  readln( mas[i] );
  summ:=summ+mas[i];
  end;
  writeln( 'Summa elementov massiva = ', summ );
end.

Эта программа написана на языке программирования Pascal

программа подсчтитывает суммы цифр введенного числа

Ghost — Mon, 11 Feb 2013 19:18:38 GMT

Условие задачи:
Нужно написать программу на Pascal, которая подсчтитывает суммы цифр введенного числа.

Код программы:

Код

var aa,xx:integer;
  i,summ:integer;
begin
  writeln('vvedite celoe chislo');
  readln( aa ); xx:=aa;
  summ:=0;
  while ( xx<>0 ) do begin
  summ := summ + (xx mod 10);
  xx := xx div 10;
  end;
  writeln( 'Summa cifr chisla ',aa,' = ', summ );
end.

Данная программа написана на языке программирования Pascal

программа которая выводит на экран все простые числа

Ghost — Mon, 11 Feb 2013 19:13:31 GMT

Условие задачи:
Требуется написать программу которая выводит на экран все простые числа до 2000.

Код программы:

Код

Эта программа написана на языке программирования Pascal

Программа для вывода на экран всех совершенных чисел

Ghost — Fri, 08 Feb 2013 10:35:40 GMT

Условие задачи:
Написать код программы для вывода на экран всех совершенных чисел до 20000.

Код программы:

Код

const MAX = 20000;
var i,j,ss,lim,cc,dl : word;
begin
  for i:=1 to MAX do begin
  ss:=1; lim:=round(sqrt(i));
  for j:=2 to lim do begin
  cc:=i mod j;
  dl:=i div j;
  if cc = 0 then begin
  inc(ss,j);
  if (j<>dl) then inc(ss,dl); { dvajdy ne skladyvat' koren' chisla}
  end;
  end;
  if ss=i then writeln(i);
  end;
end.

программа написана на языке Pascal.

Программа печати всех делителей натурального числа A

Ghost — Fri, 08 Feb 2013 10:27:18 GMT

Условие задачи:
Нужно написать программу печати всех делителей натурального числа A.

Код программы:

Код

var a,m,c,del:word;
begin
  readln( a );
  m:=1;
  while ( m <= sqrt(a) ) do begin
  c:=a mod m;
  del:=a div m;
  if c = 0 then begin
  writeln( m );
  if m <> del then writeln( del );
  end;
  inc( m );
  end;
end.

Программа написана на языке Pascal.

программу которая определяет является ли введенное слово перевертышем

Ghost — Fri, 08 Feb 2013 10:20:42 GMT

Условие задачи:
Написать программу которая определяет является ли введенное слово так называемым "перевертышем". Т.е. словом которое можно точно так же прочитать наоборот.
Например, "казак" - перевертыш. Или "шалаш".

Код программы:

Код

var st1,st2:string;
  i:integer;
begin
  readln(st1); st2:='';
  for i:=length(st1) downto 1 do begin
  st2:=st2+st1[i];
  end;
  if st1=st2 then writeln(st1, ' - перевертыш')
  else writeln(st1, ' - не перевертыш');
end.

программа написана на языке Pascal.

Организовать перестановку букв в слове

Ghost — Fri, 08 Feb 2013 10:12:39 GMT

условие задачи:
Организовать перестановку букв в слове.
Т.е. циклический сдвиг вправо.

код программы:

Код

var slovo:string;
  i,j,n:integer;
begin
  readln(slovo);
  slovo:=slovo[length(slovo)] + copy(slovo,1,length(slovo)-1);
  writeln(slovo);
end.

программа написана на языке Pascal.

Написать программу, которая будет подсчитывать количество

Ghost — Fri, 08 Feb 2013 10:09:04 GMT

условие задачи:
Написать программу, которая будет подсчитывать количество разных букв в введенном с клавиатуры слове.

код программы:

Код

var s:string;
  kol:real;
  i,j,n:integer;
begin
  kol:=0;
  readln(s);
  for i:=1 to length(s) do begin
  n:=0;
  for j:=1 to length(s) do begin
  if s[i]=s[j] then inc(n);
  end;
  kol:=kol+1/n;
  end;
  writeln('количество различных букв = ', kol:1:0);
end.

программа написана на языке Pascal.

Даны две квадратные матрицы 4-го порядка. Нужно написать

Ghost — Tue, 05 Feb 2013 08:55:41 GMT

Условие задачи:
Даны две квадратные матрицы 4-го порядка. Нужно написать программу вычисляющую квадрат той матрицы, у которой максимум элементов наибольший.

код программы:

Код

Uses Crt;
Const n = 4;
Type mat = array[1..n,1..n] of word;
Var a,b,c : mat;
  i,j : word;

Function max(mm:mat; nn:word):word;
Var ii,jj,ma :word;
Begin
  ma:=0;
  For ii:=1 to nn do
  For jj:=1 to nn do
  If mm[ii,jj]>ma then ma:=mm[ii,jj];
  max:=ma;
End;

Procedure Vivod(tt:mat;n3:word);
Var i3,j3 :word;
Begin
  For i3:=1 to n3 do
  begin
  For j3:=1 to n3 do Write(tt[i3,j3],' ');
  Writeln;
  end;
End;

Procedure pm(aa,bb:mat;var cc:mat;n1:word);
Var i1,i2,j1,k1 :word;
Begin
  For i1:=1 to n1 do
  For j1:=1 to n1 do
  Begin
  k1:=0;
  For i2:=1 to n1 do k1:=k1+aa[i1,i2]*bb[i2,j1];
  cc[i1,j1]:=k1;
  End;
End;

BEGIN

  For i:=1 to n do
  For j:=1 to n do
  begin
  Write('Введите a[',i,',',j,']: ');
  Readln(a[i,j]);
  end;
  For i:=1 to n do
  For j:=1 to n do
  begin
  Write('Введите b[',i,',',j,']: ');
  Readln(b[i,j]);
  end;
  If max(a,n)>max(b,n) then pm(a,a,c,n) else pm(b,b,c,n);
  Vivod(c,n);
END.