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

[Lakers]

Viper

var c:array[1..11]of integer;

i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

write('C[',i,']= ');readln(c);

end;

c[11]:=0;

i:=1;

while c<>'0 do i:=i=1;

if i<11 then

writeln('элемент № ',i)

else

writeln('нет такого');

readkey;

end.

MAZoX

var c:array[1..7]of integer;

i,s:integer;

begin

clrscr;

s:=1;

for i:=1 to 10 do

begin

write('C[',i,']= ');readln(c);

s:=s*c;

end;

writeln('Произведение равно: ', abs(s));

readkey;

end.

[MAZoX]

MAZoX

var c:array[1..7]of integer;

i,s:integer;

begin

clrscr;

s:=1;

for i:=1 to 10 do

begin

write('C[',i,']= ');readln(c);

s:=s*c;

end;

writeln('Произведение равно: ', abs(s));

readkey;

end.

[Viper]

MAZoX Ты в Турбо Пакале делаш ?? если в че я тож там делаю и тож такаж фигня вылазит надо наверно в АВС делать

ЗЫ Lakers Огромно спасибо

[FunlOvEe]

MAZoX, uses crt; добавь в код в начале перед var.

[Lakers]

а ты подпиши в начале программы uses crt;

[Baimer]

MarseaneN

var
c:array[1..7]of integer;
i:integer;
s:integer;
begin
for i:=1 to 7 do
begin
readln(c[i]);
s:=s+c[i];
end;
if s<0 then s:=abs(s);
writeln(s);
end.

program n2;

var
c:array[1..10]of integer;
i,j:integer;
begin
for i:=1 to 10 do readln(c[i]);
j:=c[1];
c[1]:=c[10];
c[10]:=j;
for i:=1 to 10 do writeln(c[i]);
end.

program n3;

[MAZoX]

огромное СПС всем кто помог решить задачу)))

Viper я в АБЦ делаю! мы ж в АБЦ решаем ёпрст ты что?

[Viper]

MAZoX У мну АВС нету *11

Lakers Я в Турбо делаю ошибка вылазит String constant exceedes line в строке

while c<>'0 do i:=i=1;

[Lakers]

Viper

ваще нечайно кавычку поставилюююубери ёё

вот так будет

while c<>0 do i:=i+1;

[Viper]

Lakers Аа ошибку выдает пишет Type mismatch в этой же стороке (( это не из-за плюса )) плюс я на = поменяял

[Lakers]

плюс то оставь

[Viper]

Lakers ой я протупил извини лан все я сделал спасибо

[FunlOvEe]

1.задан вещественный массив X из 10 элементов.Найти минимальный элемент и его порядковый номер.

var X: array[1..10] of integer;
i,mini,min: integer;
begin
clrscr;
for i := 0 to 10 do
begin
write('vvedite ',i,'ii element :');
read(x[i]);
end;
min := x[1];
for i := 2 to 10 do
if ( x[i] < min ) then
begin
min := x[i];
mini := i;
end;
write('Min element = ', min,' nomer = ', mini);
readkey;
end.

uses crt;

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

var age,sex:byte;
begin
clrscr;
Write('Vvedite vozrast: ');
readln(age);
Write('Vvedite pol(0 zhen, 1 muzh): ')
readln(sex);
if ( sex = 0 ) then
write('Do pensii ostalos ', 55-age,' let');
else
write('Do pensii ostalos ', 60-age,' let');
readkey;
end.

uses crt;

1.Вычислить произведение массива С[7] целых чисел,и если это произведение отрицательное,то вывести его абсолютное значение.

const n = 7;
var c: array[1..n] of integer;
s,i: integer;
begin
clrscr;
for i := 1 to n do
begin
write( 'c[',i,'] = ' );
read( c[i] );
end;
s := 1;
for i := 1 to n do
s := s * c[i];
if ( s < 0 ) then
writeln( abs(s) )
else
writeln(s);
readkey;
end.

uses crt;

2.Дана последовательность n различных целых чисел. найти сумму её членов,расположенным между максимальным и минимальным значениями (в сумму включить и оба этих числа)

const n = 7;
var c: array[1..n] of integer;
s,i,max,min,maxi,mini: integer;
begin
clrscr;
for i := 1 to n do
begin
write( 'c[',i,'] = ' );
read( c[i] );
end;
max:= c[1];
min:= c[1];
for i := 1 to n do
if ( max < c[i] ) then
begin
max := c[i];
maxi := i;
end;
for i := 1 to n do
if ( min > c[i] ) then
begin
min := c[i];
mini := i;
end;
if ( mini > maxi ) then
begin
s := mini;
mini := maxi;
maxi := s;
end;
s := 0;
for i:= mini to maxi do
s := s+c[i];
writeln(s);
readkey;
end.

uses crt;

2. Составьте программу,проверяющую,верно ли утверждение,что сумма цифр введенного вами целого числа является четным.

var n,s:integer;
begin
clrscr;
write('Vvedite chislo: ');
readln(n);
s := 0;
while ( n <> 0 ) do
begin
s := s + n mod 10;
n := n div 10;
end;
if ( s mod 2 = 0) then
Writeln('Summa chisla chetnaya - ', s)
else
Writeln('Summa chisla nechetnaya - ',s);
readkey;
end.

uses crt;

2. Масса 8 литров бензина 5,68 кг. Цистерна имеет объем 500 куб.метров Хватит ли её,чтобы вместить А тонн бензина?

var ton,lkg:real;
begin
clrscr;
Write('Vvdedite skolko tonn benzina: ');
read(ton);
lkg := 5.68 / 8; {0.71}
lkg := lkg * 500; { 355ton }
if ( ton > lkg ) then
write('ne vmestitso')
else
write('vmestitso');
readkey;
end.

uses crt;

1.Ракета запускается с точки на экваторе и развивает скорость v км/с.Каков результат запуска? Замечание: если v<=7/8 км/с,то ракета упадет на Землю,если 7/816.4,то ракета покинет Солнечную систему.

var km:real;
begin
clrscr;
Write('Vvdedite kakyu skorost razvila raketa: ');
readln(km);
if ( km < 7.8 ) then
writeln('raketa upadet')
else
if ( ( km > 7.8 ) and ( km < 11.2 ) ) then
writeln('stanet sputnikom zemli')
else
if ( ( km > 11.2 ) and ( km < 16.4) ) then
writeln('stanet sputnikom solnca')
else
if ( km > 16.4 ) then
writeln('pokinet solnc sistemy');
readkey;
end.

uses crt;

[Lakers]

Эсуперзамок". секретный замок для сейфа состит из 10 расположенных в ряд ячеек,в которые надо вставить игральные кубики. Но,дверь открывается только в том случае,когда в любых соседних трёх ячейках сумма точек на передних гранях кубиков равно 10.(игральный кубик имеет на каждой грани 1 до 6 точек.) напишите программу,которая разгадывает код замка при условии,что два кубика уже вставлены в ячейку.

uses crt;

var c:array[1..10]of integer;

i:integer;

begin

clkrscr;

write('введите первый элемент: ');readln(c[1]);

write('введите второй элемент: ');readln(c[2]);

for i:=3 to 10 do c=10-c[i-1]-c[i-2];

writeln('КОД:');

for i:=1 to 10 do write(c,' ');

readkey;

end;

[Bufalo]

Будьте добры,помогите пожалуйста,решить 2 задачи на циклы в ТП)

1) Составьте программу вычисления суммы всех двухзначных чисел.

2) Дано натуральное число N.

а) Найти сумму его чётных делителей.

б) Определить количество его делителей.

в) Найти количество его делителей,больших d.

Заранее благодарю!!!

[Russia]

AAAA Помагите решить задачу!

до завтра надо чтобы допуск к эгзамену по информатике получить плиззз!

в Pascal ABS:

В одномерном масиве x 10 найти его минимальное значение и порядковый номер миним значиния подумайте великие умы у нас в группе ее не кто не ришил =)))

ДО ЗАВТРА ЕСЛИВ МОНА =)) (!)

[martinges]

в целой группе никто не решил?......

алгоритмизация рулит.....

j:=0;

min:=32767;

for i:=1 to 10 do

if min>x then

begin

min:=x;

j:=i;

end;

[JSTQ]

В одномерном масиве x 10 найти его минимальное значение и порядковый номер миним значиния подумайте великие умы у нас в группе ее не кто не ришил =)))

*pactalom

[Error] Unit1.pas(189): Declaration of 'Calc' differs from previous declaration
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[Error] Unit1.pas(183): Types of actual and formal var parameters must be identical

procedure Calc(x:Byte; y:Byte);

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;

procedure Calc(var x:Byte; var y:Byte);
type
TForm1 = class(TForm)
btn1: TButton;
lbl1: TLabel;
btn2: TButton;
edt1: TEdit;
lbl2: TLabel;
btn3: TButton;
lbl3: TLabel;
lbl4: TLabel;
procedure btn1Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure edt1Change(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn1KeyPress(Sender: TObject; var Key: Char);
procedure btn3KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
VihSt,StOp:string;
posc:real;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
Form1.close;
end;

unit Unit1;

Что-то я забыл где в Delphi свои процедуры объявлять.

Помогите исправить ошибки

upd надо было просто убрать var

[Russia]

в целой группе никто не решил?......

алгоритмизация рулит.....

j:=0;

min:=32767;

for i:=1 to 10 do

if min>x then

begin

min:=x;

j:=i;

end;

конешно спосибо но что значит min:=32767;

[JSTQ]

min:=32767

Большое число, чтобы с ним сравнивать элементы массива

[DVJ_MC_DOS]

в целой группе никто не решил?......

алгоритмизация рулит.....

j:=0;

min:=32767;

for i:=1 to 10 do

if min>x then

begin

min:=x;

j:=i;

end;

Достаточно просто индекс хранить)) min не обязательно))

[X-tender]

зачем так много писать? так проще:

j:=1;
for i:=2 to 10 do
    if x[j]>x[i] then
        j:=i;

[hirako]

Помогите зачем здесь Exit, а без него не так работает (это с Memo):

begin

n1:=pos(a,s)-1;

n2:=n1+length(a);

memo1.SetFocus;

memo1.SelStart:=n1;

memo1.SelLength:=n2-n1;

groupbox1.Visible:=true;

Label3.Caption:='';

exit;

end

[FunlOvEe]

Bufalo

uses crt;
var i,s:integer;
begin
clrscr;
for i:= 10 to 99 do
s := s+i;
writeln(s);
readkey;
end.

var i,s,n,c,d:integer;
begin
clrscr;
write('Vvedite n: ');
read(n);
write('Vvedite d: ');
read(d);
for i := 1 to ( n div 2 ) do
if ( n mod i = 0 ) then
begin
if ( i div 2 <> 0 ) then
s := s + i;
inc(c);
end;
Write('Summa = ',s,', kolvo delit = ',c);
c:=0;
for i := d+1 to ( n div 2 ) do
if ( n mod i = 0 ) then
inc(c);
write(', kolvo delitelei > d = ', c);
readkey;
end.

uses crt;

[martinges]

зачем так много писать? так проще:

j:=1;
for i:=2 to 10 do
    if x[j]>x[i] then
        j:=i;

проще и элегантнее но там нагляднее(по крайней мере я так надеюсь ) сначала пусть научатся делать громоздкий понятный код потом научатся его оптимизировать