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

[Галсан]

Галсан

uses wincrt;
const y = 1;
var a: array[1..y] of string;
i, j: integer;
s: string;
begin
clrscr;
writeln('BBeguTe cJIoBo');
for i := 1 to y do
readln(a[i]);
for i := 1 to y do
begin
s := '';
for j := 1 to Length(a[i]) do
begin
s := s + a[i][j];
if a[i][j] = 'a' then
s := s + 'MbI';
end;
a[i] := s;
end;
for i := 1 to y do
write(a[i], ' ');
end.

program zad;

Спасибо. Но чет выдает ошибку. Error 15: File not found (WINCRT.TRU)

[bayarookie]

Галсан

у меня с CRT глючит, поэтому WINCRT пишу, переправь на CRT

[Галсан]

Галсан

у меня с CRT глючит, поэтому WINCRT пишу, переправь на CRT

я уже переправлял. После этого вылетает *11

з.ы. вот я тупанул забыл поставить readkey в конце

uses crt;
const y = 1;
var a: array[1..y] of string;
i, j: integer;
s: string;
begin
clrscr;
writeln('BBeguTe cJIoBo');
for i := 1 to y do
readln(a[i]);
for i := 1 to y do
begin
s := '';
for j := 1 to Length(a[i]) do
begin
s := s + a[i][j];
if a[i][j] = 'a' then
s := s + 'MbI';
end;
a[i] := s;
end;
for i := 1 to y do
write(a[i], ' ');
[b]readkey[/b]
end.

program zad;

Спасибо bayarookie!!!!

[Галсан]

Помогите решить эту задачку:

Подсчитать количество строк целой матрицы размера 4х6 в котором все элементы находятся в столбцах с четными номерами, нечетны. *09

[martinges]

ответ 4 строки

если без шуток.... то набор слов помойму)) или где то знаки препинания пропущены....

[X-tender]

Галсан

m=кол_во_строк;
n=кол-во_столбцов;
for i:=1 to m do
 begin
  t=1;
  for j:=1 to n div 2 do
	if (a[i,j*2] mod 2=0) then t:=0;
  sum:=sum+t;
 end;

[Галсан]

X-tender

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

[FunlOvEe]

Галсан

const m=4;
n=6;
var i,j,t,sum:integer;
a:array[1..m,1..n] of integer;
begin
clrscr;
for i:=1 to m do
for j:=1 to n do
begin
write('a[',i,',',j,'] = ');
read(a[i,j]);
end;
for i:=1 to m do
begin
t:=1;
sum:=0;
for j:=1 to n div 2 do
begin
if (a[i,j*2] mod 2 = 0) then
t:=0;
sum:=sum+t;
end;
writeln(sum);
end;
readkey;
end.

uses crt;

[X-tender]

FunlOvEe, не так, begin end зря вставлял

uses crt;
const m=4;
      n=6;
var i,j,t,sum:integer;
    a:array[1..m,1..n] of integer;
begin
clrscr;
  for i:=1 to m do
    for j:=1 to n do
      begin
       write('a[',i,',',j,'] = ');
       read(a[i,j]);
      end;
  for i:=1 to m do
    begin
      t:=1;
      sum:=0;
      for j:=1 to n div 2 do
          if (a[i,j*2] mod 2 = 0) then
            t:=0;
          sum:=sum+t;
    end;
writeln("Result=",sum);
readkey;
end.

[FunlOvEe]

X-tender

Задание не так понял.

Тогда надо sum повыше занулить до цикла или ваще убрать, иначе будет 0 или 1.

const m=4;
n=6;
var i,j,t,sum:integer;
a:array[1..m,1..n] of integer;
begin
clrscr;
for i:=1 to m do
for j:=1 to n do
begin
write('a[',i,',',j,'] = ');
read(a[i,j]);
end;
for i:=1 to m do
begin
t:=1;
for j:=1 to n div 2 do
if (a[i,j*2] mod 2 = 0) then
t:=0;
sum:=sum+t;
end;
writeln(sum);
readkey;
end.

uses crt;

[Галсан]

X-tender, FunlOvEe Спасибо!

[X-tender]

Тогда надо sum повыше занулить до цикла или ваще убрать, иначе будет 0 или 1.

1) sum не инициализировать вручную нулем, если нормальный компилятор, то мусора в нем не будет.

2) зачем его убирать, если он и считает кол-во рядов удовлетворяющих требованиям.

[}{0t@BbI4]

Сможет кто выложить рисунок и его программу написания в TurboPasale 7

было бы вообще отлично если не рисунка, а анимации в TurboPasale 7

[PapiruS]

uses crt;

const n=4;

var x,y:array[1..n]of real;

i,j,a,b:integer;

r:real;

BEGIN

writeln('Vvedite koordinaty ',n,' tochek');

for i:=1 to n do

begin

read(x);

read(y);

end;

r:=sqrt(sqr(x[2]-x[1])+sqr(y[2]-y[1]));

a:=1;

b:=2;

for i:=1 to n-1 do

for j:=i+1 to n do

begin

if sqrt(sqr(x[j]-x)+sqr(y[j]-y))>=r then

begin

r:=sqrt(sqr(x[j]-x)+sqr(y[j]-y));

a:=i;

b:=j;

end;

end;

writeln('Maximalnoe rasst meshdy ',a,' Ё ',b,' paroi:',r:0:2);

readkey;

END.

1.Даны координаты N точек на плоскости. Найти номера всех пар точек, расстояние между которыми наибольшее.

я сделал но у меня находит тока одну пару. А нужно чтобы находило все пары с наибольшим расстоянием

помогите плз

[martinges]

вместо writeln('Maximalnoe rasst meshdy ',a,' Ё ',b,' paroi:',r:0:2);

напиши :

for i:=1 to n-1 do

for j:=i+1 to n do

if sqrt(sqr(x[j]-x)+sqr(y[j]-y))=r then writeln('искомая пара: (',i,',',j,')');

P.S. и тебе не нужны будут переменные a и b

[PapiruS]

martinges

спасиба большое тебе)

помогите вот еще одну задачку:

Определить все седловые точки (если таковые вообще имеются) в действительной матрице размера 5х6. Элемент матрицы называется седловой точкой, если он является одновременно наименьшим в своей строке и наибольшим в своем столбце.

uses crt;

var i,j,k,min,max,sedl_min,sedl_max:integer;

a:array[1..5,1..6]of integer;

BEGIN

clrscr;

for i:=1 to 5 do

for j:=1 to 6 do read(a[i,j]);

min:=a[1,1];

max:=a[1,1];

for j:=1 to 6 do

begin

for i:=1 to 5 do

if a[i,j]

begin

min:=a[i,j];

sedl_min:=i;

end;

i:=sedl_min;

max:=a[i,j];

for k:=1 to 6 do

begin

if a[i,k]>max then

begin

max:=a[i,k];

sedl_max:=k;

end;

end;

if sedl_max=j then write('Седловые точки: a[',i,',',j,']=',a[i,j],' ');

end;

readkey;

END.

исправьте плз неправильно она чета работает

[Sotik]

про графику материал нужен ваше ничего не могу решить!!!и( примеры желательно)

[PapiruS]

а все уже решил)

[PapiruS]

Дано натуральное число k. Напечатать k-ую цифру последовательности: 12345678910111213141516171819......., в которой выписаны подряд все натуральные числа.

помогите ктонить плз решить, эта задача в общем на тему:циклы, и решить ее нужно используя тока циклы с пред и пост условиями,ну и целочисленные деления.

ее ранее уже решали но мне нужно др. способом.

заранее буду благодарен

[X-tender]

PapiruS, пользуйся поиском. Уже есть решение тут

[!=Вовк@=!]

Помогите решить задачу на турбо паскале!!!!!!!

А) Создать файл содержащий сведения о количестве изделий категории А,В,С, собранных рабочим за месяц. Структура записи имеет поля- Фамилия сборщика, наименование цеха, количество изделий по категориям,собранных рабочим за месяц. Количество записей- 30, из них 3 цеха по 10 человек.

В) Считая заданными значения расценок Sa,Sb,Sc за выполненную работу по сборке единицы изделия категории А,В,С соответственно подсчитать:

-общее количество изделий категорий А, собранных рабочим цеха Х;

-вывести 3 ведомости по заработной плате для рабочих каждого цеха;

Значения расценок Sa,Sb,Sc определить константами. Наименование цеха Х вводить отдельно с терминала.

Заранее спасибо!!!!!!!!!

[PapiruS]

X-tender

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

[efremovlex]

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

В pascal

зарание спасибо!!

[X-tender]

Помоготе пожалуйсто как обявить мень в базе даннных так чтоб можно было выберпть действие клавишами верх вниз интер. и чтоб выделялся выбор

зарание спасибо

о.О

что это было?

[PapiruS]

посмотрите ктонить плз мою задачку