Поменять порядок цифр числа на обратный

@Girl_night · Регистрация: 14.10.2009

Author24 — интернет-сервис помощи студентам

В архиве прилагаю мои, пока что нерешенные практические работы. Нужно решить там задачки(на турбопаскале) и всякие задания к практике

Уважаемые гуру, избавте блондинку от двойки по програмированию! Буду очень благодарна)

@Puporev · 14.10.2009, 16:06

Girl_night, С такими запросами в раздел Фриланс, там за деньги от всего избавят.

@Давид · 14.10.2009, 16:10

Girl_night,

2.Дано натуральное число п. Поменять порядок цифр числа на обратный. Например, из числа 12345, получаем число 54321.

Pascal

uses crt;
Var n,i,na:integer;
     s,ob:string;
begin
clrscr;
 Writeln ('Vvedite chislo ');
 Readln (n);
 str (n,s);
ob:=' ';
 for i:=length(s) downto 1 do na:=na+s[i];
 ob:=na;
writeln ('Perevorot ',na);
Readln
end.

@Girl_night · 14.10.2009, 16:16 **[ТС]**

Давид, очень благодарна. Спасибо

@Давид · 14.10.2009, 16:36

1.Если целое m делится на целое число n, то вывести на экран частное от деления, в противном случае вывести сообщение « m на n нацело не делится».

Pascal

uses crt;
Var m,n:integer;
begin
clrscr;
 Write ('M=');
 Readln (m);
 write ('N=');
 Readln (n);
if m mod n = 0 then writeln ('Rezultat =',m/n)
               else writeln (' Chisla nedelimy ');
readln
end.

Добавлено через 7 минут
Girl_night,

2.В данной действительной квадратной матрице порядка N*N: найти максимальный элемент на диагонали.

Pascal

Program max;
Uses crt;
 var b:array [1..100,1..100] of integer;
     i,j,n,max:integer;
begin
clrscr;
 Writeln (' vvedite razmernost matrici ');
 Readln (n);
  for i:=1 to n do
    for j:=1 to n do begin
                     write ('B[',i,',',j,']=');
                     Readln (b[i,j]);
                     end;
writeln (' Polychena matrica ');
for i:=1 to n do
 begin
 for j:=1 to n do
    Write ('  ',b[i,j],' ');
    writeln;
 end;
writeln;
for j:=1 to n do begin
max:=b[1,1];
for j:=1 to n do
if b[j,j]>max then max:=b[j,j]; end;
Writeln ('maximalnyi element diagonali -  ',max);
Readln
end.

Добавлено через 10 минут
Girl_night,

1.Дана действительная матрица порядка M*N. Найти: сумму наибольших значений ее столбцов

Pascal

Program maxim;
Uses crt;
 var b:array [1..100,1..100] of integer;
     a:array [1..100] of integer;
     i,j,n,max,summ:integer;
begin
clrscr;
 Writeln (' vvedite razmer matrici ');
 Readln (n);
  for i:=1 to n do
    for j:=1 to n do begin
                     write ('B[',i,',',j,']=');
                     Readln (b[i,j]);
                     end;
writeln (' Polychena matrica ');
for i:=1 to n do
 begin
 for j:=1 to n do
    Write ('  ',b[i,j],' ');
    writeln;
 end;
writeln;
for j:=1 to n do begin
                      max:=b[1,j];
                      for i:=2 to n do
                      if b[i,j]>=max then max:=b[i,j];
                      a[j]:=max;
                      end;
Writeln (' maxim elementy stolbcov ');
for j:=1 to n do
write (a[j]:4);
Summ:=0;
For i:=1 to n do
 summ:=summ+a[i];
writeln;
Writeln (' Summa maxim elementov = ',summ);
Readln
end.

Это решение ограничивается квадратной матрицей....думаю переправить на кол-во строк и кол-во столбцов вам труда не составит!

@Girl_night · 14.10.2009, 16:48 **[ТС]**

попробуем.. еще раз огромное спасибо

@Girl_night · 15.10.2009, 16:05 **[ТС]**

Давид, остальные слишком трудны?

@Давид · 15.10.2009, 16:52

Girl_night, Решить то можно)))вот например еще одна задачка!

Дано натуральное число n (n≤27). Найти все трехзначные числа, сумма
цифр которых равна n.

Pascal

uses crt;
var n,i,k:integer;
    ch:array [1..999] of integer;
begin
clrscr;
repeat
writeln('Vvedite n ot 1 do 27:');
readln(n);
until n in [1..27];
k:=0;
for i:=100 to 999 do
if (i div 100 + i div 10 mod 10 + i mod 10)=n then ch[i]:=ch[i]+i;
                                                   k:=k+1;
write('Kol-vo cifr ',n,' =  ',k);
Writeln;
Writeln ('Cami cifry');
for i:=1 to 999 do write (ch[i]:1);
readln
end.

Как то так...проверьте)

@maladoy · 15.10.2009, 17:57

Дано натуральное число n (n≤27). Найти все трехзначные числа, сумма
цифр которых равна n.

Операции деления, целочисленного деления и определения остатка не использовать

@Давид · 15.10.2009, 17:59

maladoy, я скинул программу чтобы было хотя бы на что ориентироваться!переделайте её?будет только +

@maladoy · 15.10.2009, 18:10

2 Давид например так

Код

var i,j,k,n:integer;
begin
readln(n);
for i:=1 to 9 do
 for j:=1 to 9 do
  for k:= 1 to 9 do
  if i+j+k=n then writeln(i*100+j*10+k);
  readln;
end.

хотя столь нерадивым студентам за так я помогать бы не стал!!!

@Girl_night · 16.10.2009, 15:43 **[ТС]**

Давид, спасибо))

Сообщение от Давид

Girl_night, Решить то можно)))

сможешь сделать остальные по возможности? буду очень очень тебе благодарна

@Давид · 16.10.2009, 16:01

Girl_night, Если все решить за вас то ума не прибавиться...)))вы попробуйте чами хотябы начать решать...ну а поле с вопросами соответственно сюда...хорошо?

@Girl_night · 16.10.2009, 16:06 **[ТС]**

Давид, ясна...

а вот по листингу программы написаную на паскале 7.0 как составить блок схему? я где то видела что есть спец прога для этих нужд.. не подскажешь как она называеться ?

Добавлено через 2 минуты
Fceditor? но если другие проги?

@Давид · 16.10.2009, 16:07

Girl_night, к какой программе нужна схема???я сделаю....

@Girl_night · 16.10.2009, 16:19 **[ТС]**

ну вообщет мне надо её сначала сделать)))

Звучит она так

"Напечатать минимальное число, больше 200, которое нацело делиться на 17"

@Puporev · 16.10.2009, 16:28

Сообщение от Girl_night

Напечатать минимальное число, больше 200, которое нацело делиться на 17"

Pascal

1
2
3

i:=200;
while i mod 17<>0 do
i:=i+1;

@Girl_night · 16.10.2009, 16:34 **[ТС]**

Puporev, число вводить с клавы не надо ж?

@Puporev · 16.10.2009, 16:34

Конечно нет, Вам же его найти нужно.

@Girl_night · 16.10.2009, 16:36 **[ТС]**

тоесть это идёт после begin?

Сообщение от Puporev

i:=200;
while i mod 17<>0 do
i:=i+1;

@maladoy 113 / 85 / 56 Регистрация: 09.01.2009 Сообщений: 209
	15.10.2009, 18:10	11
	2 Давид например так Код var i,j,k,n:integer; begin readln(n); for i:=1 to 9 do for j:=1 to 9 do for k:= 1 to 9 do if i+j+k=n then writeln(i100+j10+k); readln; end. *хотя столь нерадивым студентам за так я помогать бы не стал!!!* 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	16.10.2009, 16:01	13
	Girl_night, Если все решить за вас то ума не прибавиться...)))вы попробуйте чами хотябы начать решать...ну а поле с вопросами соответственно сюда...хорошо? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.10.2009, 16:06	2
	Girl_night, С такими запросами в раздел Фриланс, там за деньги от всего избавят. 0

@Girl_night 0 / 0 / 0 Регистрация: 14.10.2009 Сообщений: 37
	14.10.2009, 16:16 [ТС]	4
	Давид, очень благодарна. Спасибо 0

@Girl_night 0 / 0 / 0 Регистрация: 14.10.2009 Сообщений: 37
	14.10.2009, 16:48 [ТС]	6
	попробуем.. еще раз огромное спасибо 0

@Girl_night 0 / 0 / 0 Регистрация: 14.10.2009 Сообщений: 37
	15.10.2009, 16:05 [ТС]	7
	Давид, остальные слишком трудны? 0

@maladoy 113 / 85 / 56 Регистрация: 09.01.2009 Сообщений: 209
	15.10.2009, 17:57	9
	Дано натуральное число n (n≤27). Найти все трехзначные числа, сумма цифр которых равна n. Операции деления, целочисленного деления и определения остатка не использовать 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	15.10.2009, 17:59	10
	maladoy, я скинул программу чтобы было хотя бы на что ориентироваться!переделайте её?будет только + 0

@Girl_night 0 / 0 / 0 Регистрация: 14.10.2009 Сообщений: 37
	16.10.2009, 15:43 [ТС]	12
	Давид, спасибо)) Сообщение от Давид Girl_night, Решить то можно))) сможешь сделать остальные по возможности? буду очень очень тебе благодарна 0

@Girl_night 0 / 0 / 0 Регистрация: 14.10.2009 Сообщений: 37
	16.10.2009, 16:06 [ТС]	14
	Давид, ясна... а вот по листингу программы написаную на паскале 7.0 как составить блок схему? я где то видела что есть спец прога для этих нужд.. не подскажешь как она называеться ? Добавлено через 2 минуты Fceditor? но если другие проги? 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	16.10.2009, 16:07	15
	Girl_night, к какой программе нужна схема???я сделаю.... 0

@Girl_night 0 / 0 / 0 Регистрация: 14.10.2009 Сообщений: 37
	16.10.2009, 16:19 [ТС]	16
	ну вообщет мне надо её сначала сделать))) Звучит она так "Напечатать минимальное число, больше 200, которое нацело делиться на 17" 0

@Girl_night 0 / 0 / 0 Регистрация: 14.10.2009 Сообщений: 37
	16.10.2009, 16:34 [ТС]	18
	Puporev, число вводить с клавы не надо ж? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	16.10.2009, 16:34	19
	Конечно нет, Вам же его найти нужно. 0

@Girl_night 0 / 0 / 0 Регистрация: 14.10.2009 Сообщений: 37
	16.10.2009, 16:36 [ТС]	20
	тоесть это идёт после begin? Сообщение от Puporev i:=200; while i mod 17<>0 do i:=i+1; 0