Перейти к содержанию

Задачи на Pascal/Delphi (РЕШЕНИЕ)


Рекомендуемые сообщения

Парни вот задачка не могу решить.

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

Парни задача на паскаль ABC

Ссылка на комментарий
  • 3 недели спустя...

Go-ger Ужас, чего пишут то) алгоритм таков. Заполнить всю матрицу нулями. Потом начиная с левого верхнего угла заполняем нулями: i=0;j=0; for (i=0;i<7;i++,j++) a[j]=1; так же и вторую диагональ, только изначально j присваиваеваем 7 и в цикле его уменьшаем, и остальное так же)

Ссылка на комментарий

Помогите с задачей:



Дана символьная строка. Если в ней нет других символов, кроме цифр, определить цифру, наиболее часто встречающуюся в этой строке. Если таких цифр несколько, напечатать любую из них :help::help::help:

Ссылка на комментарий

Что-то ничего не получаеться, заполняется только правая сторона всеми однёрками,

Var matrix : array[0..100,0..100] of byte;
i,j,k : byte;
begin
for k:=1 to 7 do
begin
i:=0;
j:=0;
For i:=0 to 7 do
i:=i+1;
j:= j+1;
matrix[i,j]:=1;
begin
for i:= 1 to 7 do
write(matrix[i,j]:3);
writeln;
end;
end;
end.

Ссылка на комментарий

Go-ger


{слевого верхнего в правый нижний}
for i:=1 to n do
a[i,i]:=1;
{с правого верхнего в левый нижний}
for i:=n downto 1 do
a[i,i]:=1;
{печать}
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j:4);
writeln;
end;

Dok7


var a: array [ 1..10 ] of integer;
i, max, k : integer;
s : string;
f : boolean;
begin
readln(s);
f:= true;
for i:=1 to length(s) do
begin
if not (s[i] in [0..9]) then
begin
f:=false;
end
else
begin
case (s[i]) of
'0' : inc(a[1]);
'1' : inc(a[2]);
'2' : inc(a[3]);
'3' : inc(a[4]);
'4' : inc(a[5]);
'5' : inc(a[6]);
'6' : inc(a[7]);
'7' : inc(a[8]);
'8' : inc(a[9]);
'9' : inc(a[10]);
end;
end;
if f then
begin
max:=a[1];
for i:=2 to 10 do
if max begin
k:=i;
max:=a[i];
end;
writeln(k-1);
end
else
writeln("в строке не только цифры");
end.

Ссылка на комментарий

Lakers

Там

var a: array [ 1..10 ] of integer;
i, max, k : integer;
s : string;
f : boolean;
begin
readln(s);
f:= true;
for i:=1 to length(s) do
begin

if not (s in [0..9])<---здесь пишет что тип не подходит(Type mismatch) then


begin
f:=false;
end
else
begin
case (s[i]) of
'0' : inc(a[1]);
'1' : inc(a[2]);
'2' : inc(a[3]);
'3' : inc(a[4]);
'4' : inc(a[5]);
'5' : inc(a[6]);
'6' : inc(a[7]);
'7' : inc(a[8]);
'8' : inc(a[9]);
'9' : inc(a[10]);
end;
end;
if f then
begin
max:=a[1];
for i:=2 to 10 do
if max begin
k:=i;
max:=a[i];
end;
writeln(k-1);
end
else
writeln("в строке не только цифры");
end.

Ссылка на комментарий

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

7. Дана строка символов. Преобразовать строку, удалив каждый символ * и повторив каждый символ, отличный от *.

надеюсь на вашу помощь)

ps поделюсь репой))

Ссылка на комментарий
  • 2 недели спустя...
  • 4 месяца спустя...

Язык: Паскаль.

Матрица расположена в одномерном массиве по строкам. Уда-лить k-ю строку матрицы из одномерного массива. Результат на-печатать по строкам.

По алгоритму A1.3 из сборника алгоритмов составить программу решения СЛУ методом Краута. Ввод матрицы коэффициентов, правой части, триангуляцию (LU-разложение), прямую и обрат-ную подстановки реализовать в виде процедур.

По алгоритму А2.1 из сборника алгоритмов составить программу решения СЛУ методом Якоби. Ввод матрицы коэффициентов, правой части, начальных значений неизвестных оформить в виде процедур.

http://file.sibnet.ru/get/?id=917856

Помогите плиз очень надо.. Я уже запутался... Мозг кипит :prayer::help:

Ссылка на комментарий
  • 3 недели спустя...

Методом итераций вычислить корень уравнения вида f(x)=0, расположенный в интервале [A,B], с абсолютной погрешностью 1Е-4. определить также количество итераций, необходимое для нахождения корня.

Уравнение : х -х

е - е - 2 = 0 отрезок [0;1].

Сессию не закрыл. Есть у кого решения по лаб.практикуму Бильгаевой 1ые варианты с 5 лабы.

Буду благодарен.

Ссылка на комментарий

Пожалуйста, войдите, чтобы комментировать

Вы сможете оставить комментарий после входа в



Войти
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...