Помогите с паскалем

[Andrey_46]

Напишите пожалуйста следующее программы
1. на картинке. Написать программу для решения задачи с применением цикла repeat-until и добавлением контроля правильности ввода.

2. Даны натуральные числа n, m. Получить все меньше n натуральные числа, квадрат суммы цифр которых равен m. При решении задачи использовать конструкцию вложенных циклов, когда один цикл входит в тело другого цикла.

Срочно нужно! help!!!

[alex_fcsm]

Сообщение от Andrey_46

Напишите пожалуйста следующее программы
1. на картинке. Написать программу для решения задачи с применением цикла repeat-until и добавлением контроля правильности ввода.

Срочно нужно! help!!!

Если правильно понял условие, то что-то подобное должно быть

uses crt;

var y,y1,e:real;
    ch:char;

begin
repeat
clrscr;
{$I-}
readln(e);
{$I+}

if IOResult=0 then
  begin
   y:=0;y1:=0;
    repeat
     y:=y1;
     y1:=(y+1)/(y+2);
    until (y1-y)<e;
   writeln(y1);
  end
   else Writeln('I/O ERROR!!!');
  Writeln('Repeat(y/n)?')
until readkey='n';
end.

[alex_fcsm]

Сообщение от Andrey_46

Напишите пожалуйста следующее программы
1. на картинке. Написать программу для решения задачи с применением цикла repeat-until и добавлением контроля правильности ввода.

2. Даны натуральные числа n, m. Получить все меньше n натуральные числа, квадрат суммы цифр которых равен m. При решении задачи использовать конструкцию вложенных циклов, когда один цикл входит в тело другого цикла.

Срочно нужно! help!!!

Наверное так
uses crt;
var m,n,i,j,x,sum,code:integer;
s:string;

begin
clrscr;
Writeln('Input n');
Readln(n);
Writeln('Input m');
Readln(m);
writeln('Numbers:');
for i:=n-1 downto 1 do
 begin
  sum:=0;
  str(i,s);
  for j:=1 to length(s) do
   begin
    val(copy(s,j,1),x,code);
    sum:=sum+x;
   end;
  if sqr(sum)=m then write(i,' ');
 end;
 readln;
end.

[Andrey_46]

alex fcsm большое тебе спасибо, выручил!!!!!

[Andrey_46]

alex_fcsm запускал первую программу которую ты написал и паскаль выдаёт ошибку "ошибка: неизвестный идентификатор IOResult=0. подскажи пожалуйста что делать.

[alex_fcsm]

Сообщение от Andrey_46

alex_fcsm запускал первую программу которую ты написал и паскаль выдаёт ошибку "ошибка: неизвестный идентификатор IOResult=0. подскажи пожалуйста что делать.

Не знаю даже Я сколько не пытался не добился такой ошибки. Как вариант посмотрите: не стоит ли у вас ноль(0) вместо буквы O. И попробуйте выделить IOResult и нажать Ctrl+F1(должен выскочить хелп). А вообще все коды ошибок тоже можно почитать(в окне ТР->Help->Error Messages)

[alex_fcsm]

Сообщение от ковальская

я и не поняла. подумала, может более пофессиональные люди разберуться...

Тогда как понял
вводите дату, а она будет на три числа разбиваться, но по-моему это полная ерунда

var s:string;
    i:integer;
begin
writeln('Input DATE');
readln(s);
for i:=1 to length(s) do
 if s[i]<>'.' then write(s[i])
    else write(' ');
end.

[Serge_Bliznykov]

А КТО ПОЧИСТИЛ ДАННУЮ ТЕМУ?!?!?
Вот, цитируется сообщение от ковальская

Сообщение от ковальская
я и не поняла. подумала, может более пофессиональные люди разберуться...

А где исходный пост?! и эта тема была на двух страницах, теперь на одной... ;-(

вчера я отправил свой вариант решения задачи про датуы.. но видимо он где-то по дороге в проводах застрял...

чтобы хоть как-то оправдать потраченное время на написание пример, публикую его повторно:

{Найти следующую дату по введённым цифрам a b c
  (День Месяц Год)
}
const
   DaysInMonth: array[1..12] of Byte =
     (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);

  {функция возращает високосный ли год }
  {*                    TPDATE.PAS 5.05                    *}
  {*        Copyright (c) TurboPower Software 1988.        *}
  function IsLeapYear(Year : Integer) : Boolean;
  begin
    IsLeapYear := (Year mod 4 = 0) and
                  ((Year mod 100 <> 0) or (Year mod 400 = 0));
  end;

var
  a,b,c : integer;
  Days  : integer;   

begin
  WriteLn;
  Write('VVedite datu v vide treh chisel (den` mesac god):');
  Readln(a,b,c);

  {проверка корректности введённой даты!}
  if (c<1700) or (c>3000) then 
  begin 
    WriteLn('Tokoy god nedopustim!');
    Halt(101)
  end;
  if (b<1) or (b>12) then 
  begin 
    WriteLn('Net takih mesacev v nashem kalendare!');
    Halt(102)
  end;
  if (b<1) or (b>12) then 
  begin 
    WriteLn('Net takih mesacev v nashem kalendare!');
    Halt(102)
  end;

  Days := DaysInMonth[b] + ord((c mod 4 = 0) and (b = 2));
  if (a<1) or (a>Days) then 
  begin 
    WriteLn('V mesace ',b:1,' net stolko dney!');
    Halt(103)
  end;

  {перевод на следующий день}
  a := a + 1;
  if a > Days then 
  begin {переход на следующий месяц}
    a := 1;
    b := b + 1;
    if b>12 then {переход на следующий год} 
    begin 
      b := 1;
      c := c + 1;
    end;
  end;

  {вывод результатов}
  WriteLn('Sleduyshay data : ',a:1,'.',b:1,'.',c:4);

end.

[Stilet]

Один Автор - Одна тема.
Хакрываю