Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
Supermannick
0 / 0 / 0
Регистрация: 03.11.2013
Сообщений: 69
1

Напечатать таблицы температур по Цельсию от 0 до 100 градусов и их эквивалентов по шкале Фаренгейта

15.04.2014, 22:32. Просмотров 1193. Ответов 1
Метки нет (Все метки)

Помогите, пожалуйста. Задание: Напечатать таблицы температур по Цельсию от 0 до 100 градусов с дискретностью в один градус и их эквивалентов по шкале Фаренгейта. Написал код, помогите сделать его с циклом repeat

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm3.Button1Click(Sender: TObject);
var c:integer;
    f:real;
    s,s1:string;
begin
Memo1.Clear;
Memo1.Lines.Add('   C      F');
Memo1.ScrollBars:=ssVertical;
for c:=1 to 100 do
 begin
  f:=9*c/5+32;
  str(c:4,s);
  str(f:7:1,s1);
  Memo1.Lines.Add(s+s1)
 end;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.04.2014, 22:32
Ответы с готовыми решениями:

Получить табл. температур по Цельсию от 0 до 100 градусов и их еквивалентов по шкале Форенгейта
Уважаемые форумчане помогите перевести задачу из Pascal в Delphi. Условие...

Таблица перевода температуры из градусов по шкале Цельсия в градусы шкалы Фаренгейта (Deplhi 7)
напечатать таблицу перевода температуры из градусов по шкале цельсия в градусы...

Получить таблицу температур по Цельсию от 0 до 100 градусов и их эквивалентов по шкале Фаренгейта (Editor)
СОЗДАТЬ M-FILE в Editor'e Получить таблицу температур по Цельсию от 0 до 100...

Получить таблицу температур по Цельсию от 0 до 100 гр и их эквивалентов по шкале Фаренгейта: найти ошибку
Получить таблицу температур по Цельсию от 0 до 100 градусов и их эквивалентов...

Получить таблицу температур по Цельсию от 1 до 100 градусов и их эквивалент по шкале Фаренгейта
Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме...

1
FIL
Модератор
3422 / 2556 / 728
Регистрация: 19.09.2012
Сообщений: 7,926
15.04.2014, 22:40 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var c:integer;
    f:real;
    s,s1:string;
begin
Memo1.Clear;
Memo1.Lines.Add('   C      F');
Memo1.ScrollBars:=ssVertical;
//for c:=1 to 100 do
 c := 1;
 repeat
// begin
  f:=9*c/5+32;
  str(c:4,s);
  str(f:7:1,s1);
  Memo1.Lines.Add(s+s1);
  inc(c);
// end;
  until c > 100;
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.04.2014, 22:40

Напечатать таблицы температур по Цельсию от 0 до 100 градусов
Помогите написать программы, пожалуйста :) 1) Напечатать таблицы температур...

Получить таблицу температур по Цельсию и их эквивалент по шкале Фаренгейта
Получить таблицу температур по Цельсию от 1 до 100 градусов и их эквивалент по...

Напечатать таблицу перевода температуры из градусов по шкале Цельсия в градусы по шкале Фаренгейта
Помогите с циклами плиз... 1. Выполняется с помощью цикла for Напечатать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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