Разное

Alan85 · Отправлено: **18:12, 24-08-2009** | #21

паскаль делает программы для DOS - а их там никогда не было. В винде эта проблема решается созданием ярлыка (pif файл)где и задается иконка , при этом и сам exe видится с иконокой пока не удалишь pif файл. вроде так.
а вот пример который тебе может помочь в решении твоей задачи. Обрати внимание что char тоже можно сравнивать при помощи case...

Код:

program pnum;
var
num:char;
begin
writeln("Enter number 1 or 2");
readln(x);
case x of
 '1': writeln('1');
 '2':writeln('2');
 else writeln('error');
end;
end.

asus a9rp · Отправлено: **22:29, 24-08-2009** | #22

Не получилось. За информацию про иконки - спасибо, а с этим - провал.
Хорошо. Раз все так хотят мне помочь, то (что бы всё получилось, а то у меня всё никак не выходит) переделайте пожалуйста мою программу так, она не отключалась.
Программа содержится в первом сообщении ниже.

asus a9rp · Отправлено: **20:02, 03-09-2009** | #23

Вот ещё вопрос. Как сделать так, что-бы введённое человеком число добавлялось в код? Т.е. Задаётся вопрос с ответом-числом, человек вводит своё число и оно добавляктся к сумме-коду. И вопрос к этому же. Как сделать, что-бы это число могло быть увеличено в 10, 100, 1000 раз. К примеру. Введено число 55, а мне надо 5500.

BlackEric · Отправлено: **12:35, 04-09-2009** | #24

asus a9rp, сложить или умножить обычно помогает

asus a9rp · Отправлено: **00:02, 05-09-2009** | #25

BlackEric, ну, вообще логично, но как это прописать?
(1:??? (y, 10))

lxa85 · Отправлено: **11:51, 05-09-2009** | #26

asus a9rp,

Код:

var 
  summator: integer; // Переменная накопления суммы
  A:integer;  // Число
  k:integer; // Коэфициент умножения 10, 100, 1000 ...
begin
  summator:=0;
  readln(A);
  A:=k*A;
  while A<>0 do
    begin
    summator:=summator+A;
    readln(A);
    A:=k*A;
    end;
  writeln(summator);
end.

Или я не правильно понял вопрос?

BlackEric · Отправлено: **12:42, 05-09-2009** | #27

asus a9rp, воьмите _любую_ книгу по паскалю и прочитайте первые 3-4 главы. Времени съэкономите уйму.

asus a9rp · Отправлено: **20:04, 05-09-2009** | #28

lxa85, не совсем то. Но я это решил:

Код:

Uses CRT;
Var x, y, z, k, a: Integer;
 BEGIN
  ClrScr;
  z:=10;
  k:=100;
  Write ('Number'); Readln (x);
  y:=x*z;
  Writeln (y);
  Readln;
  ClrScr;
  Write ('Number 2'); Readln (x);
  a:=x*k;
  Writeln (a);
  Readln;
 end.

BlackEric, я - сомоучка. Я занимаюсь программированием не профессионально, а для того, что бы написать одну программу. И такой литературы у меня нет. А покупать из-за одной программы, тем более в наше время - не охота. Чем тратить деньги, лучше спросить у знающих людей. Они и разъяснят если что.

lxa85 · Отправлено: **21:04, 05-09-2009** | #29

Цитата asus a9rp:

Чем тратить деньги, лучше спросить у знающих людей. Они и разъяснят если что. »

Не вздумай повторять эту фразу где-либо еще, ибо твой авторитет упадет ниже некуда!
Купи(найди, скачай) книгу. Здесь не школа, и самостоятельное исследование задач приветствуется. Знающим только приятно будет. А рассказывать главы учебников тратя свое время ...
Надеюсь ты понял.

asus a9rp · Отправлено: **00:06, 08-09-2009** | #30

lxa85, понял. Я просто имел в виду, что если что-то будет не понятно, то здесь объяснят, что и как, а книга не сможет объяснить непонятное. Она ведь говорить не может.