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

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


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

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.

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

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;

Ссылка на комментарий
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;

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

Эсуперзамок". секретный замок для сейфа состит из 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;

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

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

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

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

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

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

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

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

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

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

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

в Pascal ABS:

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

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

Ссылка на комментарий
В одномерном масиве 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

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

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

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

j:=0;

min:=32767;

for i:=1 to 10 do

if min>x then

begin

min:=x;

j:=i;

end;

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

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

Помогите зачем здесь 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 :help:

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

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;

Ссылка на комментарий
зачем так много писать? :) так проще:


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

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

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

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

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



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

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