Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
flyling97
1

Переведите пожалуйста на qbasic

19.09.2013, 19:30. Просмотров 495. Ответов 4
Метки нет (Все метки)

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
Program Array134;
Const
 max = 20;
Type
 point = Record
  x,y:real;
 End;
Var
 a:Array [1..max] Of point;
 i,j,n,c1,c2:integer;
Function Dist(p1,p2:point):real;
Begin
 Dist:=sqrt(sqr(p2.x-p1.x)+sqr(p2.y-p1.y));
End;
Begin
 readln(n);
  For i:=1 to n do
    read(a[i].x,a[i].y);
  c1:=1;
  c2:=2;
 For i:=1 to n-1 do
  For j:=i+1 to n do
   If dist(a[i],a[j]) > dist(a[c1],a[c2]) then 
     Begin
       c1:=i;
       c2:=j;
     End;
  writeln(a[c1].x,a[c1].y,a[c2].x,a[c2].y,dist(a[c1],a[c2]));
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.09.2013, 19:30
Ответы с готовыми решениями:

Пожалуйста, переведите на QBasic
uses crt; var n,i:integer; x,t,y:real; begin clrscr; write('n='); readln(n); repeat...

Переведите пожалуйста на QBASIC
Код C++ #include <stdio.h> #include <conio.h> #include <math.h> int a, i,k,j,n=8, b; void...

Переведите с Paskal на Qbasic, пожалуйста
Дана матрица N x M, состоящая из натуральных чисел. Расставить строки таким образом, чтобы элементы...

Переведите, пожалуйста код с Паскаля на QBasic
uses crt; var s,sl,sc: string; i,k: integer; begin write('Введите текст '); readln(s);...

4
1045 / 315 / 74
Регистрация: 13.07.2013
Сообщений: 1,270
19.09.2013, 19:35 2
Цитата Сообщение от flyling97 Посмотреть сообщение
Function Dist(p1,p2oint):real;
В редакторе есть опция "отключить смайлы"
1
Заблокирован
19.09.2013, 20:00 3
flyling97, Good-Morning, в редакторе есть теги, которые очень помогают восприятию кода!

Добавлено через 5 минут
flyling97, какой-то незаконченный код вы привели -
Pascal
1
End.
не хватает по крайней мере,
а ещё лучше поведали бы суть задачи, стоящей перед вами...
0
1045 / 315 / 74
Регистрация: 13.07.2013
Сообщений: 1,270
19.09.2013, 20:04 4
Цитата Сообщение от Апострофф Посмотреть сообщение
поведали бы суть задачи
Вот с этим я полностью согласен - я, к примеру, совсем не понимаю, чего нужен этот "образец" - если знать цель программы - можно в общем и "в слепую" (т.е. не зная Pascal) написать программу на QBasic.
0
Супер-модератор
5258 / 2337 / 1275
Регистрация: 04.03.2013
Сообщений: 5,422
Записей в блоге: 1
24.10.2013, 22:34 5
Цитата Сообщение от Good-Morning Посмотреть сообщение
я, к примеру, совсем не понимаю, чего нужен этот "образец"
часто встречаю такие ситуации, когда просят перевести исходник и не вижу в этом особой проблемы: если языки знакомы перевожу. в правилах и философии форума нигде не сказано, что не надо помогать человеку если он обратился за помощью только чтобы решить сиюминутную проблему и забить скажем на программирование...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.10.2013, 22:34

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Переведите, пожалуйста код с Паскаля на QBasic и отредактируйте код под условие задачи
Ниже расположено условие задачи. Даны натуральное число m, целые числа {a}_{l},...,{a}_{lm} и...

Переведите на QBasic
Var n: Byte; BEGIN Repeat Write('Введите возраст человека до 100 лет: '); Readln(n);...

Переведите код с Pascal на QBasic
Program z1; Var S:String; k,p:integer; BEGIN Write ('введите исходную строку:');...

Переведите пожалуйста старый BASIC
Всем привет! Возникла необходимость перевести старый, дореволюционный BASIC на современный лад....


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

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

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