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

Галсан · 29 апреля, 2009

Галсан
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 · 29 апреля, 2009

Галсан

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

Галсан · 29 апреля, 2009

Галсан
у меня с 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!!!!

Галсан · 6 мая, 2009

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

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

martinges · 6 мая, 2009

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

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

X-tender · 7 мая, 2009

Галсан


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;

Галсан · 7 мая, 2009

X-tender

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

FunlOvEe · 7 мая, 2009

Галсан

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 · 7 мая, 2009

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 · 7 мая, 2009

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;

Галсан · 7 мая, 2009

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

X-tender · 7 мая, 2009

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

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

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

}{0t@BbI4 · 10 мая, 2009

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

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

PapiruS · 10 мая, 2009

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 · 10 мая, 2009

вместо 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 · 11 мая, 2009

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 · 11 мая, 2009

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

PapiruS · 12 мая, 2009

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

PapiruS · 14 мая, 2009

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

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

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

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

X-tender · 15 мая, 2009

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

!=Вовк@=! · 15 мая, 2009

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

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

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

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

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

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

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

PapiruS · 15 мая, 2009

X-tender

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

efremovlex · 15 мая, 2009

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

В pascal

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

X-tender · 15 мая, 2009

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

о.О

что это было?

PapiruS · 16 мая, 2009

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

Войти

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

Рекомендуемые сообщения

Галсан

bayarookie

Галсан

Галсан

martinges

X-tender

Галсан

FunlOvEe

X-tender

FunlOvEe

Галсан

X-tender

}{0t@BbI4

PapiruS

martinges

PapiruS

Sotik

PapiruS

PapiruS

X-tender

!=Вовк@=!

PapiruS

efremovlex

X-tender

PapiruS

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

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

Обзор

Активность