Сейчас обсуждают

[Dear Tony]

Пожайлуста, помогите решить задачи в Pascal'е
см. спойлер

» Спойлер (нажмите, чтобы прочесть) «

Сообщение отредактировал Dear Tony - 24.7.2009, 21:01

[(-=Dargin=-)]

Эмм, а сами задачи выложить не хочешь? у мну ничего в спойлере нет.

[mephisto]

Эмм, а сами задачи выложить не хочешь? у мну ничего в спойлере нет.

http://file.forum.sibnet.ru/get/file/?id=280561

Сообщение отредактировал mephisto - 28.5.2008, 22:52

[Wabi-Sabi]

А как в паскале цикл объявляется?

[HiSER]

А как в паскале цикл объявляется?

while [true] do
begin

end;

----------------------

repeat

until [false]

----------------------

for [var]:=? to ? do
begin

end;

----------------------

for [var]:=? downto ? do
begin

end;

[Wabi-Sabi]

Ну вот больше половины работы и сделано.

Дожились...

Ща сделаем

А чего дожились то? Я на паскалю в школе по встроенной справке отписал что требовалось и хватит.

[mephisto]

Ну вот больше половины работы и сделано.
А чего дожились то? Я на паскалю в школе по встроенной справке отписал что требовалось и хватит.

Повезло... А мы в школе BASIC изучали на Корветах. Эх как вспомню элепсовидные окружности и прямоугольные квадраты... ностальгия...

[TLK]

На случай если ты не разобрался держи

4

Код

program Project1;
var ar:array[0..9] of byte = (5,1,7,8,11,10,3,2,6,4);
    i:integer;
begin
for i:=0 to 9 do
  if ar[i] in [3,7] then
   writeln(ar[i],' Chislo vhodit v interval [3;7]')
  else
   writeln(ar[i],' Chislo NE vhodit v interval [3;7]');
end.

5

Код

program Project1;
var ar1:array[0..9] of integer = (5,1,7,8,11,10,3,2,6,4);
    ar2:array[0..9] of integer = (6,9,5,11,4,3,7,2,12,6);
    ar3:array[0..9] of integer;
    ar4:array[0..9] of integer;
    i:integer;
begin
for i:=0 to 9 do
begin
  ar3[i] := ar1[i] + ar2[i];
  ar4[i] := ar1[i] - ar2[i];
end;
write('Perviy massiv |':20);
for i:=0 to 9 do
begin
  write(ar1[i]:3, '|');
end;
writeln;
write('Vtoroy massiv |':20);
for i:=0 to 9 do
begin
  write(ar2[i]:3, '|');
end;
writeln;
write('Summa massivov |':20);
for i:=0 to 9 do
begin
  write(ar3[i]:3, '|');
end;
writeln;
write('Raznost massivov |':20);
for i:=0 to 9 do
begin
  write(ar4[i]:3, '|');
end;
end.

6

Код

program Project1;
var ar:array[0..3, 0..3] of byte = (( 5, 1, 7, 8)
                                   ,(11,10, 3, 2)
                                   ,( 6, 4,14,12)
                                   ,(17,20,19,16));
    i,j:integer;
begin
writeln('Ishodnaya matrica');
for i:=0 to 3 do
begin
  for j:=0 to 3 do
   write(ar[i,j]:2,' ');
  writeln;
end;
writeln('Transponirovannaya');
for i:=0 to 3 do
begin
  for j:=0 to 3 do
   write(ar[j,i]:2,' ');
  writeln;
end;
end.

7

Код

program Project1;
var
    i, totw, totf, l:integer;
    str:string;
    c:char;
begin
totf := 0;
totw := 0;
write('Vvedite tekst:');
readln(str);
write('Vvedite simvol:');
readln(c);
l := length(str);
for i:=1 to l do
  if str[i]=' ' then
   if i<l then
   begin
    if str[i+1]=c then
     inc(totf);
    if i>1 then
     inc(totw);
   end;
if totw<>0 then
  inc(totw);
writeln('Vsego slov:':25, totw:4);
writeln(('Nachinaetsya na "'+c+'":'):25, round(totf*100/totw):4, '%');
end.

[Dear Tony]

Большое спасибо тем, кто откликнулся!

[BATMEN]

Повезло... А мы в школе BASIC изучали на Корветах. Эх как вспомню элепсовидные окружности и прямоугольные квадраты... ностальгия...

Было дело Задашь ему рисовать че нить многа, машина медленная, получается че то типа анимации

[Dear Tony]

Опять я с Паскалем.

В общем, нужно ввести матрицу 4х4, и посчитать сумму элементов всех чётных строк в матрице.
У меня не получается... Подскажите что у меня не так, и как должно быть.

Код

Program nl;
var
a:array [1..4,1..4] of real;
i,j:integer;
Sum:real;

Begin
write ('ââåäèòå ìàòðèöó ïîñòðî÷íî:');
For i:=1 to 4 do
for j:=1 to 4  do
Read (a[i,j]);
For i:=1 to 4 do

Begin
sum:=sum+a[i,j]
end;

writeln  (a[i,j]);

writeln ('ñóììà ýëåìåíòîâ ÷¸òíûõ ñòðîê ðàâíà:', sum);

end.

[Linky]

Опять я с Паскалем.

В общем, нужно ввести матрицу 4х4, и посчитать сумму элементов всех чётных строк в матрице.
У меня не получается... Подскажите что у меня не так, и как должно быть.

Если я прально понял, то наверно так:

Код

Program nl;
uses crt;
var
a:array [1..4,1..4] of real;
i,j:integer;
Sum:real;

begin
writeln ('введите элементы матрицы');
for i:=1 to 4 do
for j:=1 to 4  do
   Read (a[i,j]);
  
i:=0;

while i < 4 do
  begin
   i:=i+2;
   for j:=1 to 4 do
    begin
     sum:=sum+a[i,j]
    end;
end;

writeln  (a[i,j]);
writeln ('сумма элементов четных строк матрицы= ', sum);

end.

[krut777]

кто нибудь помогите, к завтрешнему дню надо решить задачу.

ДАНА КВАДРАТНАЯ ЦЕЛОЧИСЛЕННАЯ МАТРИЦА. ВЫЧЕСЛИТЬ СУММУ ДИОГАНАЛЕЙ ПАРАЛЛЕЛЬНОЙ ГЛАВНОЙ ДИОГАНАЛИ.
Зарание сбасибо

[shouhei]

ДАНА КВАДРАТНАЯ ЦЕЛОЧИСЛЕННАЯ МАТРИЦА. ВЫЧЕСЛИТЬ СУММУ ДИОГАНАЛЕЙ ПАРАЛЛЕЛЬНОЙ ГЛАВНОЙ ДИОГАНАЛИ.

А можно не кричать? А то доходит плохо. Вычислить сумму чего? Всех диагоналей параллельных главной? Т.е. всех элементов кроме главной диагонали? Или по отдельности по диагоналям? И еще желательно писать грамотно. И полное условие задачи.

[krut777]

А можно не кричать? А то доходит плохо. Вычислить сумму чего? Всех диагоналей параллельных главной? Т.е. всех элементов кроме главной диагонали? Или по отдельности по диагоналям? И еще желательно писать грамотно. И полное условие задачи.

общую сумму диагоналей кроме главной

[Linky]

общую сумму диагоналей кроме главной

А как можно тебе помочь решить это задание?

[krut777]

А как можно тебе помочь решить это задание?

спомощь s=i+n наверно???????????? %(((((

[Linky]

спомощь s=i+n наверно???????????? %(((((

жжошь

» Спойлер (нажмите, чтобы прочесть) «

Код

uses crt;
var
    arr:array[1..20]of array[1..20] of integer;
    N,i,j,sum:integer;
begin
    clrscr;
    writeln('enter matrix size(< 20)');
    read(N); sum:=0;
    writeln('enter ',N*N,' matrix element');
    for i:= 1 to N do
        for j:= 1 to N do
        begin
            read(arr[i][j]);
            sum:=sum + arr[i][j];
        end;
    for i:= 1 to N do
        sum:=sum - arr[i][i];
    writeln('result: ',sum);
    readkey;
end.

Сообщение отредактировал Linky - 15.6.2009, 16:04

[krut777]

жжошь

» Спойлер (нажмите, чтобы прочесть) «

Код

uses crt;
var
    arr:array[1..20]of array[1..20] of integer;
    N,i,j,sum:integer;
begin
    clrscr;
    writeln('enter matrix size(< 20)');
    read(N); sum:=0;
    writeln('enter ',N*N,' matrix element');
    for i:= 1 to N do
        for j:= 1 to N do
        begin
            read(arr[i][j]);
            sum:=sum + arr[i][j];
        end;
    for i:= 1 to N do
        sum:=sum - arr[i][i];
    writeln('result: ',sum);
    readkey;
end.

Огромное спасибо

[GNOM_IK]

Прошу помощи!
Помогите решить задачку спросить не у кого!
Ввод с клавиатуры 10 произвольных чисел с запоминанием их в массиве и вывод сумм чисел, равноудалённых от начала и конца массива: первый + последний, второй + предпоследний и т.д.
Например:
12 0 3 7 11 9 4 6 15 5
Результат: 12+5=17, 0+15=15, 3+6=9, 7+4=11, 11+9=20