Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 21.05.2010, 18:50   #1 (permalink)
ALEKSEYB
Новичок
 
Регистрация: 21.05.2010
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Unhappy Две задачи на Паскале ABC

Здравствуйте.Помогите мне в решении 2 задач и в написании блок-схем к ним.

Дан целочисленный массив A размера 10. Вывести номер первого и последнего из тех его элементов A[i], которые удовлетворяют двойному неравенству: A[1] < A[i] < A[10]. Если таких элементов нет, то вывести 0.


Дана строка. Если она представляет собой запись целого числа, то вывести 1; если вещественного (с дробной частью), то вывести 2; если строку нельзя преобразовать в число, то вывести 0.

Заранее большое спасибо тем кто откликнется
ALEKSEYB вне форума   Ответить с цитированием

Старый 21.05.2010, 18:50
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Пожалуйста, посмотрите схожие по содержанию темы

Три задачи в Паскале
Три задачи на Паскале
Задачи на Паскале
Три задачи на Паскале
Снова задачи на паскале

Старый 21.05.2010, 21:15   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,837
Сказал(а) спасибо: 316
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от ALEKSEYB Посмотреть сообщение
Здравствуйте.Помогите мне в решении 2 задач
Помогу со второй.
Цитата:
и в написании блок-схем к ним.
Увы, пас.
Цитата:
Дан целочисленный массив A размера 10. Вывести номер первого и последнего из тех его элементов A[i], которые удовлетворяют двойному неравенству: A[1] < A[i] < A[10]. Если таких элементов нет, то вывести 0.
Эту детсадовскую ерунду пишите сами - в конце концов, надо же хоть как-то учиться.
Цитата:
Дана строка. Если она представляет собой запись целого числа, то вывести 1; если вещественного (с дробной частью), то вывести 2; если строку нельзя преобразовать в число, то вывести 0.
Пожалуйста:
Код:
VAR
 S:String;
 I,Code:Integer;
 R:Real;
BEGIN
 WriteLn('Enter the string:');
 ReadLn(S);
 Val(S,I,Code);
 If Code=0 then Writeln('1') else
  begin
   Val(S,R,Code);
   If Code=0 then Writeln('2') else Writeln('0');
  end;
 ReadLn;
END.
Цитата:
Заранее большое спасибо тем кто откликнется
Не за что.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 11:36.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.