Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Определить стоимость самого дешевого блюда в ресторане https://www.cyberforum.ru/ pascalabc/ thread1694712.html
Помогите с задачей на записи: Составить программу, выводящую на экран меню ресторана "Дракон" (наименование блюда, вес, стоимость). Определить стоимость самого дешевого блюда. В паскале.
Вычислить значение выражения Pascal ABC
о беснить в кратце как ето решить если можно( (Ссылка на сторонний ресурс удалена)
Утроить буквы B в тексте Pascal ABC
заранннее большое спасибо)
Pascal ABC Определить значение наибольшего элемента второй строки матрицы 4)Определить значение наибольшего элемента второй строки матрицы C(1:3, 1:3). https://www.cyberforum.ru/ pascalabc/ thread1694274.html
Pascal ABC Определить общее число медалистов в городе https://www.cyberforum.ru/ pascalabc/ thread1694273.html
3)Первый столбец в матрице D(1:2, 1:6) – это количество выпускников в какой-либо школе города, второй столбец матрицы – количество медалистов в данной школе. Определить общее число медалистов в...
Pascal ABC Список абитуриентов, фамилии которых начинаются с Б, и их даты рождения
2) Список абитуриентов, фамилии которых начинаются с Б, и их даты рождения.
Упорядочить по невозрастанию массив Pascal ABC
1) Упорядочить по невозрастанию массив, содержащий 25 вещественных чисел.
Pascal ABC Создать класс, который будет способен принимать значения 1, 2, 3, 10 и никакие другие. Помогите, пожалуйста. Ребят, хочу я создать класс, который будет способен принимать значения 1, 2, 3, 10 и никакие другие. Как реализовать? https://www.cyberforum.ru/ pascalabc/ thread1694183.html
Pascal ABC Написание программы - тестировщика по английскому языку https://www.cyberforum.ru/ pascalabc/ thread1694132.html
составить программу -тестирование по английскому языку (10 вопросов; 4 варианта ответов к каждому вопросу; выставление итоговой оценки с рекомендациями). тестовые задания должны выбираться из файла...
Pascal ABC Файл: Получить в другом файле все компоненты файла f, кроме тех, которые кратны К записать файл f последовательно доступа N натуральных чисел . получить в другом файле последовательного доступа все компоненты файла f, кроме тех, которые кратны К. вывести полученный файл на экран https://www.cyberforum.ru/ pascalabc/ thread1694113.html
0 / 0 / 0
Регистрация: 17.03.2016
Сообщений: 3
0

Как сделать проверку в строке "для дурака" с авто-заменой "," на "." - иначе вылетает

25.03.2016, 22:26. Показов 1362. Ответов 5
Метки (Все метки)

Помогите в программу "запилить" проверку ввода символа (Base, Pawer) "для дурака" с авто-заменой ',' (естественно не читающейся) на соответствующую '.' ; Запутался окончательно с типами данных, поэтому то что накуралесил показывать не cтану, а в общем виде все выглядит так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program NumOfPower;
 
var Power: integer; {степень} 
var Base: double; {число}
 
function MyPower(Base:double; Power:integer):double; {непосредственно расчет}
 
var i:integer;
var rez:double; 
 
begin
 rez:= Base; 
for i:=1 toPower-1 do 
 rez:= rez * Base; 
result:=rez; 
end;
 
begin
 
write('Введите основание :');
 read(Base);
 
write('Введите степень :');
read(Power);
 
 if Power<0 then 
 
 begin
Power:=Power*(-1);
 write('Итог: число ', Base, ' в сепени ', Power, ' = ', 1/MyPower(Base, Power),';'); 
end
 
else
write('Итог: число ', Base, ' в сепени ', Power, ' = ', MyPower(Base, Power), ';');
 
end.
Добавлено через 40 минут
Из разряда "Я пытался":

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
program NumOfPower;
 
uses System;
 
var Strin:string;
var Power, i: integer;
var Base: double;
 
  function MyPower(Base:double; Power:integer):double;
   var i:integer;
   var rez:double;  
 
begin
 rez:= Base; 
 for i:=1 to Power-1 do 
 rez:= rez * Base; 
 result:=rez; 
end;
 
begin
 
  write('Введите основание :');
  read(Strin);
  
    for i:=length(Strin) downto 1 do
      begin
       if (Strin[i] = ',') then Strin[i] := '.' ;
      end;
    Base:= StrToInt(Strin);
 
     
  write('Введите степень :');
  read(Power);
  
  if Power<0 then 
    begin
     Power:=Power*(-1);
     write('Итог: число ', Base, ' в сепени ', Power, ' = ', 1/MyPower(Base, Power),';');
    end
  else
  write('Итог: число ', Base, ' в сепени ', Power, ' = ', MyPower(Base, Power), ';');
     
end.


Вернуться к обсуждению:
Как сделать проверку в строке "для дурака" с авто-заменой "," на "." - иначе вылетает
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.03.2016, 22:26
Готовые ответы и решения:

Удвоить в строке буквы "ю", "ъ", "ф", "э", а между словами оставить только по одному пробелу
Пользователь заполняет символьную строку русскими буквами. Буквы ю, ъ, ф, э в ней нужно удвоить, а...

Из слова "клоун" путем "вырезок" и "склеек" его букв получить слова "уклон","кулон" и "колун"
Из слова &quot;клоун&quot; путем &quot;вырезок&quot; и &quot;склеек&quot; его букв получить слова &quot;уклон&quot;,&quot;кулон&quot; и...

Сформировать вектор: если в строке матрицы букв больше цифр, то элемент вектора -"истина", иначе "ложь"
Случайным образом заполнить матрицу символов 6х6.сформировать вектор в строке матрицы строчных...

Даны текстовый файл "F" и строка "S". Получить все строки файла "F", содержащие в качестве фрагмента строку "S".
Плиз помогите написать прогу: Даны текстовый файл &quot;F&quot; и строка &quot;S&quot;. Получить все строки файла &quot;F&quot;,...

__________________
5
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.