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

Задачи на 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)

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

у меня с 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

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

Галсан


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;

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

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.

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

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;

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

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

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

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

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 точек на плоскости. Найти номера всех пар точек, расстояние между которыми наибольшее.

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

помогите плз

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

вместо 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 :)

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

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.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

В pascal

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

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

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

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

о.О

что это было?

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

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

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



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

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