|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.01.2011, 17:40 | #1 |
Пользователь
Регистрация: 20.12.2010
Сообщений: 16
|
надо перевести из С++ в Paascal ABC
привет! надо код из С++,в Pascal ABC перевести. Задание выглядит так :Заполнить файл f натуральными числами, полученными с помощью генератора случайных чисел. Найти количество квадратов нечетных чисел среди компонентов.
Вот код на С++: #include<iostream> #include<cstdlib> #include <time.h> #include<fstream> #include<cmath> using namespace std; int main(){ srand(time(0)); int i,k,n,j=0; n = rand()%20; int mass[n]; cout<<"massiv:\n"; for( i =0;i<n;i++){ mass[i]= rand()%100; cout<<mass[i]<<" "; } cout<<"\n dannie zapisani v ==>fin.txt"<<endl;; FILE *fp1 = fopen("fin.txt","w"); if(!fp1) { cout << "Nevozmozhno otkryt' fail"<< endl; } for( i =0;i<n;i++){ k=sqrt(mass[i]); if(mass[i]==k*k&&k%2!=0){ j++; } } for(i=0;i<n;i++){ fprintf ( fp1, "%d", mass[i]); fprintf ( fp1, " "); } fprintf ( fp1, "\n"); fprintf(fp1,"Kol-vo kvadratov nechetnix chisel: "); fprintf ( fp1,"%d", j); fclose(fp1); system("PAUSE>>null"); return 0; } заранее огромное спасибо!!!! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
SOS Надо написать код в С++ ( есть образец, надо переделать просто!) | Беата | Общие вопросы C/C++ | 9 | 08.12.2010 22:13 |
перевести код на С++.. надо сделать программу в Borland C++ | Helena_pr | Фриланс | 2 | 20.11.2010 00:39 |
Помогите решить 2 задачки срочно надо а то меня повешают на практике мне надо к 2 июня!!! | серега222 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 27.05.2009 17:46 |