Задание контрольной

[probiker]

Задание контрольной

1. Вычислить:
2. Найти двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого числа (проверка – 27).
3. Дан двумерный массив 5х5. Определите сумму элементов каждой строки и ту строку, в которой сумма элементов максимальна.
4. В тексте, содержащем между словами от 1 до 3 пробелов, оставить только по одному.
5. Для одного из предыдущих четырех заданий создать форму для ввода данных и вывода результата.


Сам в программировании дуб дубом, завтра контрольная. Выручайте, нужно составить програмки. Зарание спасибо!!!

 

[probiker]

Программы паскаль

 

[Vladimir_S]

5. Для одного из предыдущих четырех заданий создать форму для ввода данных и вывода результата.

Форму? Тогда, извините, но это уже не Паскаль, а Delphi. А на Delphi не пишу. Увы.

 

[probiker]

Нет, это паскаль. Мы делфи еще не проходили да и не будем наверно

 

[probiker]

ну а если без последнего задания..

 

[Vladimir_S]

Нет, это паскаль. Мы делфи еще не проходили да и не будем наверно

В Паскале (если это не Lazarus) никаких форм нет.

ну а если без последнего задания..

Ладно, сейчас что-нибудь нарисую. На своем DOS Free Pascal.

 

[probiker]

МЫ вроде на лазарус работали. Спасибо.

 

[Vladimir_S]

МЫ вроде на лазарус работали.

Ага. В поте лица, как я вижу.

Найти двузначное число, обладающее тем свойством, что куб суммы его цифр равен квадрату самого числа (проверка – 27).

Var
 i:Byte;

Function Cube_Square(Q:Byte):Boolean;
var
 Sum,Prod:Word;
begin
 Sum:=(Q div 10)+(Q mod 10);
 Prod:=Q*Q;
 Cube_Square:=(Sum*Sum*Sum=Prod);
end;

Begin
 for i:=10 to 99 do
  if Cube_Square(i) then write(i:4);
 readln
End.

Дан двумерный массив 5х5. Определите сумму элементов каждой строки и ту строку, в которой сумма элементов максимальна.

Var
 A:Array[1..5,1..5] of Integer;
 S:Array[1..5] of Integer;
 Max:Integer;
 i,j,Imax:Byte;
Begin
 Randomize;
 For i:=1 to 5 do S[i]:=0;
 Max:=-200;
 For i:=1 to 5 do
  begin
   for j:=1 to 5 do
    begin
     A[i,j]:=-50+Random(100);
     Write(A[i,j]:6);
     S[i]:=S[i]+A[i,j];
    end;
   Write('   Sum= ',S[i]:6);
   If S[i]>Max then
    begin
     Max:=S[i];
     Imax:=i;
    end;
   Writeln;
  end;
 Writeln;
 Writeln('Maximal sum is in the line N',Imax);
 Readln
End.

В тексте, содержащем между словами от 1 до 3 пробелов, оставить только по одному.

var
 S:string;
 i,N: integer;
 W:Array[1..255] of String;

begin
 writeln('Enter the string:');
 readln(S);
 N:=1;
 i:=1;
 Repeat
  While (S[i]=' ') and (i<Length(S)) do Inc(i);
  W[N]:='';
  While (S[i]<>' ') and (i<=Length(S)) do
   begin
    W[N]:=W[N]+S[i];
    Inc(i);
   end;
  If i<Length(S) then Inc(N);
 Until i>=Length(S);
 For i:=1 to N do Write(W[i]+' ');
 Readln
End.

Уж и не знаю, как это Вам поможет. Сделал всё, что в моих силах.

 

[probiker]

Спасибо вам огромное. Я на заочном учусь и работаю, времени нет на это(( Приятно осознавать что остались еще специалисты)