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

[Russia]

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

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

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

[Lakers]

Russia

Приведи код который ты писал. посмотрим, подскажем.

[Russia]

да я особо не писал так набросал для видухи а разбератся начел не смог= решить(

[Lakers]

давай что есть, посмотрим, посоветуем.

[Go-ger]

Помогите с матрицей на Паскале нужно Заполнить массив размером 7*7 по правилу :

1000001

0100010

0010100

0001000

0010100

0100010

1000001

[danger]

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

[Dok7]

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

---

---

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

[Go-ger]

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

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.

[Lakers]

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.

[Dok7]

Lakers

Все равно не идет программа.Может Паскаль?

[Lakers]

Dok7

давай конкретнее что неработает. писал без компиляции может чё и напутал

[Dok7]

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. 

[Lakers]

        if not (s[i] in ['0'..'9']) then 

[-=BURNOUT=-]

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

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

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

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

[Lakers]

-=BURNOUT=-

репо то видать с огорода?

[Russia]

Вот задачка по масивам

Вычеслите среднюю температуру воздуха за неделю.

[Lakers]

сумируеш всё, делиш на количество элеметов.

[Russia]

а по конкретней.. зачет здаю срочно..

[Lakers]

sum:=0;

в цикли по i от 1 до количество элементов в массиве

sum:=sum+a;

sum:=sum/количество элементов в массиве

[Russia]

Парни вот задача на двухмерный массив :

Вывести двухмерный массив 5*6 и посчитать сумму элементов находящиеся ниже главной диагонали.

[TolkienDRR]

Russia, что не получается?

[deizart]

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

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

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

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

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

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

[Lakers]

deizart

сам то читал чё написал???

[Cooler151]

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

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

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

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

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

[TTH]